Преглед на файлове

Remove some blank leading blank lines from ASCII export.

With the following org file:
------
Foo

In which foos are described.
#+OPTIONS: num:nil author:nil creator:nil timestamp:nil d:nil toc:nil skip:t
#+TITLE:
* The construction of a foo
** Armaments
------
I found exporting to ASCII gave five leading blank lines. The
following patch reduces that to one. (I'd love some help in tracking
down that final one.)
Andrew Stribblehill преди 15 години
родител
ревизия
b2743b9e37
променени са 1 файла, в които са добавени 7 реда и са изтрити 4 реда
  1. 7 4
      lisp/org-ascii.el

+ 7 - 4
lisp/org-ascii.el

@@ -266,11 +266,13 @@ publishing directory."
 
     ;; File header
     (unless body-only
-      (if title (org-insert-centered title ?=))
-      (insert "\n")
+      (when (and title (not (string= "" title)))
+	(org-insert-centered title ?=)
+	(insert "\n"))
+
       (if (and (or author email)
 	       org-export-author-info)
-	  (insert (concat (nth 1 lang-words) ": " (or author "")
+	  (insert(concat (nth 1 lang-words) ": " (or author "")
 			  (if email (concat " <" email ">") "")
 			  "\n")))
 
@@ -283,7 +285,8 @@ publishing directory."
       (if (and date org-export-time-stamp-file)
 	  (insert (concat (nth 2 lang-words) ": " date"\n")))
 
-      (insert "\n\n"))
+      (unless (= (point) (point-min))
+	(insert "\n\n")))
 
     (if (and org-export-with-toc (not body-only))
 	(progn