Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9c50afce
Commit
9c50afce
authored
Jun 13, 2000
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(describe-function-1): Kluge around cases of functions fset to subrs
whose doc doesn't match their symbol-name.
parent
f4fbc2ff
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
25 additions
and
11 deletions
+25
-11
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/help.el
lisp/help.el
+22
-11
No files found.
lisp/ChangeLog
View file @
9c50afce
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.
...
...
lisp/help.el
View file @
9c50afce
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment