mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/tabulated-list.el (tabulated-list-sort):

Browse Source 
Check if column can be sorted before trying.  (Bug#21639)
This commit is contained in:
Artur Malabarba 2015-10-07 14:09:09 +01:00
parent 9ed9b7dc95
commit e60a1e2717
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/tabulated-list.el
View File

@ -520,7 +520,9 @@ With a numeric prefix argument N, sort the Nth column."
(car (aref tabulated-list-format n))
(get-text-property (point)
'tabulated-list-column-name))))
(tabulated-list--sort-by-column-name name)))
(if (nth 2 (assoc name (append tabulated-list-format nil)))
(tabulated-list--sort-by-column-name name)
(user-error "Cannot sort by %s" name))))
(defun tabulated-list--sort-by-column-name (name)
(when (and name (derived-mode-p 'tabulated-list-mode))