(defun uncompface (face)
"Convert FACE to pbm.
-If `uncompface-use-external' is non-nil, it requires the external
-programs `uncompface', and `icontopbm'. On a GNU/Linux system these
-might be in packages with names like `compface' or `faces-xface' and
-`netpbm' or `libgr-progs', for instance."
+If `uncompface-use-external' is t, it requires the external programs
+`uncompface', and `icontopbm'. On a GNU/Linux system these might be
+in packages with names like `compface' or `faces-xface' and `netpbm'
+or `libgr-progs', for instance."
(cond ((eq uncompface-use-external nil)
(uncompface-internal face))
((eq uncompface-use-external t)
uncompface-use-external-threshold)
(executable-find "uncompface")
(executable-find "icontopbm")
- t)))))))
+ t))
+ (message "Setting `uncompface-use-external' to `%s'"
+ uncompface-use-external))))))
;; The following section is a bug-for-bug compatible version of
;; `uncompface' program entirely implemented in Emacs-Lisp.
;; eval: (put 'uncompface-loop 'lisp-indent-hook 0)
;; End:
+;;; arch-tag: f9c78e84-98c0-4142-9682-8ba4cf4c3441
;;; compface.el ends here