From 7d57db2916957d1ea8b8d1582d96de6fb9ecea05 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 22 May 2004 01:58:25 +0000 Subject: (help-add-fundoc-usage): Use %S only for output of `help-make-usage'. (help-highlight-arguments): Skip function name before searching for arguments. --- lisp/help-fns.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/help-fns.el') diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e0692119a21..e7e09a431bd 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -181,14 +181,14 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"." (unless (stringp docstring) (setq docstring "Not documented")) (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" docstring) (eq arglist t)) docstring - (format "%s%s%S" docstring + (concat docstring (if (string-match "\n?\n\\'" docstring) (if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "") "\n\n") (if (and (stringp arglist) (string-match "\\`([^ ]+\\(.*\\))\\'" arglist)) (concat "(fn" (match-string 1 arglist) ")") - (help-make-usage 'fn arglist))))) + (format "%S" (help-make-usage 'fn arglist)))))) (defun help-function-arglist (def) ;; Handle symbols aliased to other symbols. @@ -275,6 +275,7 @@ else ARG is returned in uppercase normal." (next (not (or args (looking-at "\\[")))) (opt nil)) ;; Make a list of all arguments + (skip-chars-forward "^ ") (while next (or opt (not (looking-at " &")) (setq opt t)) (if (not (re-search-forward " \\([\\[(]*\\)\\([^] &)\.]+\\)" nil t)) -- cgit v1.2.1