From: Chong Yidong Date: Tue, 17 Apr 2012 15:07:21 +0000 (+0800) Subject: * emacs-lisp/tabulated-list.el (tabulated-list-print): Fix typos. X-Git-Tag: emacs-24.0.96~68 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c070447bfad37262d292fe130db7db22da822fb;p=emacs.git * emacs-lisp/tabulated-list.el (tabulated-list-print): Fix typos. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 06a794a79fb..026b99872f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-04-17 Chong Yidong + + * emacs-lisp/tabulated-list.el (tabulated-list-print): Fix typos. + 2012-04-16 Alan Mackenzie Ensure searching for keywords is case sensitive. diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index f17b12da6a0..9439fba2b86 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -215,7 +215,7 @@ buffer and inserts the entries with `tabulated-list-printer'. Optional argument REMEMBER-POS, if non-nil, means to move point to the entry with the same ID element as the current line." (let ((inhibit-read-only t) - (entries (if (functionp 'tabulated-list-entries) + (entries (if (functionp tabulated-list-entries) (funcall tabulated-list-entries) tabulated-list-entries)) entry-id saved-pt saved-col) @@ -246,7 +246,7 @@ to the entry with the same ID element as the current line." (setq entries (sort entries sorter)) (if (cdr tabulated-list-sort-key) (setq entries (nreverse entries))) - (unless (functionp 'tabulated-list-entries) + (unless (functionp tabulated-list-entries) (setq tabulated-list-entries entries))))) ;; Print the resulting list. (dolist (elt entries)