Browse Source

ox-texinfo: Rename an internal function

* lisp/ox-texinfo.el (org-texinfo--filter-section-blank-lines):
  Renamed from `org-texinfo-filter-section-blank-lines'.
(texinfo): Apply renaming.
Nicolas Goaziou 10 years ago
parent
commit
20a3b61865
1 changed files with 3 additions and 7 deletions
  1. 3 7
      lisp/ox-texinfo.el

+ 3 - 7
lisp/ox-texinfo.el

@@ -80,9 +80,9 @@
     (verse-block . org-texinfo-verse-block))
     (verse-block . org-texinfo-verse-block))
   :export-block "TEXINFO"
   :export-block "TEXINFO"
   :filters-alist
   :filters-alist
-  '((:filter-headline . org-texinfo-filter-section-blank-lines)
+  '((:filter-headline . org-texinfo--filter-section-blank-lines)
     (:filter-parse-tree . org-texinfo--normalize-headlines)
     (:filter-parse-tree . org-texinfo--normalize-headlines)
-    (:filter-section . org-texinfo-filter-section-blank-lines))
+    (:filter-section . org-texinfo--filter-section-blank-lines))
   :menu-entry
   :menu-entry
   '(?i "Export to Texinfo"
   '(?i "Export to Texinfo"
        ((?t "As TEXI file" org-texinfo-export-to-texinfo)
        ((?t "As TEXI file" org-texinfo-export-to-texinfo)
@@ -393,7 +393,7 @@ If two strings share the same prefix (e.g. \"ISO-8859-1\" and
 
 
 ;;; Internal Functions
 ;;; Internal Functions
 
 
-(defun org-texinfo-filter-section-blank-lines (headline back-end info)
+(defun org-texinfo--filter-section-blank-lines (headline back-end info)
   "Filter controlling number of blank lines after a section."
   "Filter controlling number of blank lines after a section."
   (let ((blanks (make-string 2 ?\n)))
   (let ((blanks (make-string 2 ?\n)))
     (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" blanks headline)))
     (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" blanks headline)))
@@ -476,8 +476,6 @@ anchor name is unique."
 	  (plist-put info :texinfo-node-cache (cons (cons blob name) cache))
 	  (plist-put info :texinfo-node-cache (cons (cons blob name) cache))
 	  name))))
 	  name))))
 
 
-;;;; Menu sanitizing
-
 (defun org-texinfo--sanitize-node (title)
 (defun org-texinfo--sanitize-node (title)
   "Bend string TITLE to node line requirements.
   "Bend string TITLE to node line requirements.
 Trim string and collapse multiple whitespace characters as they
 Trim string and collapse multiple whitespace characters as they
@@ -489,8 +487,6 @@ are not significant.  Also remove the following characters: @
     "\\`(\\(.*)\\)" "[\\1"
     "\\`(\\(.*)\\)" "[\\1"
     (org-trim (replace-regexp-in-string "[ \t]\\{2,\\}" " " title)))))
     (org-trim (replace-regexp-in-string "[ \t]\\{2,\\}" " " title)))))
 
 
-;;;; Content sanitizing
-
 (defun org-texinfo--sanitize-content (text)
 (defun org-texinfo--sanitize-content (text)
   "Escape special characters in string TEXT.
   "Escape special characters in string TEXT.
 Special characters are: @ { }"
 Special characters are: @ { }"