Hi all
2012-06-02 Michael Brand <michael.ch.br...@gmail.com>:
> [...]
>
> - cmd --log-level=wrn -o <dst> <src> ::
> long term + long descr bla bla bla bla
> bla bla bla bla bla bla bla bla bla bla
> bla bla bla bla bla bla bla bla bla
>
> [...]
>
> M-q on the item "long term + long descr" that is aligned manually as
> shown first will be stable only after a second M-q instead of already
> after the first M-q with release_7.8.10-633 on 23.3.1.
The attached patch resolves also the above issue:
Description list: improve regexp consistency
* lisp/org-list.el (org-at-item-description-p,
org-list-item-body-column): Make the inline regexp more consistent
with `org-list-full-item-re', the inline regexp "Description list
items" from `org-set-font-lock-defaults and others'.
This resolves some issues with M-q (org-fill-paragraph) on description
lists.
Michael
From 6f642be9974cf153f636a2f3870f63502203fe13 Mon Sep 17 00:00:00 2001
From: Michael Brand <michael.ch.br...@gmail.com>
Date: Sun, 10 Jun 2012 18:35:39 +0200
Subject: [PATCH] Description list: improve regexp consistency
* lisp/org-list.el (org-at-item-description-p,
org-list-item-body-column): Make the inline regexp more consistent
with `org-list-full-item-re', the inline regexp "Description list
items" from `org-set-font-lock-defaults and others'.
This resolves some issues with M-q (org-fill-paragraph) on description
lists.
---
lisp/org-list.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-list.el b/lisp/org-list.el
index 648497f..c6dcb79 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -489,7 +489,7 @@ group 4: description tag")
(defun org-at-item-description-p ()
"Is point at a description list item?"
- (org-list-at-regexp-after-bullet-p "\\(\\S-.+\\)[ \t]+::[ \t]+"))
+ (org-list-at-regexp-after-bullet-p "\\(\\S-.+\\)[ \t]+::\\([ \t]+\\|$\\)"))
(defun org-at-item-checkbox-p ()
"Is point at a line starting a plain-list item with a checklet?"
@@ -2035,7 +2035,7 @@ Possible values are: `folded', `children' or `subtree'.
See
(let (bpos bcol tpos tcol)
(save-excursion
(goto-char item)
- (looking-at "[ \t]*\\(\\S-+\\)\\(.*[ \t]+::\\)?[ \t]+")
+ (looking-at "[ \t]*\\(\\S-+\\)\\(.*[ \t]+::\\)?\\([ \t]+\\|$\\)")
(setq bpos (match-beginning 1) tpos (match-end 0)
bcol (progn (goto-char bpos) (current-column))
tcol (progn (goto-char tpos) (current-column)))
--
1.7.4.2
