From ab20e602b1faaa40a6187c35248a96370f6e2cbf Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 21 Nov 2008 06:00:42 +0100 Subject: [PATCH] Allow a second space after "1." bullet for line wrapping. --- lisp/ChangeLog | 5 +++++ lisp/org.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 234ae1441..f17c7aca3 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-11-21 Carsten Dominik + + * org.el (org-adaptive-fill-function): Allow two spaces after + "1." as a list bullet. + 2008-11-20 Carsten Dominik * org-clock.el (org-clock-save, org-clock-load): Check for diff --git a/lisp/org.el b/lisp/org.el index 9ce840d12..4d7ecfb6a 100644 --- a/lisp/org.el +++ b/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) ?\ )))