From ae9c04116ab15e45966de6663a5a79badd6d8ab5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 21 Jun 2011 12:04:28 +0200 Subject: [PATCH] lisp/misc.el (list-dynamic-libraries): Fix computation of header fields. --- lisp/ChangeLog | 5 +++++ lisp/misc.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * misc.el (list-dynamic-libraries--refresh): Compute header here... + (list-dynamic-libraries): ...not here. + 2011-06-21 Leo Liu * 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)) -- 2.39.2