[Emacs-diffs] Changes to emacs/lisp/help-fns.el [lexbind]

[Miles Bader]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.9.2.10 emacs/lisp/help-fns.el:1.9.2.11
*** emacs/lisp/help-fns.el:1.9.2.10     Tue Jul  6 09:14:18 2004
--- emacs/lisp/help-fns.el      Tue Jul  6 09:23:42 2004
***************
*** 181,194 ****
    (unless (stringp docstring) (setq docstring "Not documented"))
    (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" docstring) (eq arglist 
t))
        docstring
!     (format "%s%s%S" 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)))))
  
  (defun help-function-arglist (def)
    ;; Handle symbols aliased to other symbols.
--- 181,194 ----
    (unless (stringp docstring) (setq docstring "Not documented"))
    (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" docstring) (eq arglist 
t))
        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) ")")
!             (format "%S" (help-make-usage 'fn arglist))))))
  
  (defun help-function-arglist (def)
    ;; Handle symbols aliased to other symbols.
***************
*** 277,282 ****
--- 277,283 ----
              (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))