emacs-diffs
[Top][All Lists]
Advanced

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

master c2e90d1: lisp/progmodes/verilog-mode.el internal code cleanup.


From: Wilson Snyder
Subject: master c2e90d1: lisp/progmodes/verilog-mode.el internal code cleanup.
Date: Tue, 30 Mar 2021 07:55:39 -0400 (EDT)

branch: master
commit c2e90d11190fea8e9c32fcd6bc9e4a88b3cbf0de
Author: Mattias Engdegard <mattiase@acm.org>
Commit: Wilson Snyder <wsnyder@wsnyder.org>

    lisp/progmodes/verilog-mode.el internal code cleanup.
    
    * lisp/progmodes/verilog-mode.el (verilog-at-close-struct-p):
    Internal code cleanup.
---
 lisp/progmodes/verilog-mode.el | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 8ba3483..a7f7295 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -9,7 +9,7 @@
 ;; Keywords: languages
 ;; The "Version" is the date followed by the decimal rendition of the Git
 ;;     commit hex.
-;; Version: 2021.03.29.215531170
+;; Version: 2021.03.30.243771231
 
 ;; Yoni Rabkin <yoni@rabkins.net> contacted the maintainer of this
 ;; file on 19/3/2008, and the maintainer agreed that when a bug is
@@ -124,7 +124,7 @@
 ;;
 
 ;; This variable will always hold the version number of the mode
-(defconst verilog-mode-version "2021-03-29-cd8bea2-vpo-GNU"
+(defconst verilog-mode-version "2021-03-30-e87a75f-vpo-GNU"
   "Version of this Verilog mode.")
 (defconst verilog-mode-release-emacs t
   "If non-nil, this version of Verilog mode was released with Emacs itself.")
@@ -6650,14 +6650,9 @@ Return >0 for nested struct."
 
 (defun verilog-at-close-struct-p ()
   "If at the } that closes a struct, return true."
-  (if (and
-       (equal (char-after) ?\})
-       (verilog-in-struct-p))
-      ;; true
-      (save-excursion
-        (if (looking-at "}\\(?:\\s-*\\w+\\s-*\\(\\s-*\\,\\s-*\\w+\\)*\\)?;") 
1))
-    ;; false
-    nil))
+  (and (equal (char-after) ?\})
+       (verilog-in-struct-p)
+       (looking-at "}\\(?:\\s-*\\w+\\s-*\\(?:,\\s-*\\w+\\s-*\\)*\\)?;")))
 
 (defun verilog-parenthesis-depth ()
   "Return non zero if in parenthetical-expression."



reply via email to

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