diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-22 23:53:04 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-23 14:07:36 +0100 |
commit | d7fbad1a8144342fe5b819dba2241d7226b15b51 (patch) | |
tree | b3d097a1cec2314ce376255db214003e17a3da70 | |
parent | 24033e3c672bed3728ec5ec4c6134b767b10cfc8 (diff) | |
download | org-mode-d7fbad1a8144342fe5b819dba2241d7226b15b51.tar.gz |
org-colview: Rename `org-columns-new-overlay'
* lisp/org-colview.el (org-columns-new-overlay): Rename this to...
(org-columns--new-overlay): ... this.
(org-columns--display-here): Apply renaming.
-rw-r--r-- | lisp/org-colview.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index ec095bb..cbff67a 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -289,7 +289,7 @@ integers greater than 0." (setq width (max (length value) width)))))))) org-columns-current-fmt-compiled)))) -(defun org-columns-new-overlay (beg end &optional string face) +(defun org-columns--new-overlay (beg end &optional string face) "Create a new column overlay and add it to the list." (let ((ov (make-overlay beg end))) (overlay-put ov 'face (or face 'secondary-selection)) @@ -361,7 +361,7 @@ DATELINE is non-nil when the face used should be (fmt (format (if (= i last) "%%-%d.%ds |" "%%-%d.%ds | ") width width)) - (ov (org-columns-new-overlay + (ov (org-columns--new-overlay (point) (1+ (point)) (org-columns--overlay-text value fmt width property original) @@ -377,7 +377,7 @@ DATELINE is non-nil when the face used should be (forward-char)))) (cl-incf i))) ;; Make the rest of the line disappear. - (let ((ov (org-columns-new-overlay (point) (line-end-position)))) + (let ((ov (org-columns--new-overlay (point) (line-end-position)))) (overlay-put ov 'invisible t) (overlay-put ov 'keymap org-columns-map) (overlay-put ov 'line-prefix "") |