emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/d-mode bc4864d 325/346: d-mode.el: Remove c-font-lock-decl


From: ELPA Syncer
Subject: [nongnu] elpa/d-mode bc4864d 325/346: d-mode.el: Remove c-font-lock-declarations advice
Date: Sun, 29 Aug 2021 11:00:53 -0400 (EDT)

branch: elpa/d-mode
commit bc4864d082aed08f2b4122f3f0a26ac4ac273637
Author: Vladimir Panteleev <git@thecybershadow.net>
Commit: Vladimir Panteleev <git@thecybershadow.net>

    d-mode.el: Remove c-font-lock-declarations advice
    
    Doesn't seem to be necessary any more.
---
 d-mode.el | 28 +---------------------------
 1 file changed, 1 insertion(+), 27 deletions(-)

diff --git a/d-mode.el b/d-mode.el
index dfd3fb9..9d9ee1f 100644
--- a/d-mode.el
+++ b/d-mode.el
@@ -7,7 +7,7 @@
 ;; Maintainer:  Russel Winder <russel@winder.org.uk>
 ;;              Vladimir Panteleev <vladimir@thecybershadow.net>
 ;; Created:  March 2007
-;; Version:  201911122034
+;; Version:  202002131237
 ;; Keywords:  D programming language emacs cc-mode
 ;; Package-Requires: ((emacs "25.1"))
 
@@ -850,32 +850,6 @@ CONTEXT is as in `c-forward-decl-or-cast-1'."
 (advice-add 'c-get-fontification-context :around 
#'d-around--c-get-fontification-context)
 
 ;;----------------------------------------------------------------------------
-;;; Fixes fontification of constructor parameter lists in D code.
-
-(defun d-special-case-looking-at-2 (orig-fun regexp)
-  ;; checkdoc-params: (orig-fun regexp)
-  "Advice function for fixing cc-mode handling of D constructors."
-  (if (and
-       (eq regexp c-not-decl-init-keywords)
-       (apply orig-fun (d-make-keywords-re t '("this")) nil)) ; looking-at 
"this"
-      nil
-    (apply orig-fun regexp nil)))
-
-(defun d-around--c-font-lock-declarations (orig-fun &rest args)
-  ;; checkdoc-params: (orig-fun args)
-  "Advice function for fixing cc-mode handling of D constructors."
-  (if (not (c-major-mode-is 'd-mode))
-      (apply orig-fun args)
-    (add-function :around (symbol-function 'looking-at)
-                 #'d-special-case-looking-at-2)
-    (unwind-protect
-       (apply orig-fun args)
-      (remove-function (symbol-function 'looking-at)
-                      #'d-special-case-looking-at-2))))
-
-(advice-add 'c-font-lock-declarations :around 
#'d-around--c-font-lock-declarations)
-
-;;----------------------------------------------------------------------------
 ;; Borrowed from 
https://github.com/josteink/csharp-mode/blob/master/csharp-mode.el
 (defun d--syntax-propertize-function (beg end)
   "Apply syntax table properties to special constructs in region BEG to END.



reply via email to

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