Pārlūkot izejas kodu

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 gadi atpakaļ
vecāks
revīzija
ca7d6f9366
1 mainītis faili ar 8 papildinājumiem un 10 dzēšanām
  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")
      ((equal key "CLOCKSUM")
       (error "This special column cannot be edited"))
       (error "This special column cannot be edited"))
      ((equal key "ITEM")
      ((equal key "ITEM")
-      (setq eval '(org-with-point-at pom
+      (setq eval `(org-with-point-at ,pom
 		    (org-edit-headline))))
 		    (org-edit-headline))))
      ((equal key "TODO")
      ((equal key "TODO")
-      (setq eval '(org-with-point-at
-		      pom
+      (setq eval `(org-with-point-at ,pom
 		    (call-interactively 'org-todo))))
 		    (call-interactively 'org-todo))))
      ((equal key "PRIORITY")
      ((equal key "PRIORITY")
-      (setq eval '(org-with-point-at pom
+      (setq eval `(org-with-point-at ,pom
 		    (call-interactively 'org-priority))))
 		    (call-interactively 'org-priority))))
      ((equal key "TAGS")
      ((equal key "TAGS")
-      (setq eval '(org-with-point-at pom
+      (setq eval `(org-with-point-at ,pom
 		    (let ((org-fast-tag-selection-single-key
 		    (let ((org-fast-tag-selection-single-key
 			   (if (eq org-fast-tag-selection-single-key 'expert)
 			   (if (eq org-fast-tag-selection-single-key 'expert)
 			       t org-fast-tag-selection-single-key)))
 			       t org-fast-tag-selection-single-key)))
 		      (call-interactively 'org-set-tags)))))
 		      (call-interactively 'org-set-tags)))))
      ((equal key "DEADLINE")
      ((equal key "DEADLINE")
-      (setq eval '(org-with-point-at pom
+      (setq eval `(org-with-point-at ,pom
 		    (call-interactively 'org-deadline))))
 		    (call-interactively 'org-deadline))))
      ((equal key "SCHEDULED")
      ((equal key "SCHEDULED")
-      (setq eval '(org-with-point-at pom
+      (setq eval `(org-with-point-at ,pom
 		    (call-interactively 'org-schedule))))
 		    (call-interactively 'org-schedule))))
      ((equal key "BEAMER_env")
      ((equal key "BEAMER_env")
-      (setq eval '(org-with-point-at pom
+      (setq eval `(org-with-point-at ,pom
 		    (call-interactively 'org-beamer-select-environment))))
 		    (call-interactively 'org-beamer-select-environment))))
      (t
      (t
       (setq allowed (org-property-get-allowed-values pom key 'table))
       (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 (read-string "Edit: " value)))
       (setq nval (org-trim nval))
       (setq nval (org-trim nval))
       (when (not (equal nval value))
       (when (not (equal nval value))
-	(setq eval '(org-entry-put pom key nval)))))
+	(setq eval `(org-entry-put ,pom ,key ,nval)))))
     (when eval
     (when eval
-
       (cond
       (cond
        ((equal major-mode 'org-agenda-mode)
        ((equal major-mode 'org-agenda-mode)
 	(org-columns-eval eval)
 	(org-columns-eval eval)