summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-24 10:06:02 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-24 10:06:02 +0200
commit313146374ecd7eb4866f1b4aa0f09e1ce31f33d7 (patch)
tree2c890453168ea3addfcebbbd3febb8fcc61cb934
parent1114418dd45ef9e1e1a7254775baf201a59c7c86 (diff)
downloadorg-mode-313146374ecd7eb4866f1b4aa0f09e1ce31f33d7.tar.gz
org-colview: Fix last commit
* lisp/org-colview.el (org-columns-edit-value): Fix last commit.
-rw-r--r--lisp/org-colview.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 2a4f187..864b221 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -539,9 +539,10 @@ Where possible, use the standard interface for changing this line."
(bol (line-beginning-position))
(eol (line-end-position))
(pom (or (get-text-property bol 'org-hd-marker) (point)))
+ (key (or key (get-char-property (point) 'org-columns-key)))
(org-columns--time (float-time (current-time)))
(action
- (pcase (or key (get-char-property (point) 'org-columns-key))
+ (pcase key
("CLOCKSUM"
(error "This special column cannot be edited"))
("ITEM"
@@ -567,11 +568,11 @@ Where possible, use the standard interface for changing this line."
("SCHEDULED"
(lambda ()
(org-with-point-at pom (call-interactively #'org-schedule))))
- ("BEAMER_env"
+ ("BEAMER_ENV"
(lambda ()
(org-with-point-at pom
(call-interactively #'org-beamer-select-environment))))
- (key
+ (_
(let* ((allowed (org-property-get-allowed-values pom key 'table))
(value (get-char-property (point) 'org-columns-value))
(nval (org-trim