mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Further fixes for cl--generic-describe and (function ...)

Browse source 
* lisp/emacs-lisp/cl-generic.el (cl--generic-describe): Fix the #'
problem for defmethods, too (bug#54628).
This commit is contained in:
Lars Ingebrigtsen 2022-04-04 12:48:47 +02:00
parent f365607bc0
commit 773d4104a5
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/cl-generic.el
View file

@ -1096,13 +1096,12 @@ MET-NAME is as returned by `cl--generic-load-hist-format'."
(dolist (method (cl--generic-method-table generic)) (dolist (method (cl--generic-method-table generic))
(let* ((info (cl--generic-method-info method))) (let* ((info (cl--generic-method-info method)))
;; FIXME: Add hyperlinks for the types as well. ;; FIXME: Add hyperlinks for the types as well.
(if (length> (nth 0 info) 0) (let ((print-quoted nil))
(insert (format "%s%S" (nth 0 info) (if (length> (nth 0 info) 0)
(let ((print-quoted nil)) (insert (format "%s%S" (nth 0 info) (nth 1 info)))
(nth 1 info)))) ;; Make the non-":extra" bits look more like `C-h f'
;; Make the non-":extra" bits look more like `C-h f' ;; output.
;; output. (insert (format "%S" (cons function (nth 1 info))))))
(insert (format "%S" (cons function (nth 1 info)))))
(let* ((met-name (cl--generic-load-hist-format (let* ((met-name (cl--generic-load-hist-format
function function
(cl--generic-method-qualifiers method) (cl--generic-method-qualifiers method)