mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Fix 'apropos-library' for 'define-symbol-props'

Browse Source 
* lisp/apropos.el (apropos-library): Sanitize data to avoid
signaling errors when 'define-symbol-props' is seen.  (Bug#72616)
This commit is contained in:
Stefan Monnier 2024-08-14 08:47:40 -04:00 committed by Eli Zaretskii
parent 5c1bd99139
commit bfe07eca59
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/apropos.el
View File

@ -734,7 +734,10 @@ the output includes key-bindings of commands."
;; FIXME: Print information about each individual method: both ;; FIXME: Print information about each individual method: both
;; its docstring and specializers (bug#21422). ;; its docstring and specializers (bug#21422).
('cl-defmethod (push (cadr x) provides)) ('cl-defmethod (push (cadr x) provides))
(_ (push (or (cdr-safe x) x) symbols)))) ;; FIXME: Add extension point (bug#72616).
(_ (let ((sym (or (cdr-safe x) x)))
(and sym (symbolp sym)
(push sym symbols))))))
(let ((apropos-pattern "") ;Dummy binding for apropos-symbols-internal. (let ((apropos-pattern "") ;Dummy binding for apropos-symbols-internal.
(text (text
(concat (concat