Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
1095 ;; Let's accept both symbols and strings, since they're often equivalent 1095 ;; Let's accept both symbols and strings, since they're often equivalent
1096 (when (symbolp library) 1096 (when (symbolp library)
1097 (setq library (symbol-name library))) 1097 (setq library (symbol-name library)))
1098 ;; XEmacs: We have the nifty `locate-file' so we use it. 1098 ;; XEmacs: We have the nifty `locate-file' so we use it.
1099 (let ((file (locate-file library load-path (if nosuffix nil ".elc:.el:")))) 1099 (let ((file (locate-file library load-path (if nosuffix nil ".elc:.el:"))))
1100 (if file 1100 (when (interactive-p)
1101 (message "Library is file %s" file) 1101 (if file
1102 (message "No library %s in search path" library)) 1102 (message "Library is file %s" file)
1103 (message "No library %s in search path" library)))
1103 file)) 1104 file))
1104 1105
1105 ;; Functions ported from C into Lisp in XEmacs 1106 ;; Functions ported from C into Lisp in XEmacs
1106 1107
1107 (defun describe-syntax () 1108 (defun describe-syntax ()