From 6f642be9974cf153f636a2f3870f63502203fe13 Mon Sep 17 00:00:00 2001 From: Michael Brand 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