Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 5071:f28a4e9f0133

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo in comment -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-23 Ben Wing <ben@xemacs.org> * help.el: fux typo in comment. (oops)
author Ben Wing <ben@xemacs.org>
date Tue, 23 Feb 2010 01:13:55 -0600
parents b0f4adffca7d
children d555581e3cba
comparison
equal deleted inserted replaced
5070:b0f4adffca7d 5071:f28a4e9f0133
1211 ((stringp arglist) 1211 ((stringp arglist)
1212 (format "(%s %s)" function arglist))))) 1212 (format "(%s %s)" function arglist)))))
1213 1213
1214 ;; If STRIP-ARGLIST is true, return a cons (DOC . ARGS) of the documentation 1214 ;; If STRIP-ARGLIST is true, return a cons (DOC . ARGS) of the documentation
1215 ;; with any embedded arglist stripped out, and the arglist that was stripped 1215 ;; with any embedded arglist stripped out, and the arglist that was stripped
1216 ;; out. If STIRP-ARGLIST is false, the cons will be (FULL-DOC . nil), 1216 ;; out. If STRIP-ARGLIST is false, the cons will be (FULL-DOC . nil),
1217 ;; where FULL-DOC is the full documentation without the embedded arglist 1217 ;; where FULL-DOC is the full documentation without the embedded arglist
1218 ;; stripped out. 1218 ;; stripped out.
1219 (defun function-documentation-1 (function &optional strip-arglist) 1219 (defun function-documentation-1 (function &optional strip-arglist)
1220 (let ((doc (condition-case nil 1220 (let ((doc (condition-case nil
1221 (or (documentation function) 1221 (or (documentation function)