瀏覽代碼

Export: Remove extra space before colon examples.

Carsten Dominik 16 年之前
父節點
當前提交
2ad63638b5
共有 2 個文件被更改,包括 5 次插入2 次删除
  1. 3 0
      lisp/ChangeLog
  2. 2 2
      lisp/org-exp.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-01-25  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-exp.el (org-export-as-html): Remove the initial space from
+	colon examples.
+
 	* org.el (org-scan-tags): Call
 	`org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item'.
 

+ 2 - 2
lisp/org-exp.el

@@ -3485,12 +3485,12 @@ lang=\"%s\" xml:lang=\"%s\">
 
 	  ;; Fixed-width, verbatim lines (examples)
 	  (when (and org-export-with-fixed-width
-		     (string-match "^[ \t]*:\\(\\([ \t]\\|$\\).*\\)" line))
+		     (string-match "^[ \t]*:\\(\\([ \t]\\|$\\)\\(.*\\)\\)" line))
 	    (when (not infixed)
 	      (setq infixed t)
 	      (org-close-par-maybe)
 	      (insert "<pre class=\"example\">\n"))
-	    (insert (org-html-protect (match-string 1 line)) "\n")
+	    (insert (org-html-protect (match-string 3 line)) "\n")
 	    (when (or (not lines)
 		      (not (string-match "^[ \t]*\\(:.*\\)"
 					 (car lines))))