]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/help-fns.el (describe-function-1):
authorGlenn Morris <rgm@gnu.org>
Tue, 5 May 2015 23:50:43 +0000 (19:50 -0400)
committerGlenn Morris <rgm@gnu.org>
Tue, 5 May 2015 23:50:43 +0000 (19:50 -0400)
Handle builtins with advertised calling conventions.  (Bug#20479)

lisp/help-fns.el

index 90200377428a2af7d858897d14e8f734ea85dfff..4982ee54f467fa58ee4d1df7d2ecc4c57876cb7c 100644 (file)
@@ -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.")))))))