lisp/misc.el (list-dynamic-libraries): Fix computation of header fields.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a31868f4ed1c91c062b162eacf56927b40ea2d7c..decf71a0abcda46bf6238165c6358828529c025e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-21  Juanma Barranquero  <lekktu@gmail.com>
+
+       * misc.el (list-dynamic-libraries--refresh): Compute header here...
+       (list-dynamic-libraries): ...not here.
+
 2011-06-21  Leo Liu  <sdl.web@gmail.com>
 
        * subr.el (sha1): Implement sha1 using secure-hash.

diff --git a/lisp/misc.el b/lisp/misc.el
index e50b5b38c756a593ea666498ae8ad3a4c27b7b34..8087c7f525903c5bab9d2bab8345029dd23d7c42 100644 (file)
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -151,6 +151,7 @@ Internal use only."
           (vector (list "Library" (1+ max-id-len) t)
                   (list "Loaded from" (1+ max-name-len) t)
                   (list "Candidate names" 0 t))))
+  (tabulated-list-init-header)
   (setq tabulated-list-entries nil)
   (dolist (lib dynamic-library-alist)
     (let* ((id (car lib))
@@ -178,7 +179,6 @@ The return value is always nil."
     (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))