summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-05-26 17:48:25 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-05-26 17:48:25 +0200
commitf194eb1719de2a530b09734ab5cafc9248ada92f (patch)
tree744b169679a6395b7c7685e524d1f874cef194e9
parent5c1cc3fb4b199a5757e63e73646d97b9c71a64f0 (diff)
downloadorg-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.el5
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)