[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master eeb5157: emacs-lisp/checkdoc.el: Don't complain abo
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master eeb5157: emacs-lisp/checkdoc.el: Don't complain about args starting with _. |
Date: |
Wed, 25 Mar 2015 17:50:34 +0000 |
branch: master
commit eeb515715d50e55477b6bc9c5a64fbb57dfaec94
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
emacs-lisp/checkdoc.el: Don't complain about args starting with _.
---
lisp/ChangeLog | 5 +++++
lisp/emacs-lisp/checkdoc.el | 5 +++--
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e747330..2d150ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-25 Artur Malabarba <address@hidden>
+
+ * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
+ Don't complain about args starting with _.
+
2015-03-25 Stefan Monnier <address@hidden>
* international/mule-cmds.el (mule--ucs-names-annotation): New func.
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 288e25e..777fed0 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master eeb5157: emacs-lisp/checkdoc.el: Don't complain about args starting with _.,
Artur Malabarba <=