Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1091 Optional second arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el' 1091 Optional second arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el'
1092 to the specified name LIBRARY (a la calling `load' instead of `load-library')." 1092 to the specified name LIBRARY (a la calling `load' instead of `load-library')."
1093 (interactive "sLocate library: \nP") 1093 (interactive "sLocate library: \nP")
1094 ;; XEmacs: We have the nifty `locate-file' so we use it. 1094 ;; XEmacs: We have the nifty `locate-file' so we use it.
1095 (let ((file (locate-file library load-path (if nosuffix nil ".elc:.el:")))) 1095 (let ((file (locate-file library load-path (if nosuffix nil ".elc:.el:"))))
1096 (if file 1096 (when (interactive-p)
1097 (message "Library is file %s" file) 1097 (if file
1098 (message "No library %s in search path" library)) 1098 (message "Library is file %s" file)
1099 (message "No library %s in search path" library)))
1099 file)) 1100 file))
1100 1101
1101 ;; Functions ported from C into Lisp in XEmacs 1102 ;; Functions ported from C into Lisp in XEmacs
1102 1103
1103 (defun describe-syntax () 1104 (defun describe-syntax ()