diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-25 00:36:05 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-25 00:36:05 +0100 |
commit | 86bc987ca107c5790533d033b622147c36fc4e7f (patch) | |
tree | 85c34a45b507b72f0667267b3d3e903cdf8b0ef2 | |
parent | 71d734f399c01244e3c3cc36dce2600aa1fcba51 (diff) | |
download | org-mode-86bc987ca107c5790533d033b622147c36fc4e7f.tar.gz |
org-colview: Remove `org-columns-spec' property
* lisp/org-colview.el (org-columns--display-here): Remove unnecessary
`org-columns-spec' property.
(org-columns-update): Use (current-column) to extract column format
specifications.
-rw-r--r-- | lisp/org-colview.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index a27619d..c13412f 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -370,7 +370,6 @@ DATELINE is non-nil when the face used should be (if dateline face1 face)))) (overlay-put ov 'keymap org-columns-map) (overlay-put ov 'org-columns-key property) - (overlay-put ov 'org-columns-spec spec) (overlay-put ov 'org-columns-value original) (overlay-put ov 'org-columns-value-modified value) (overlay-put ov 'org-columns-format fmt) @@ -972,7 +971,7 @@ the current buffer." (let ((key (overlay-get ov 'org-columns-key))) (when (and key (equal key p) (overlay-start ov)) (goto-char (overlay-start ov)) - (let* ((spec (overlay-get ov 'org-columns-spec)) + (let* ((spec (nth (current-column) org-columns-current-fmt-compiled)) (value (or (cdr (assoc spec (get-text-property (line-beginning-position) |