From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 21 Jun 2011 10:04:28 +0000 (+0200)
Subject: lisp/misc.el (list-dynamic-libraries): Fix computation of header fields.
X-Git-Tag: emacs-pretest-24.0.90~104^2~491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae9c04116ab15e45966de6663a5a79badd6d8ab5;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a31868f4ed1..decf71a0abc 100644
--- 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 e50b5b38c75..8087c7f5259 100644
--- 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))