Mercurial > hg > xemacs-beta

diff lisp/prim/help.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 49a24b4fd526
line wrap: on
line diff
--- a/lisp/prim/help.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/prim/help.el	Mon Aug 13 08:46:56 2007 +0200
@@ -1093,9 +1093,10 @@
   (interactive "sLocate library: \nP")
   ;; 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