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

Record and display absolute path of DLLs loaded (bug#10424).

Browse source 
* 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.
This commit is contained in:
Juanma Barranquero 2012-04-10 16:16:05 +02:00
parent 8f33b5f873
commit 2a8ce227d0
4 changed files with 34 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/misc.el
View file

@ -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)))))