From 3f51f129bc73f0307289e8817a1e8317120be7c0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 May 1998 01:00:03 +0000 Subject: [PATCH] (toggle-case-fold-search): New command. (menu-bar-options-menu): Put that in the menu. --- lisp/menu-bar.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index b0015abda8e..eec880a5cbd 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -415,6 +415,10 @@ Do the same for the keys of the same name." (setq uniquify-buffer-name-style (if (not uniquify-buffer-name-style) 'forward)))) +(define-key menu-bar-options-menu [case-fold-search] + (menu-bar-make-toggle toggle-case-fold-search case-fold-search + "Case folding in searches" + "Case folding in searches %s")) (define-key menu-bar-options-menu [transient-mark-mode] (menu-bar-make-toggle toggle-transient-mark-mode transient-mark-mode "Transient Mark Mode (highlights region)" -- 2.39.2