summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2015-12-04 12:00:23 +0100
committerMarco Wahl <marcowahlsoft@gmail.com>2015-12-04 12:37:42 +0100
commitca7d6f93664b3797c40afa44ac281ecc3f028e5f (patch)
tree4d282fea601fdaf339443d7a7ed158142d330bf2
parent5c13a6b76553726a3ed29c8276cfb44a4a1b4155 (diff)
downloadorg-mode-ca7d6f93664b3797c40afa44ac281ecc3f028e5f.tar.gz
org-colview: Fix column view editing
* lisp/org-colview.el (org-columns-edit-value): Setting some values for postponed evaluation more directly as before. Catchword: lexical-binding.
-rw-r--r--lisp/org-colview.el18
1 files changed, 8 insertions, 10 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 9e1709c..e157031 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -433,29 +433,28 @@ Where possible, use the standard interface for changing this line."
((equal key "CLOCKSUM")
(error "This special column cannot be edited"))
((equal key "ITEM")
- (setq eval '(org-with-point-at pom
+ (setq eval `(org-with-point-at ,pom
(org-edit-headline))))
((equal key "TODO")
- (setq eval '(org-with-point-at
- pom
+ (setq eval `(org-with-point-at ,pom
(call-interactively 'org-todo))))
((equal key "PRIORITY")
- (setq eval '(org-with-point-at pom
+ (setq eval `(org-with-point-at ,pom
(call-interactively 'org-priority))))
((equal key "TAGS")
- (setq eval '(org-with-point-at pom
+ (setq eval `(org-with-point-at ,pom
(let ((org-fast-tag-selection-single-key
(if (eq org-fast-tag-selection-single-key 'expert)
t org-fast-tag-selection-single-key)))
(call-interactively 'org-set-tags)))))
((equal key "DEADLINE")
- (setq eval '(org-with-point-at pom
+ (setq eval `(org-with-point-at ,pom
(call-interactively 'org-deadline))))
((equal key "SCHEDULED")
- (setq eval '(org-with-point-at pom
+ (setq eval `(org-with-point-at ,pom
(call-interactively 'org-schedule))))
((equal key "BEAMER_env")
- (setq eval '(org-with-point-at pom
+ (setq eval `(org-with-point-at ,pom
(call-interactively 'org-beamer-select-environment))))
(t
(setq allowed (org-property-get-allowed-values pom key 'table))
@@ -467,9 +466,8 @@ Where possible, use the standard interface for changing this line."
(setq nval (read-string "Edit: " value)))
(setq nval (org-trim nval))
(when (not (equal nval value))
- (setq eval '(org-entry-put pom key nval)))))
+ (setq eval `(org-entry-put ,pom ,key ,nval)))))
(when eval
-
(cond
((equal major-mode 'org-agenda-mode)
(org-columns-eval eval)