Skip to content

Commit 7d26268

Browse files
committed
Rename mldoc--build-list as package private function
1 parent e6a25fc commit 7d26268

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

mldoc.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,7 @@ The definition is (lambda ARGLIST [DOCSTRING] BODY...)."
7777
,docstring
7878
(let ((doc (save-excursion ,@body)))
7979
(if mldoc-returns-string
80-
(mapconcat #'identity (apply #'mldoc-build-list doc) "")
80+
(mapconcat #'identity (apply #'mldoc--build-list doc) "")
8181
doc))))
8282

8383
(defun mldoc--propertize-args (args current-arg arg-separator)
@@ -116,7 +116,7 @@ The definition is (lambda ARGLIST [DOCSTRING] BODY...)."
116116
:current-arg ,current-arg
117117
:values ,values))
118118

119-
(cl-defun mldoc-build-list (spec &key function propertizers args current-arg values)
119+
(cl-defun mldoc--build-list (spec &key function propertizers args current-arg values)
120120
"Return a list of propertized string for ElDoc.
121121
122122
integer `:current-arg'
@@ -148,7 +148,7 @@ plist `values'
148148
(documentation (cl-loop for f in mldoc-documentation-functions
149149
thereis (funcall f))))
150150
(when documentation
151-
(mapconcat #'identity (apply #'mldoc-build-list documentation) ""))))
151+
(mapconcat #'identity (apply #'mldoc--build-list documentation) ""))))
152152

153153
;;;###autoload
154154
(define-minor-mode mldoc-mode

0 commit comments

Comments
 (0)