diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-24 10:06:02 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-24 10:06:02 +0200 |
commit | 313146374ecd7eb4866f1b4aa0f09e1ce31f33d7 (patch) | |
tree | 2c890453168ea3addfcebbbd3febb8fcc61cb934 | |
parent | 1114418dd45ef9e1e1a7254775baf201a59c7c86 (diff) | |
download | org-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.el | 7 |
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 |