diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2015-12-04 12:00:23 +0100 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2015-12-04 12:37:42 +0100 |
commit | ca7d6f93664b3797c40afa44ac281ecc3f028e5f (patch) | |
tree | 4d282fea601fdaf339443d7a7ed158142d330bf2 | |
parent | 5c13a6b76553726a3ed29c8276cfb44a4a1b4155 (diff) | |
download | org-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.el | 18 |
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) |