diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-25 17:48:15 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-25 17:48:38 +0000 |
| commit | eeb515715d50e55477b6bc9c5a64fbb57dfaec94 (patch) | |
| tree | bfe44e6d0461262b76a8ef717af4d697bf8644cc /lisp/emacs-lisp/checkdoc.el | |
| parent | 7c4a0e3b46dff5ccd2233c24ac0143d3f30747ff (diff) | |
| download | emacs-eeb515715d50e55477b6bc9c5a64fbb57dfaec94.tar.gz | |
emacs-lisp/checkdoc.el: Don't complain about args starting with _.
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 288e25e6060..777fed082d9 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1663,14 +1663,15 @@ function,command,variable,option or symbol." ms1)))))) ;; Addendum: Make sure they appear in the doc in the same ;; order that they are found in the arg list. - (let ((args (cdr (cdr (cdr (cdr fp))))) + (let ((args (nthcdr 4 fp)) (last-pos 0) (found 1) (order (and (nth 3 fp) (car (nth 3 fp)))) (nocheck (append '("&optional" "&rest") (nth 3 fp))) (inopts nil)) (while (and args found (> found last-pos)) - (if (member (car args) nocheck) + (if (or (member (car args) nocheck) + (string-match "\\`_" (car args))) (setq args (cdr args) inopts t) (setq last-pos found |