changeset: 4671:e9b88e997479
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Mon Aug 10 16:22:09 2009 +0100
files: lisp/ChangeLog lisp/help.el
description:
Deal with arglist newlines better, #'function-arglist, #'function-documentation
lisp/ChangeLog addition:
2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net>
* help.el (function-arglist, function-documentation):
Deal more gracefully with tabs in the function arglist; in
function-documentation, when stripping the arglist, pay attention
to the fact that they may span multiple lines.
diff -r 5a54ce6dc945 -r e9b88e997479 lisp/ChangeLog
--- a/lisp/ChangeLog Sun Aug 09 12:38:04 2009 +0100
+++ b/lisp/ChangeLog Mon Aug 10 16:22:09 2009 +0100
@@ -1,3 +1,10 @@
+2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * help.el (function-arglist, function-documentation):
+ Deal more gracefully with tabs in the function arglist; in
+ function-documentation, when stripping the arglist, pay attention
+ to the fact that they may span multiple lines.
+
2009-08-09 Aidan Kehoe <kehoea(a)parhasard.net>
* faces.el (set-face-background-pixmap-file):
diff -r 5a54ce6dc945 -r e9b88e997479 lisp/help.el
--- a/lisp/help.el Sun Aug 09 12:38:04 2009 +0100
+++ b/lisp/help.el Mon Aug 10 16:22:09 2009 +0100
@@ -1196,7 +1196,7 @@
doc)
(match-string 1 doc)))
(args (and args (replace-in-string args
- "[ ]*\\\\\n[ ]*"
+ "[ ]*\\\\\n[ \t]*"
" " t))))
;; If there are no arguments documented for the
;; subr, rather don't print anything.
@@ -1225,7 +1225,7 @@
(void-function "(alias for undefined function)")
(error "(unexpected error from `documention')"))))
(if (and strip-arglist
- (string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
+ (string-match "[\n\t ]*\narguments: ?(\\([^)]*\\))\n?\\'" doc))
(setq doc (substring doc 0 (match-beginning 0))))
doc))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches