diff options
author | Juri Linkov <juri@linkov.net> | 2022-05-06 21:06:47 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2022-05-06 21:06:47 +0300 |
commit | cbd59395bdccd924ebe39430f32d2d72546a841a (patch) | |
tree | 3060a0edd03f81ed15d2f11a4bed925e2b9e082a /lisp/isearch.el | |
parent | c57a6644ef97b3197c35c0c3ade60acd5607eef4 (diff) | |
download | emacs-cbd59395bdccd924ebe39430f32d2d72546a841a.tar.gz |
Add char-folding of double quotes in isearch-fold-quotes-mode (bug#24510)
* lisp/isearch.el (isearch-fold-quotes-mode): Add char-folding of
double quotation marks.
* test/lisp/subr-tests.el (test-local-set-state): Test values
after setting state.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index b404efd42a1..96168f94bd5 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4467,7 +4467,6 @@ CASE-FOLD non-nil means the search was case-insensitive." (isearch-update)) - (defvar isearch-fold-quotes-mode--state) (define-minor-mode isearch-fold-quotes-mode "Minor mode to aid searching for \\=` characters in help modes." @@ -4480,7 +4479,8 @@ CASE-FOLD non-nil means the search was case-insensitive." (thread-last (regexp-quote string) (replace-regexp-in-string "`" "[`‘]") - (replace-regexp-in-string "'" "['’]"))))) + (replace-regexp-in-string "'" "['’]") + (replace-regexp-in-string "\"" "[\"“”]"))))) (buffer-local-restore-state isearch-fold-quotes-mode--state))) (provide 'isearch) |