diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2012-04-10 16:16:05 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2012-04-10 16:16:05 +0200 |
| commit | 2a8ce227d040e564ea6e7b4aecf1dcad5ca6e9c7 (patch) | |
| tree | a522ea953610f470909f0dff44cdf94c1dc81d71 /lisp/misc.el | |
| parent | 8f33b5f8734810e2feb0036bd9b0b34f51f7bc17 (diff) | |
| download | emacs-2a8ce227d040e564ea6e7b4aecf1dcad5ca6e9c7.tar.gz | |
Record and display absolute path of DLLs loaded (bug#10424).
* lisp/misc.el (list-dynamic-libraries--loaded): New function.
(list-dynamic-libraries--refresh): Use it.
* src/w32.c (w32_delayed_load): Record the full path of the library
being loaded.
Diffstat (limited to 'lisp/misc.el')
| -rw-r--r-- | lisp/misc.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/misc.el b/lisp/misc.el index 4706c918db3..cb52ecbd36e 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -138,6 +138,19 @@ variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'." (defvar list-dynamic-libraries--loaded-only-p) (make-variable-buffer-local 'list-dynamic-libraries--loaded-only-p) +(defun list-dynamic-libraries--loaded (from) + "Compute the \"Loaded from\" column. +Internal use only." + (if from + (let ((name (car from)) + (path (or (cdr from) "<unknown>"))) + ;; This is a roundabout way to change the tooltip without + ;; having to replace the default printer function + (propertize name + 'display (propertize name + 'help-echo (concat "Loaded from: " path)))) + "")) + (defun list-dynamic-libraries--refresh () "Recompute the list of dynamic libraries. Internal use only." @@ -159,7 +172,7 @@ Internal use only." (when (or from (not list-dynamic-libraries--loaded-only-p)) (push (list id (vector (symbol-name id) - (or from "") + (list-dynamic-libraries--loaded from) (mapconcat 'identity (cdr lib) ", "))) tabulated-list-entries))))) |