Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 3065:3fa430e1aa35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-11-13 10:52:47 by ben] don't bomb out when fun has no documentation help.el: Don't bomb out when fun has no documentation.
author ben
date Sun, 13 Nov 2005 10:52:48 +0000
parents 66ad30774567
children 0f411920c8db
comparison
equal deleted inserted replaced
3064:b350e85a2a5e 3065:3fa430e1aa35
1184 (compiled-function-arglist fndef)) 1184 (compiled-function-arglist fndef))
1185 ((eq (car-safe fndef) 'lambda) 1185 ((eq (car-safe fndef) 'lambda)
1186 (nth 1 fndef)) 1186 (nth 1 fndef))
1187 ((subrp fndef) 1187 ((subrp fndef)
1188 (let* ((doc (documentation function)) 1188 (let* ((doc (documentation function))
1189 (args (and (string-match 1189 (args (and doc
1190 (string-match
1190 "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" 1191 "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'"
1191 doc) 1192 doc)
1192 (match-string 1 doc)))) 1193 (match-string 1 doc))))
1193 ;; If there are no arguments documented for the 1194 ;; If there are no arguments documented for the
1194 ;; subr, rather don't print anything. 1195 ;; subr, rather don't print anything.