summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-22 23:53:04 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-23 14:07:36 +0100
commitd7fbad1a8144342fe5b819dba2241d7226b15b51 (patch)
treeb3d097a1cec2314ce376255db214003e17a3da70
parent24033e3c672bed3728ec5ec4c6134b767b10cfc8 (diff)
downloadorg-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.el6
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 "")