diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-05-26 17:48:25 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-05-26 17:48:25 +0200 |
commit | f194eb1719de2a530b09734ab5cafc9248ada92f (patch) | |
tree | 744b169679a6395b7c7685e524d1f874cef194e9 | |
parent | 5c1cc3fb4b199a5757e63e73646d97b9c71a64f0 (diff) | |
download | org-mode-f194eb1719de2a530b09734ab5cafc9248ada92f.tar.gz |
org-list: fix bug when sorting a list with a custom function
* lisp/org-list.el (org-sort-list): function tries to intern
getkey-func before it is defined, so it's always nil.
Based on a patch from Le Wang.
-rw-r--r-- | lisp/org-list.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index 38a62e2..a088f58 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -2558,9 +2558,8 @@ compare entries." "Sort plain list: [a]lpha [n]umeric [t]ime [f]unc A/N/T/F means reversed:") (read-char-exclusive))) (getkey-func (and (= (downcase sorting-type) ?f) - (org-icompleting-read "Sort using function: " - obarray 'fboundp t nil nil) - (intern getkey-func)))) + (intern (org-icompleting-read "Sort using function: " + obarray 'fboundp t nil nil))))) (message "Sorting items...") (save-restriction (narrow-to-region start end) |