Browse Source

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.
Marco Wahl 9 years ago
parent
commit
ca7d6f9366
1 changed files with 8 additions and 10 deletions
  1. 8 10
      lisp/org-colview.el

+ 8 - 10
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)