Parcourir la 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 il y a 9 ans
Parent
commit
ca7d6f9366
1 fichiers modifiés avec 8 ajouts et 10 suppressions
  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)