Commit 9c50afce authored by Dave Love's avatar Dave Love

(describe-function-1): Kluge around cases of functions fset to subrs

whose doc doesn't match their symbol-name.
parent f4fbc2ff
2000-06-13 Dave Love <fx@gnu.org>
* help.el (describe-function-1): Kluge around cases of functions
fset to subrs whose doc doesn't match their symbol-name.
* image.el (insert-image): Default STRING to a space.
* info.el Doc fixes.
......
......@@ -724,17 +724,28 @@ It can also be nil, if the definition is not associated with any file."
;; Builtins get the calling sequence at the end of
;; the doc string. Move it to the same place as
;; for other functions.
(if (looking-at (format "(%S[ )]" function))
(let ((start (point-marker)))
(goto-char (point-min))
(forward-paragraph)
(insert-buffer-substring (current-buffer) start)
(insert ?\n)
(delete-region (1- start) (point-max)))
(goto-char (point-min))
(forward-paragraph)
(insert
"[Missing arglist. Please make a bug report.]\n"))
;; In cases where `function' has been fset to a
;; subr we can't search for function's name in
;; the doc string. Kluge round that using the
;; printed representation. The arg list then
;; shows the wrong function name, but that
;; might be a useful hint.
(let* ((rep (prin1-to-string def))
(name (progn
(string-match " \\([^ ]+\\)>$" rep)
(match-string 1 rep))))
(if (looking-at (format "(%s[ )]" name))
(let ((start (point-marker)))
(goto-char (point-min))
(forward-paragraph)
(insert-buffer-substring (current-buffer) start)
(insert ?\n)
(delete-region (1- start) (point-max)))
(goto-char (point-min))
(forward-paragraph)
(insert
"[Missing arglist. Please make a bug report.]\n")))
(goto-char (point-max))))
(help-setup-xref (list #'describe-function function)
interactive-p))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment