Jelajahi Sumber

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.
Nicolas Goaziou 9 tahun lalu
induk
melakukan
86bc987ca1
1 mengubah file dengan 1 tambahan dan 2 penghapusan
  1. 1 2
      lisp/org-colview.el

+ 1 - 2
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)