X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcompface.el;h=45a570991dc93a3fbe0b8d40eb1ff522865e649b;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=f04b6bafaec98e9cc39e7d86d4c7765c6191c026;hpb=5035bc4f82ae7ed5191abc62fa0b17f1d36793ff;p=elisp%2Fgnus.git-

diff --git a/lisp/compface.el b/lisp/compface.el
index f04b6ba..45a5709 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.