np/verilog-align-ports
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace the error message with a nil return.

Browse Source
This commit is contained in:
Nikolay Puzanov 2026-02-05 15:09:17 +03:00
parent a1107b911a
commit 6f6e4ef29b
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
verilog-align-ports.el
View File

@ -67,24 +67,23 @@
(defun verilog-align-ports--bounds ()
(save-excursion
(unless (verilog-align-ports--line-port-p (line-beginning-position))
(user-error "Point is not on a port declaration line"))
(let ((start (line-beginning-position))
(end nil))
(while (and (not (bobp))
(save-excursion
(forward-line -1)
(verilog-align-ports--line-port-p
(line-beginning-position))))
(forward-line -1)
(setq start (line-beginning-position)))
(goto-char start)
(while (and (not (eobp))
(verilog-align-ports--line-port-p
(line-beginning-position)))
(forward-line 1))
(setq end (line-beginning-position))
(cons start end))))
(and (verilog-align-ports--line-port-p (line-beginning-position))
(let ((start (line-beginning-position))
(end nil))
(while (and (not (bobp))
(save-excursion
(forward-line -1)
(verilog-align-ports--line-port-p
(line-beginning-position))))
(forward-line -1)
(setq start (line-beginning-position)))
(goto-char start)
(while (and (not (eobp))
(verilog-align-ports--line-port-p
(line-beginning-position)))
(forward-line 1))
(setq end (line-beginning-position))
(cons start end)))))
(defun verilog-align-ports--collect (start end)
(let (entries)
@ -169,14 +168,15 @@
(defun verilog-align-ports ()
"Align SystemVerilog port declarations around point."
(interactive)
(let* ((bounds (verilog-align-ports--bounds))
(start (car bounds))
(end (cdr bounds))
(entries (verilog-align-ports--collect start end)))
(when (null entries)
(user-error "No port declarations found"))
(let ((lines (verilog-align-ports--format-lines entries)))
(verilog-align-ports--apply start lines))))
(let ((bounds (verilog-align-ports--bounds)))
(and bounds
(let* ((start (car bounds))
(end (cdr bounds))
(entries (verilog-align-ports--collect start end)))
(and entries
(let ((lines (verilog-align-ports--format-lines entries)))
(verilog-align-ports--apply start lines)
t))))))
(provide 'verilog-align-ports)