Browse Source

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.
Nicolas Goaziou 9 years ago
parent
commit
d7fbad1a81
1 changed files with 3 additions and 3 deletions
  1. 3 3
      lisp/org-colview.el

+ 3 - 3
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 "")