diff options
| author | Eshel Yaron | 2025-10-03 19:09:05 +0200 |
|---|---|---|
| committer | Eshel Yaron | 2025-10-03 19:11:26 +0200 |
| commit | c412bd83ff582694621918289547e4e33a033fb1 (patch) | |
| tree | 1a8138ea7f7a6fa401d3ec313bf5c96a7bf8b628 | |
| parent | 320df8ad358eecefd6ff40ba0eab171f8de6f9d7 (diff) | |
| download | emacs-c412bd83ff582694621918289547e4e33a033fb1.tar.gz emacs-c412bd83ff582694621918289547e4e33a033fb1.zip | |
; elisp-scope.el: Fix 'custom-declare-face' analyzer.
| -rw-r--r-- | lisp/emacs-lisp/elisp-scope.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/elisp-scope.el b/lisp/emacs-lisp/elisp-scope.el index d071721abf4..3a4f9c675dc 100644 --- a/lisp/emacs-lisp/elisp-scope.el +++ b/lisp/emacs-lisp/elisp-scope.el | |||
| @@ -1871,8 +1871,9 @@ property, or if the current buffer is trusted (see `trusted-content-p')." | |||
| 1871 | (elisp-scope-define-function-analyzer custom-declare-face (face spec doc &rest args) | 1871 | (elisp-scope-define-function-analyzer custom-declare-face (face spec doc &rest args) |
| 1872 | (elisp-scope-1 face '(symbol . defface)) | 1872 | (elisp-scope-1 face '(symbol . defface)) |
| 1873 | ;; TODO: Use `elisp-scope-1' with an appropriate outspec. | 1873 | ;; TODO: Use `elisp-scope-1' with an appropriate outspec. |
| 1874 | (when-let* ((q (elisp-scope--unquote spec))) | 1874 | (if-let* ((q (elisp-scope--unquote spec))) |
| 1875 | (when (consp q) (dolist (s q) (elisp-scope-face (cdr s))))) | 1875 | (when (consp q) (dolist (s q) (elisp-scope-face (cdr s)))) |
| 1876 | (elisp-scope-1 spec)) | ||
| 1876 | (elisp-scope-1 doc) | 1877 | (elisp-scope-1 doc) |
| 1877 | (while-let ((kw (car-safe args)) | 1878 | (while-let ((kw (car-safe args)) |
| 1878 | (bkw (elisp-scope-sym-bare kw)) | 1879 | (bkw (elisp-scope-sym-bare kw)) |