bug#53255: highlight-regexp should show faces with their properties applied when selecting a face

["Kévin Le Gouguec" <kevin.legouguec@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1424 bytes --]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> So I put the affixion thing into read-file-name and made hi-lock call
> read-file-name instead of doing the completion itself.

Great!  A couple of nits:

1. Is there a reason why you went with (list "SAMPLE\t" "" face) instead
   of (list face "" \tSAMPLE)?  "(elisp) Completion Variables" says that
   the completion goes first, then the prefix, then the suffix; I don't
   know how hard a rule that is, however I do think the latter option
   fares better when faced with variable heights.

   Cf. patch and screenshots: I like the second option better because
   IIUC the face names (which is what I'll be focusing my eyes on in
   order to know what to type; the face decoration I can see well enough
   in my peripheral vision) stand a better chance of being aligned.

   (Although I don't know if it's the hour getting late or something,
   but now that I actually try out C-u M-s h r I just… can't get any
   highlighting, with or without my patch on top.  The completion works
   fine, but when I exit the minibuffer… nothing gets highlighted.

   Ugh.  Will sleep on it)

2. As you can see on the screenshots, the prompt shows the default face
   twice.  I think fixing this is as simple as removing format-prompt
   (patch also attached), but then again, I'm not thinking straight this
   evening it seems.

Thanks for your time.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: affixation.patch --]
[-- Type: text/x-patch, Size: 632 bytes --]

diff --git a/lisp/faces.el b/lisp/faces.el
index bb9b1e979f..cd6145cf68 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1112,10 +1112,10 @@ read-face-name
            (lambda (faces)
              (mapcar
               (lambda (face)
-                (list (concat (propertize "SAMPLE" 'face face)
-                              "\t")
+                (list face
                       ""
-                      face))
+                      (concat "\t"
+                              (propertize "SAMPLE" 'face face))))
               faces))))
         aliasfaces nonaliasfaces faces)
     ;; Build up the completion tables.

[-- Attachment #3: current.png --]
[-- Type: image/png, Size: 99434 bytes --]

[-- Attachment #4: suggested.png --]
[-- Type: image/png, Size: 99488 bytes --]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #5: defaults.patch --]
[-- Type: text/x-patch, Size: 688 bytes --]

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 53e6f779b3..c748bdebfb 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -730,9 +730,7 @@ hi-lock-read-face-name
     (if (and hi-lock-auto-select-face (not current-prefix-arg))
 	(setq face (or (pop hi-lock--unused-faces) (car defaults)))
       (setq face (symbol-name
-                  (read-face-name
-                   (format-prompt "Highlight using face" (car defaults))
-                   defaults)))
+                  (read-face-name "Highlight using face" defaults)))
       ;; Update list of un-used faces.
       (setq hi-lock--unused-faces (remove face hi-lock--unused-faces))
       ;; Grow the list of defaults.