diff options
author | Po Lu <luangruo@yahoo.com> | 2023-07-09 08:40:38 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2023-07-09 08:40:38 +0800 |
commit | f812d92f67a28f49823ff8414bb9bcfb3eb82676 (patch) | |
tree | 08e7d08347f56cf16be643e83de8de3199bcde7d /lisp/menu-bar.el | |
parent | a36207574ac436fd8871639388cc6400069bb9bb (diff) | |
parent | 9c282faf26eb517532508d466270b7b97d436c70 (diff) | |
download | emacs-f812d92f67a28f49823ff8414bb9bcfb3eb82676.tar.gz |
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r-- | lisp/menu-bar.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 43087ec3cbe..825e9acc069 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1477,30 +1477,30 @@ mail status in mode line")) (word-search-regexp "Whole Words" "Whole word"))) (bindings--define-key menu (vector (nth 0 x)) `(menu-item ,(nth 1 x) - (lambda () - (interactive) - (setq search-default-mode #',(nth 0 x)) - (message ,(format "%s search enabled" (nth 2 x)))) + ,(lambda () + (interactive) + (setq search-default-mode (nth 0 x)) + (message "%s search enabled" (nth 2 x))) :help ,(format "Enable %s search" (downcase (nth 2 x))) :button (:radio . (eq search-default-mode #',(nth 0 x)))))) (bindings--define-key menu [regexp-search] - '(menu-item "Regular Expression" - (lambda () - (interactive) - (setq search-default-mode t) - (message "Regular-expression search enabled")) + `(menu-item "Regular Expression" + ,(lambda () + (interactive) + (setq search-default-mode t) + (message "Regular-expression search enabled")) :help "Enable regular-expression search" :button (:radio . (eq search-default-mode t)))) (bindings--define-key menu [regular-search] - '(menu-item "Literal Search" - (lambda () - (interactive) - (when search-default-mode - (setq search-default-mode nil) - (when (symbolp search-default-mode) - (message "Literal search enabled")))) + `(menu-item "Literal Search" + ,(lambda () + (interactive) + (when search-default-mode + (setq search-default-mode nil) + (when (symbolp search-default-mode) + (message "Literal search enabled")))) :help "Disable special search modes" :button (:radio . (not search-default-mode)))) |