diff options
| author | dick r. chiang <dick.r.chiang@gmail.com> | 2019-10-10 02:18:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-10 02:18:20 +0200 |
| commit | b9211d0bc2b0adcef5fd84cc3904ad46818fec73 (patch) | |
| tree | 785e06188e6f5f3ce3ed739d37c6e13fda1eca5d /lisp/emacs-lisp | |
| parent | 9ab3f16c460d91aa556eb35085a90f168b10390f (diff) | |
| download | emacs-b9211d0bc2b0adcef5fd84cc3904ad46818fec73.tar.gz emacs-b9211d0bc2b0adcef5fd84cc3904ad46818fec73.tar.bz2 emacs-b9211d0bc2b0adcef5fd84cc3904ad46818fec73.zip | |
Make checkdoc work better with cl-lib functions
* 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
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 51fb75da691..6c40bdf632e 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -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)))) |