[Emacs-diffs] /srv/bzr/emacs/trunk r104171: lisp/misc.el: Implement new command `list-dynamic-libraries'.

[Juanma Barranquero]

------------------------------------------------------------
revno: 104171
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-09 17:52:57 +0200
message:
  lisp/misc.el: Implement new command `list-dynamic-libraries'.
  
  * misc.el (list-dynamic-libraries--loaded-only-p): New variable.
    (list-dynamic-libraries--refresh): New function.
    (list-dynamic-libraries): New command.
modified:
  lisp/ChangeLog
  lisp/misc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-09 01:24:00 +0000
+++ b/lisp/ChangeLog    2011-05-09 15:52:57 +0000
@@ -1,3 +1,10 @@
+2011-05-09  Juanma Barranquero  <address@hidden>
+
+       * misc.el: Implement new command `list-dynamic-libraries'.
+       (list-dynamic-libraries--loaded-only-p): New variable.
+       (list-dynamic-libraries--refresh): New function.
+       (list-dynamic-libraries): New command.
+
 2011-05-09  Chong Yidong  <address@hidden>
 
        * progmodes/compile.el (compilation-error-regexp-alist-alist): Fix

=== modified file 'lisp/misc.el'
--- a/lisp/misc.el      2011-01-25 04:08:28 +0000
+++ b/lisp/misc.el      2011-05-09 15:52:57 +0000
@@ -1,4 +1,4 @@
-;;; misc.el --- some nonstandard basic editing commands for Emacs
+;;; misc.el --- some nonstandard editing and utility commands for Emacs
 
 ;; Copyright (C) 1989, 2001-2011  Free Software Foundation, Inc.
 
@@ -129,6 +129,60 @@
     (message "Well, then go to xkcd.com!")
     (browse-url "http://xkcd.com/378/";)))
 
+;; A command to list dynamically loaded libraries.  This useful in
+;; environments where dynamic-library-alist is used, i.e., Windows
+
+(defvar list-dynamic-libraries--loaded-only-p)
+(make-variable-buffer-local 'list-dynamic-libraries--loaded-only-p)
+
+(defun list-dynamic-libraries--refresh ()
+  "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))
+          (dolist (lib dynamic-library-alist)
+            (let ((id-len (length (symbol-name (car lib))))
+                  (name-len (apply 'max (mapcar 'length (cdr lib)))))
+              (when (> id-len max-id-len) (setq max-id-len id-len))
+              (when (> name-len max-name-len) (setq max-name-len name-len))))
+          (vector (list "Library" (1+ max-id-len) t)
+                  (list "Loaded from" (1+ max-name-len) t)
+                  (list "Candidate names" 0 t))))
+  (setq tabulated-list-entries nil)
+  (dolist (lib dynamic-library-alist)
+    (let* ((id (car lib))
+           (from (get id :loaded-from)))
+      (when (or from
+                (not list-dynamic-libraries--loaded-only-p))
+        (push (list id (vector (symbol-name id)
+                               (or from "")
+                               (mapconcat 'identity (cdr lib) ", ")))
+              tabulated-list-entries)))))
+
+;;;###autoload
+(defun list-dynamic-libraries (&optional loaded-only-p buffer)
+  "Display a list of all dynamic libraries known to Emacs.
+\(These are the libraries listed in `dynamic-library-alist'.)
+If optional argument LOADED-ONLY-P (interactively, prefix arg)
+is non-nil, only libraries already loaded are listed.
+Optional argument BUFFER specifies a buffer to use, instead of
+\"*Dynamic Libraries*\".
+The return value is always nil."
+  (interactive "P")
+  (unless (bufferp buffer)
+    (setq buffer (get-buffer-create "*Dynamic Libraries*")))
+  (with-current-buffer buffer
+    (tabulated-list-mode)
+    (setq tabulated-list-sort-key (cons "Library" nil))
+    (add-hook 'tabulated-list-revert-hook 'list-dynamic-libraries--refresh nil 
t)
+    (tabulated-list-init-header)
+    (setq list-dynamic-libraries--loaded-only-p loaded-only-p)
+    (list-dynamic-libraries--refresh)
+    (tabulated-list-print))
+  (display-buffer buffer)
+  nil)
+
+
 (provide 'misc)
 
 ;;; misc.el ends here