From d082b26364334416ff24b9ec169817a133a64d02 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 8 Jul 2023 15:08:10 -0400
Subject: [PATCH] * lisp/menu-bar.el (menu-bar-search-options-menu): Don't
quote lambdas
Expose the commands to the compiler.
---
lisp/menu-bar.el | 32 ++++++++++++++++----------------
1 file changed, 16 insertions(+), 16 deletions(-)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 21785e43a6e..030fe374598 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1464,30 +1464,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))))
--
2.39.5