GNU bug report logs - #24510
25.1; Info: searching for ` does not find what looks like `

Previous Next

Full log

Message #163 received at 24510 <at> debbugs.gnu.org (full text, mbox):

From: Juri Linkov <juri <at> linkov.net>
To: Lars Ingebrigtsen <larsi <at> gnus.org>
Cc: Drew Adams <drew.adams <at> oracle.com>, 24510 <at> debbugs.gnu.org
Subject: Re: bug#24510: 25.1; Info: searching for ` does not find what looks
 like `
Date: Fri, 06 May 2022 18:32:13 +0300

>> +  (unless search-default-mode
>> +    (setq-local search-default-mode
>> +                (lambda (string &optional _lax)
>> +                  (thread-last
>> +                    (regexp-quote string)
>> +                    (replace-regexp-in-string "`" "[`‘]")
>> +                    (replace-regexp-in-string "'" "['’]")))))
>
> Thanks; I separated this out into a tiny minor mode, and switched that
> on in help-mode and info-mode instead.

I noticed that Info also contains double quotation marks,
so these could be added as well:

                        (replace-regexp-in-string "\"" "[\"“”]")

Also this improves tests:

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 6bcac2a5eb..8f3ee66e00 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -1065,6 +1065,9 @@ test-local-set-state
     (let ((state (buffer-local-set-state global 10
                                          local 20
                                          unexist 30)))
+      (should (= global 10))
+      (should (= local 20))
+      (should (= unexist 30))
       (buffer-local-restore-state state)
       (should (= global 1))
       (should (= local 2))

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.