diff options
| author | Wilson Snyder | 2015-09-18 08:50:03 -0400 |
|---|---|---|
| committer | Wilson Snyder | 2015-09-18 08:50:03 -0400 |
| commit | ba3495674e8c6c98f2f180908b2af600a2bd3d2e (patch) | |
| tree | 1ed47c50ac325693b921cfab48dc946dc111b2f5 | |
| parent | 17e5f43697992a0a3d3607013ee55b17b680f989 (diff) | |
| download | emacs-ba3495674e8c6c98f2f180908b2af600a2bd3d2e.tar.gz emacs-ba3495674e8c6c98f2f180908b2af600a2bd3d2e.zip | |
Fix checkdoc warnings.
* lisp/progmodes/verilog-mode.el (verilog-forward-sexp-function)
(verilog-decls-princ) (verilog-modport-princ)
(verilog-modi-modport-lookup-one): Fix checkdoc warnings.
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 3baf768052c..85733e16190 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el | |||
| @@ -123,7 +123,7 @@ | |||
| 123 | ;; | 123 | ;; |
| 124 | 124 | ||
| 125 | ;; This variable will always hold the version number of the mode | 125 | ;; This variable will always hold the version number of the mode |
| 126 | (defconst verilog-mode-version "2015-08-16-ce03c7a-vpo-GNU" | 126 | (defconst verilog-mode-version "2015-09-18-314cf1d-vpo-GNU" |
| 127 | "Version of this Verilog mode.") | 127 | "Version of this Verilog mode.") |
| 128 | (defconst verilog-mode-release-emacs t | 128 | (defconst verilog-mode-release-emacs t |
| 129 | "If non-nil, this version of Verilog mode was released with Emacs itself.") | 129 | "If non-nil, this version of Verilog mode was released with Emacs itself.") |
| @@ -3442,7 +3442,7 @@ Use filename, if current buffer being edited shorten to just buffer name." | |||
| 3442 | (verilog-forward-sexp)) | 3442 | (verilog-forward-sexp)) |
| 3443 | 3443 | ||
| 3444 | (defun verilog-forward-sexp-function (arg) | 3444 | (defun verilog-forward-sexp-function (arg) |
| 3445 | "Move forward a sexp." | 3445 | "Move forward ARG sexps." |
| 3446 | ;; Used by hs-minor-mode | 3446 | ;; Used by hs-minor-mode |
| 3447 | (if (< arg 0) | 3447 | (if (< arg 0) |
| 3448 | (verilog-backward-sexp) | 3448 | (verilog-backward-sexp) |
| @@ -8129,7 +8129,8 @@ Tieoff value uses `verilog-active-low-regexp' and | |||
| 8129 | ;; | 8129 | ;; |
| 8130 | 8130 | ||
| 8131 | (defun verilog-decls-princ (decls &optional header prefix) | 8131 | (defun verilog-decls-princ (decls &optional header prefix) |
| 8132 | "For debug, dump the `verilog-read-decls' structure DECLS." | 8132 | "For debug, dump the `verilog-read-decls' structure DECLS. |
| 8133 | Use optional HEADER and PREFIX." | ||
| 8133 | (when decls | 8134 | (when decls |
| 8134 | (if header (princ header)) | 8135 | (if header (princ header)) |
| 8135 | (setq prefix (or prefix "")) | 8136 | (setq prefix (or prefix "")) |
| @@ -8173,7 +8174,7 @@ Tieoff value uses `verilog-active-low-regexp' and | |||
| 8173 | (princ "\n"))))) | 8174 | (princ "\n"))))) |
| 8174 | 8175 | ||
| 8175 | (defun verilog-modport-princ (modports &optional header prefix) | 8176 | (defun verilog-modport-princ (modports &optional header prefix) |
| 8176 | "For debug, dump internal MODPORT structures, with HEADER and PREFIX." | 8177 | "For debug, dump internal MODPORTS structures, with HEADER and PREFIX." |
| 8177 | (when modports | 8178 | (when modports |
| 8178 | (if header (princ header)) | 8179 | (if header (princ header)) |
| 8179 | (while modports | 8180 | (while modports |
| @@ -9994,7 +9995,8 @@ and invalidating the cache." | |||
| 9994 | 9995 | ||
| 9995 | 9996 | ||
| 9996 | (defun verilog-modi-modport-lookup-one (modi name &optional ignore-error) | 9997 | (defun verilog-modi-modport-lookup-one (modi name &optional ignore-error) |
| 9997 | "Given a MODI, return the declarations related to the given modport NAME." | 9998 | "Given a MODI, return the declarations related to the given modport NAME. |
| 9999 | Report errors unless optional IGNORE-ERROR." | ||
| 9998 | ;; Recursive routine - see below | 10000 | ;; Recursive routine - see below |
| 9999 | (let* ((realname (verilog-symbol-detick name t)) | 10001 | (let* ((realname (verilog-symbol-detick name t)) |
| 10000 | (modport (assoc name (verilog-decls-get-modports (verilog-modi-get-decls modi))))) | 10002 | (modport (assoc name (verilog-decls-get-modports (verilog-modi-get-decls modi))))) |