X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fcompface.el;h=cad1361767650972b17fd02437d64953a84af96e;hb=5dfa1f3daa6e4ea6ee12a8b7f42e785761ee3743;hp=f04b6bafaec98e9cc39e7d86d4c7765c6191c026;hpb=8b87e18f7b6e6fced757c12428271a9433d335bd;p=gnus

diff --git a/lisp/compface.el b/lisp/compface.el
index f04b6bafa..cad136176 100644
--- 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