diff options
| -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." | |||
| 1952 | ;; new obarray. | 1952 | ;; new obarray. |
| 1953 | (if (not (listp lst)) (setq lst nil)) | 1953 | (if (not (listp lst)) (setq lst nil)) |
| 1954 | (unless is-advice | 1954 | (unless is-advice |
| 1955 | ;; lst here can be something like ((foo bar) baz) from | 1955 | ;; (car lst) can be something like ((foo bar) baz) from |
| 1956 | ;; cl-lib methods; flatten it: | 1956 | ;; cl-lib methods; flatten it: |
| 1957 | (setq lst (flatten-tree lst)) | ||
| 1958 | (while lst | 1957 | (while lst |
| 1959 | (setq ret (cons (symbol-name (car lst)) ret) | 1958 | (setq ret (cons (symbol-name (car (flatten-tree (car lst)))) ret) |
| 1960 | lst (cdr lst))))) | 1959 | lst (cdr lst))))) |
| 1961 | (nreverse ret)))) | 1960 | (nreverse ret)))) |
| 1962 | 1961 | ||