procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve list-dynamic-libraries when alist empty

Browse source 
* lisp/misc.el (list-dynamic-libraries--refresh): Improve list format
and show message when 'dynamic-library-alist' is empty.
This commit is contained in:
Stefan Kangas 2020-04-25 23:30:22 +02:00
parent 519567878f
commit eb65ac526c
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/misc.el
View file

@ -162,7 +162,7 @@ Internal use only."
"Recompute the list of dynamic libraries.
Internal use only."
(setq tabulated-list-format ; recomputed because column widths can change
(let ((max-id-len 0) (max-name-len 0))
(let ((max-id-len 7) (max-name-len 11))
(dolist (lib dynamic-library-alist)
(let ((id-len (length (symbol-name (car lib))))
(name-len (apply 'max (mapcar 'length (cdr lib)))))
@ -181,7 +181,9 @@ Internal use only."
(push (list id (vector (symbol-name id)
(list-dynamic-libraries--loaded from)
(mapconcat 'identity (cdr lib) ", ")))
tabulated-list-entries)))))
tabulated-list-entries))))
(when (not dynamic-library-alist)
(message "No dynamic libraries found")))
;;;###autoload
(defun list-dynamic-libraries (&optional loaded-only-p buffer)