diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 06a794a79fb..026b99872f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2012-04-17 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/tabulated-list.el (tabulated-list-print): Fix typos. | ||
| 4 | |||
| 1 | 2012-04-16 Alan Mackenzie <acm@muc.de> | 5 | 2012-04-16 Alan Mackenzie <acm@muc.de> |
| 2 | 6 | ||
| 3 | Ensure searching for keywords is case sensitive. | 7 | 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'. | |||
| 215 | Optional argument REMEMBER-POS, if non-nil, means to move point | 215 | Optional argument REMEMBER-POS, if non-nil, means to move point |
| 216 | to the entry with the same ID element as the current line." | 216 | to the entry with the same ID element as the current line." |
| 217 | (let ((inhibit-read-only t) | 217 | (let ((inhibit-read-only t) |
| 218 | (entries (if (functionp 'tabulated-list-entries) | 218 | (entries (if (functionp tabulated-list-entries) |
| 219 | (funcall tabulated-list-entries) | 219 | (funcall tabulated-list-entries) |
| 220 | tabulated-list-entries)) | 220 | tabulated-list-entries)) |
| 221 | entry-id saved-pt saved-col) | 221 | entry-id saved-pt saved-col) |
| @@ -246,7 +246,7 @@ to the entry with the same ID element as the current line." | |||
| 246 | (setq entries (sort entries sorter)) | 246 | (setq entries (sort entries sorter)) |
| 247 | (if (cdr tabulated-list-sort-key) | 247 | (if (cdr tabulated-list-sort-key) |
| 248 | (setq entries (nreverse entries))) | 248 | (setq entries (nreverse entries))) |
| 249 | (unless (functionp 'tabulated-list-entries) | 249 | (unless (functionp tabulated-list-entries) |
| 250 | (setq tabulated-list-entries entries))))) | 250 | (setq tabulated-list-entries entries))))) |
| 251 | ;; Print the resulting list. | 251 | ;; Print the resulting list. |
| 252 | (dolist (elt entries) | 252 | (dolist (elt entries) |