Mercurial > hg > xemacs-beta
comparison lisp/help.el @ 5076:d555581e3cba
fix issues with display of argument docstrings
-------------------- ChangeLog entries follow: --------------------
lib-src/ChangeLog addition:
2010-02-25 Ben Wing <ben@xemacs.org>
* make-docfile.c:
* make-docfile.c (write_c_args):
Convert newlines to spaces so that argument lists are always on one
line, because that's what function-documentation-1 expects.
lisp/ChangeLog addition:
c2010-02-25 Ben Wing <ben@xemacs.org>
* autoload.el (make-autoload):
Call cl-function-arglist with one arg.
* cl-macs.el (cl-function-arglist):
* cl-macs.el (cl-transform-lambda):
Make cl-function-arglist take only one arg, the arglist; no
function name passed. Also make sure to print () instead of nil
when empty arglist, or function-documentation-1 won't recognize
the arguments: line.
* help.el (function-arglist): If empty arg, don't display extra
space after function name.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Thu, 25 Feb 2010 04:10:52 -0600 |
parents | f28a4e9f0133 |
children | 2e528066e2fc |
comparison
equal
deleted
inserted
replaced
5072:cc74f60c150e | 5076:d555581e3cba |
---|---|
1207 (make-symbol (upcase (symbol-name | 1207 (make-symbol (upcase (symbol-name |
1208 arg)))))) | 1208 arg)))))) |
1209 | 1209 |
1210 t)) | 1210 t)) |
1211 ((stringp arglist) | 1211 ((stringp arglist) |
1212 (format "(%s %s)" function arglist))))) | 1212 (if (> (length arglist) 0) |
1213 (format "(%s %s)" function arglist) | |
1214 (format "(%s)" function)))))) | |
1213 | 1215 |
1214 ;; If STRIP-ARGLIST is true, return a cons (DOC . ARGS) of the documentation | 1216 ;; 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 | 1217 ;; with any embedded arglist stripped out, and the arglist that was stripped |
1216 ;; out. If STRIP-ARGLIST is false, the cons will be (FULL-DOC . nil), | 1218 ;; 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 | 1219 ;; where FULL-DOC is the full documentation without the embedded arglist |