mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

lisp/progmodes/verilog-mode.el internal code cleanup.

Browse source 
* lisp/progmodes/verilog-mode.el (verilog-at-close-struct-p):
Internal code cleanup.
This commit is contained in:
Mattias Engdegard 2021-03-30 07:54:41 -04:00 • committed by Wilson Snyder
parent 4bfcfdb416
commit c2e90d1119
1 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/progmodes/verilog-mode.el
View file

@ -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."