From c2e90d11190fea8e9c32fcd6bc9e4a88b3cbf0de Mon Sep 17 00:00:00 2001 From: Mattias Engdegard Date: Tue, 30 Mar 2021 07:54:41 -0400 Subject: [PATCH] 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 8ba3483bcca..a7f72950b10 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 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." -- 2.39.2