emacs-diffs
[Top][All Lists]
Advanced

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

master c2fcb6ca5c4: * lisp/progmodes/cc-langs.el (c-cpp-matchers): Remov


From: Alan Mackenzie
Subject: master c2fcb6ca5c4: * lisp/progmodes/cc-langs.el (c-cpp-matchers): Remove an unneeded let*.
Date: Sat, 26 Oct 2024 07:02:47 -0400 (EDT)

branch: master
commit c2fcb6ca5c4baea5eed39376be12c21e03a960c2
Author: Alan Mackenzie <acm@muc.de>
Commit: Alan Mackenzie <acm@muc.de>

    * lisp/progmodes/cc-langs.el (c-cpp-matchers): Remove an unneeded let*.
---
 lisp/progmodes/cc-fonts.el | 37 +++++++++++++++++--------------------
 1 file changed, 17 insertions(+), 20 deletions(-)

diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 3a87339e38a..83afe081b85 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -556,26 +556,23 @@ stuff.  Used on level 1 and higher."
 
              ;; Fontify filenames in #include <...> as strings.
              ,@(when (c-lang-const c-cpp-include-directives)
-                 (let* ((re (c-make-keywords-re nil
-                              (c-lang-const c-cpp-include-directives)))
-                        (re-depth (regexp-opt-depth re)))
-                   ;; We used to use a font-lock "anchored matcher" here for
-                   ;; the paren syntax.  This failed when the ">" was at EOL,
-                   ;; since `font-lock-fontify-anchored-keywords' terminated
-                   ;; its loop at EOL without executing our lambda form at
-                   ;; all.
-                   `((,(concat noncontinued-line-end
-                               "\\("   ; To make the next ^ special.
-                               (c-lang-const c-cpp-include-key)
-                               "\\)"
-                               (c-lang-const c-syntactic-ws)
-                               "\\(<\\([^>\n\r]*\\)>?\\)")
-                      ,(+ ncle-depth 1
-                          (regexp-opt-depth
-                           (c-lang-const c-cpp-include-key))
-                          sws-depth
-                          (if (featurep 'xemacs) 2 1))
-                      font-lock-string-face t))))
+                 ;; We used to use a font-lock "anchored matcher" here for
+                 ;; the paren syntax.  This failed when the ">" was at EOL,
+                 ;; since `font-lock-fontify-anchored-keywords' terminated
+                 ;; its loop at EOL without executing our lambda form at all.
+                 ;; (2024-10): The paren syntax is now handled in
+                 ;; before/after-change functions.
+                 `((,(concat noncontinued-line-end
+                             "\\("     ; To make the next ^ special.
+                             (c-lang-const c-cpp-include-key)
+                             "\\)"
+                             (c-lang-const c-syntactic-ws)
+                             "\\(<\\([^>\n\r]*\\)>?\\)")
+                    ,(+ ncle-depth 1
+                        (regexp-opt-depth (c-lang-const c-cpp-include-key))
+                        sws-depth
+                        (if (featurep 'xemacs) 2 1))
+                    font-lock-string-face t)))
 
              ;; #define.
              ,@(when (c-lang-const c-opt-cpp-macro-define)



reply via email to

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