(easy-mmode-define-global-mode): Put `definition-name' properties on

the functions whose names are constructed.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index d916bc2f57c..b1149c7d848 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -290,11 +290,13 @@ in which `%s' turns it on."
            (let ((buf (pop ,buffers)))
              (when (buffer-live-p buf)
                (with-current-buffer buf (,turn-on))))))
+       (put ',buffers 'definition-name ',global-mode)
 
        ;; The function that catches kill-all-local-variables.
        (defun ,cmmh ()
          (add-to-list ',buffers (current-buffer))
-         (add-hook 'post-command-hook ',buffers)))))
+         (add-hook 'post-command-hook ',buffers))
+       (put ',cmmh 'definition-name ',global-mode))))
 
 ;;;
 ;;; easy-mmode-defmap