Re: project--files-in-directory: code formatting

[Dmitry Gutov]

On 04.11.2020 16:30, Stefan Monnier wrote:
> (if you replace
> the empty string with a symbol, it does catch it, tho)

I tried it with a symbol. Yet, the red failed to show up with my config.

Looking at the text properties, 'help-echo' was there, but not the 
'face' property. Apparently that is because of this personal setup I 
have for dimming parens:

(defface esk-paren-face
  '((((class color) (background light))
     (:foreground "grey55")))
  "Face for parens.")

(dolist (mode '(scheme emacs-lisp lisp lisp-interaction clojure 
clojurescript
                       inferior-emacs-lisp nrepl))
  (when (> (display-color-cells) 8)
    (font-lock-add-keywords (intern (format "%s-mode" mode))
                            '(("(\\|)" . 'esk-paren-face))))
  (add-hook (intern (format "%s-mode-hook" mode)) 'paredit-mode))

One way to avoid the conflict would be to avoid matching parens in 
lisp--match-hidden-arg, but that seems very ad-hoc.

How about this? Fixes the string literal case as well.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 352210f859..d4411f1fa4 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -477,8 +477,9 @@ lisp--match-confusable-symbol-character
            (1 'font-lock-regexp-grouping-backslash prepend)
            (3 'font-lock-regexp-grouping-construct prepend))
          (lisp--match-hidden-arg
-          (0 '(face font-lock-warning-face
-                    help-echo "Hidden behind deeper element; move to 
another line?")))
+          (0 '( face font-lock-warning-face
+                help-echo "Hidden behind deeper element; move to 
another line?")
+             t))
          (lisp--match-confusable-symbol-character
           0 '(face font-lock-warning-face
                     help-echo "Confusable character"))
@@ -521,8 +522,9 @@ lisp--match-confusable-symbol-character
          (,(concat "(\\(\\(do-\\|with-\\)" lisp-mode-symbol-regexp "\\)")
            (1 font-lock-keyword-face))
          (lisp--match-hidden-arg
-          (0 '(face font-lock-warning-face
-               help-echo "Hidden behind deeper element; move to another 
line?")))
+          (0 '( face font-lock-warning-face
+                help-echo "Hidden behind deeper element; move to 
another line?")
+             t))
          ))
       "Gaudy level highlighting for Lisp modes.")))