emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] multiline description list, partial patch


From: Eric Schulte
Subject: [Orgmode] multiline description list, partial patch
Date: Wed, 09 Sep 2009 13:59:50 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (darwin)

Hi,

I've noticed that the bold face isn't applied to multiline description
lists.  This patch [1] partially fixes the problem, but for some reason
I keep losing the bold.  Any thoughts/ideas?

On a related topic, I'd like to consistently indent my decision list
text, rather than sometimes moving back to the depth of the bold
portion, does anyone else feel similarly and is this supported?

thanks -- Eric

Footnotes: 
[1]  
diff --git a/lisp/org.el b/lisp/org.el
index 39ef466..ed8d776 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4703,7 +4703,7 @@ between words."
               '("\\[\\([0-9]*%\\)\\]\\|\\[\\([0-9]*\\)/\\([0-9]*\\)\\]"
                 (0 (org-get-checkbox-statistics-face) t)))
           ;; Description list items
-          '("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(.*? ::\\)"
+          '("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(.*?\n?.*? ::\\)"
             2 'bold prepend)
           ;; ARCHIVEd headings
           (list (concat "^\\*+ \\(.*:" org-archive-tag ":.*\\)")
@@ -16272,7 +16272,7 @@ which make use of the date at the cursor."
          (setq column (current-column)))
        ((org-in-item-p)
        (org-beginning-of-item)
-       (looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\\|.*? :: \\)?")
+       (looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\\|.*?\n?.*? :: 
\\)?")
        (setq bpos (match-beginning 1) tpos (match-end 0)
              bcol (progn (goto-char bpos) (current-column))
              tcol (progn (goto-char tpos) (current-column))
@@ -16372,7 +16372,7 @@ In particular, this makes sure hanging paragraphs for 
hand-formatted lists
 work correctly."
   (cond ((looking-at "#[ \t]+")
         (match-string 0))
-       ((looking-at "[ \t]*\\([-*+] .*? :: \\)")
+       ((looking-at "[ \t]*\\([-*+] .*?\n?.*? :: \\)")
         (save-excursion
           (if (> (match-end 1) (+ (match-beginning 1)
                                   org-description-max-indent))






reply via email to

[Prev in Thread] Current Thread [Next in Thread]