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