diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-04-25 23:30:22 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-04-25 23:46:02 +0200 |
| commit | eb65ac526c9dd350b8a6548f2f453a550dac5821 (patch) | |
| tree | 146ea896c1a9bc720a43618873500df84eeccc02 | |
| parent | 519567878fa32715aa377d1fa23240f09ce291f6 (diff) | |
| download | emacs-eb65ac526c9dd350b8a6548f2f453a550dac5821.tar.gz | |
Improve list-dynamic-libraries when alist empty
* lisp/misc.el (list-dynamic-libraries--refresh): Improve list format
and show message when 'dynamic-library-alist' is empty.
| -rw-r--r-- | lisp/misc.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/misc.el b/lisp/misc.el index 05244a6ea2f..3a0989bcab4 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -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) |