emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r105833: Preserve current isearch cas


From: Juri Linkov
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r105833: Preserve current isearch case-fold value in `isearch-edit-string'.
Date: Sun, 18 Sep 2011 23:28:45 +0300
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 105833
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2011-09-18 23:28:45 +0300
message:
  Preserve current isearch case-fold value in `isearch-edit-string'.
  
  * lisp/isearch.el (isearch-edit-string): Bind `isearch-new-case-fold'
  to `isearch-case-fold-search' and restore its original value
  after the `isearch-mode' call.
modified:
  lisp/ChangeLog
  lisp/isearch.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-18 20:20:08 +0000
+++ b/lisp/ChangeLog    2011-09-18 20:28:45 +0000
@@ -1,5 +1,11 @@
 2011-09-18  Juri Linkov  <address@hidden>
 
+       * isearch.el (isearch-edit-string): Bind `isearch-new-case-fold'
+       to `isearch-case-fold-search' and restore its original value
+       after the `isearch-mode' call.
+
+2011-09-18  Juri Linkov  <address@hidden>
+
        * progmodes/grep.el (grep-process-setup): Don't check code for 1
        because `zgrep' returns 1 for successful matches (bug#9226).
 

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2011-09-14 16:07:42 +0000
+++ b/lisp/isearch.el   2011-09-18 20:28:45 +0000
@@ -1110,6 +1110,7 @@
              (isearch-new-message isearch-message)
              (isearch-new-forward isearch-forward)
              (isearch-new-word isearch-word)
+             (isearch-new-case-fold isearch-case-fold-search)
 
              (isearch-regexp isearch-regexp)
              (isearch-op-fun isearch-op-fun)
@@ -1203,7 +1204,8 @@
            (setq isearch-string isearch-new-string
                  isearch-message isearch-new-message
                  isearch-forward isearch-new-forward
-                 isearch-word isearch-new-word))
+                 isearch-word isearch-new-word
+                 isearch-case-fold-search isearch-new-case-fold))
 
          ;; Empty isearch-string means use default.
          (when (= 0 (length isearch-string))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]