From d647640760eedb9dc1fe8d1ce77edea97506dc1a Mon Sep 17 00:00:00 2001 From: Keitaro Miyazaki Date: Sat, 22 Jan 2011 15:54:27 -0500 Subject: [PATCH] Fix toggling of case-fold-search from re-builder menu (Bug#7650). * emacs-lisp/re-builder.el (reb-mode-map): Set case-fold-search in the correct buffer. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/re-builder.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e8d56288944..789d646f6d0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-01-22 Keitaro Miyazaki + + * emacs-lisp/re-builder.el (reb-mode-map): Set case-fold-search in + the correct buffer (Bug#7650). + 2011-01-22 Glenn Morris * button.el (make-text-button): Doc fix. (See bug#7881) diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index db14b9574e6..fd47c576404 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -247,7 +247,9 @@ Except for Lisp syntax this is the same as `reb-regexp'.") :help "Quit the RE Builder mode")) (define-key menu-map [rt] '(menu-item "Case sensitive" reb-toggle-case - :button (:toggle . (null case-fold-search)) + :button (:toggle . (with-current-buffer + reb-target-buffer + (null case-fold-search))) :help "Toggle case sensitivity of searches for RE Builder target buffer")) (define-key menu-map [rb] '(menu-item "Change target buffer..." reb-change-target-buffer -- 2.11.4.GIT