upstream

[gnu-emacs] / lisp / misc.el

diff --git a/lisp/misc.el b/lisp/misc.el
index e50b5b38c756a593ea666498ae8ad3a4c27b7b34..4706c918db3c9231a6ccbac3276b060f0016a780 100644 (file)
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -1,6 +1,6 @@
 ;;; misc.el --- some nonstandard editing and utility commands for Emacs
 
-;; Copyright (C) 1989, 2001-2011  Free Software Foundation, Inc.
+;; Copyright (C) 1989, 2001-2012  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: convenience
@@ -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))