Browse Source

Allow a second space after "1." bullet for line wrapping.

Carsten Dominik 16 years ago
parent
commit
ab20e602b1
2 changed files with 6 additions and 1 deletions
  1. 5 0
      lisp/ChangeLog
  2. 1 1
      lisp/org.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2008-11-21  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.el (org-adaptive-fill-function): Allow two spaces after
+	"1." as a list bullet.
+
 2008-11-20  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-clock.el (org-clock-save, org-clock-load): Check for

+ 1 - 1
lisp/org.el

@@ -13958,7 +13958,7 @@ work correctly."
 	       (goto-char (+ (match-beginning 1) 5))
 	     (goto-char (match-end 0)))
 	   (make-string (current-column) ?\ )))
-	((looking-at "[ \t]*\\([-*+] \\|[0-9]+[.)] \\)?")
+	((looking-at "[ \t]*\\([-*+] \\|[0-9]+[.)]  ?\\)?")
 	 (save-excursion
 	   (goto-char (match-end 0))
 	   (make-string (current-column) ?\ )))