From: Philipp Stephani Date: Sun, 28 Jan 2018 20:57:59 +0000 (+0100) Subject: Add support for module functions to C-h f (Bug#30163). X-Git-Tag: emacs-27.0.90~5745 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3d0db7f0f9639ec0198d4f4f2c3eb9c7b495778;p=emacs.git Add support for module functions to C-h f (Bug#30163). * lisp/help-fns.el (help-fns-function-description-header): Handle module functions. * test/src/emacs-module-tests.el (module/describe-function-1): New test. --- diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 7a94d2f61ae..a592809de6a 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -642,6 +642,8 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)." (concat beg "Lisp macro")) ((byte-code-function-p def) (concat beg "compiled Lisp function")) + ((module-function-p def) + (concat beg "module function")) ((eq (car-safe def) 'lambda) (concat beg "Lisp function")) ((eq (car-safe def) 'closure) diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index a6407524ad7..05be8383dcc 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el @@ -18,6 +18,7 @@ ;; along with GNU Emacs. If not, see . */ (require 'ert) +(require 'help-fns) (defconst mod-test-emacs (expand-file-name invocation-name invocation-directory) @@ -261,4 +262,17 @@ during garbage collection." (rx "Module function called during garbage collection\n") (mod-test-invalid-finalizer))) +(ert-deftest module/describe-function-1 () + "Check that Bug#30163 is fixed." + (with-temp-buffer + (let ((standard-output (current-buffer))) + (describe-function-1 #'mod-test-sum) + (should (equal (buffer-substring-no-properties 1 (point-max)) + ;; FIXME: This should print the filename. + "a module function. + +(mod-test-sum a b) + +Return A + B"))))) + ;;; emacs-module-tests.el ends here