Add arch taglines

[gnus] / lisp / compface.el

diff --git a/lisp/compface.el b/lisp/compface.el
index f04b6ba..cad1361 100644 (file)
--- a/lisp/compface.el
+++ b/lisp/compface.el
@@ -72,10 +72,10 @@ are available.  Note that the measurement may never be exact."
 
 (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)
@@ -110,7 +110,9 @@ might be in packages with names like `compface' or `faces-xface' and
                           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.
@@ -743,4 +745,5 @@ If the optional RAW is non-nil, return a raw bitmap as a vector."
 ;; eval: (put 'uncompface-loop 'lisp-indent-hook 0)
 ;; End:
 
+;;; arch-tag: f9c78e84-98c0-4142-9682-8ba4cf4c3441
 ;;; compface.el ends here