diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-07 01:16:32 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-07 01:16:32 +0200 |
| commit | 9aa69058bc4cbe3be088df9e96b18caf5359a3a8 (patch) | |
| tree | 91cdb281712c22ea6b90eb07616dde04fa95db98 | |
| parent | e42c1611094a689f77f09cc66c5a50fb1e3ac7bb (diff) | |
| download | org-mode-9aa69058bc4cbe3be088df9e96b18caf5359a3a8.tar.gz | |
org-list: Preserve newline characters when changing description lists
* lisp/org-list.el (org-list-to-generic): Preserve newline characters
after description in description lists.
Reported-by: Leo Ufimtsev <lufimtse@redhat.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/97432>
| -rw-r--r-- | lisp/org-list.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index cbd65de..d18dff1 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -3215,13 +3215,13 @@ items." (when nobr (setq first (org-list-item-trim-br first))) ;; Insert descriptive term if TYPE is `descriptive'. (when (eq type 'descriptive) - (let* ((complete (string-match "^\\(.*\\)[ \t]+::" first)) + (let* ((complete + (string-match "^\\(.*\\)[ \t]+::[ \t]*" first)) (term (if complete (save-match-data (org-trim (match-string 1 first))) "???")) - (desc (if complete - (org-trim (substring first (match-end 0))) + (desc (if complete (substring first (match-end 0)) first))) (setq first (concat (eval dtstart) term (eval dtend) (eval ddstart) desc)))) |