[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0ed044d: * lisp/help-fns.el (describe-function-1):
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 0ed044d: * lisp/help-fns.el (describe-function-1): |
Date: |
Tue, 05 May 2015 23:51:32 +0000 |
branch: master
commit 0ed044dc1b524370f02f531b3b6fcc1ef45c395d
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/help-fns.el (describe-function-1):
Handle builtins with advertised calling conventions. (Bug#20479)
---
lisp/help-fns.el | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 9020037..4982ee5 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -495,6 +495,9 @@ FILE is the file where FUNCTION was probably defined."
f))
((subrp def) (intern (subr-name def)))
(t def)))
+ (sig-key (if (subrp def)
+ (indirect-function real-def)
+ real-def))
(file-name (find-lisp-object-file-name function def))
(pt1 (with-current-buffer (help-buffer) (point)))
(beg (if (and (or (byte-code-function-p def)
@@ -586,7 +589,7 @@ FILE is the file where FUNCTION was probably defined."
(help-fns--key-bindings function)
(with-current-buffer standard-output
- (setq doc (help-fns--signature function doc real-def real-function))
+ (setq doc (help-fns--signature function doc sig-key real-function))
(run-hook-with-args 'help-fns-describe-function-functions function)
(insert "\n"
(or doc "Not documented.")))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 0ed044d: * lisp/help-fns.el (describe-function-1):,
Glenn Morris <=