mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/find-func.el: Fix Eager macro-expansion failure

Browse source 
Bug#78446
This commit is contained in:
Lin Sun 2025-05-15 06:30:44 +00:00 • committed by Stefan Monnier
parent 9dfc605654
commit cb1b65f392
1 changed files with 18 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/emacs-lisp/find-func.el
View file

@ -197,20 +197,9 @@ for completion."
:version "29.1"
:group 'find-function)
(defcustom find-function-mode-lower-precedence nil
"If non-nil, `find-function-mode' defines keys in the global map.
This is for compatibility with the historical behavior of
the old `find-function-setup-keys'."
:type 'boolean
:version "31.1"
:group 'find-function
:set (lambda (symbol value)
;; Toggle the mode off before changing this setting in order to
;; avoid getting into an inconsistent state.
(let ((already-on find-function-mode))
(when already-on (find-function-mode -1))
(set-default symbol value)
(when already-on (find-function-mode 1)))))
;; Compiler defvars. The variable will be defined later with
;; `defcustom' when everything used in the :set functions is defined.
(defvar find-function-mode-lower-precedence)
;;; Functions:
@ -891,6 +880,21 @@ See `find-function-on-key'."
(find-function-mode 1))
(make-obsolete 'find-function-setup-keys 'find-function-mode "31.1")
;; Custom variables with :set requires everything be defined
(defcustom find-function-mode-lower-precedence nil
"If non-nil, `find-function-mode' defines keys in the global map.
This is for compatibility with the historical behavior of
the old `find-function-setup-keys'."
:type 'boolean
:version "31.1"
:set (lambda (symbol value)
;; Toggle the mode off before changing this setting in order to
;; avoid getting into an inconsistent state.
(let ((already-on find-function-mode))
(when already-on (find-function-mode -1))
(set-default symbol value)
(when already-on (find-function-mode 1)))))
(provide 'find-func)
;;; find-func.el ends here