]> git.eshelyaron.com Git - emacs.git/commitdiff
Make checkdoc work better with cl-lib functions
authordick r. chiang <dick.r.chiang@gmail.com>
Thu, 10 Oct 2019 00:18:20 +0000 (02:18 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Thu, 10 Oct 2019 00:18:20 +0000 (02:18 +0200)
* lisp/emacs-lisp/checkdoc.el (checkdoc-defun-info): Make checkdoc
work for cl-lib methods with more complex parameter lists
(bug#37063).

Copyright-paperwork-exempt: yes

lisp/emacs-lisp/checkdoc.el

index 51fb75da691d1487a24a97fd0ef47a20afc7336f..6c40bdf632e9166184b6a0a25f8433b09ed0ac03 100644 (file)
@@ -1952,11 +1952,10 @@ from the comment."
        ;; new obarray.
        (if (not (listp lst)) (setq lst nil))
        (unless is-advice
-          ;; lst here can be something like ((foo bar) baz) from
+          ;; (car lst) can be something like ((foo bar) baz) from
           ;; cl-lib methods; flatten it:
-          (setq lst (flatten-tree lst))
          (while lst
-           (setq ret (cons (symbol-name (car lst)) ret)
+           (setq ret (cons (symbol-name (car (flatten-tree (car lst)))) ret)
                  lst (cdr lst)))))
       (nreverse ret))))