Mercurial > hg > xemacs-beta

diff lisp/prim/help.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children c0c698873ce1
line wrap: on
line diff
--- a/lisp/prim/help.el	Mon Aug 13 09:03:07 2007 +0200
+++ b/lisp/prim/help.el	Mon Aug 13 09:03:46 2007 +0200
@@ -1097,9 +1097,10 @@
     (setq library (symbol-name library)))
   ;; XEmacs: We have the nifty `locate-file' so we use it.
   (let ((file (locate-file library load-path (if nosuffix nil ".elc:.el:"))))
-    (if file
-	(message "Library is file %s" file)
-      (message "No library %s in search path" library))
+    (when (interactive-p)
+      (if file
+	  (message "Library is file %s" file)
+	(message "No library %s in search path" library)))
     file))
 
 ;; Functions ported from C into Lisp in XEmacs