summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-16 19:15:58 +0100
committerBastien Guerry <bzg@altern.org>2013-03-16 19:15:58 +0100
commit6b38452498c805ba04cb66007e6f2ea9f0df9f95 (patch)
tree93a21eab80661ae7e87648949ce550f51ae75883
parent7e806c155c5870b30335d9b6f49ab52a998a29ff (diff)
downloadorg-mode-6b38452498c805ba04cb66007e6f2ea9f0df9f95.tar.gz
org-list.el (org-insert-item): Don't ask for a definition term
* org-list.el (org-insert-item): Don't ask for a definition term when insert an item in a description list. This breaks the type-flow way too much.
-rw-r--r--lisp/org-list.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el
index 04ba709..ac94d15 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -2203,9 +2203,8 @@ item is invisible."
;; If we're in a description list, ask for the new term.
(desc (when (eq (org-list-get-list-type itemp struct prevs)
'descriptive)
- (concat (read-string "Term: ") " :: "))))
- (setq struct
- (org-list-insert-item pos struct prevs checkbox desc))
+ " :: ")))
+ (setq struct (org-list-insert-item pos struct prevs checkbox desc))
(org-list-write-struct struct (org-list-parents-alist struct))
(when checkbox (org-update-checkbox-count-maybe))
(looking-at org-list-full-item-re)
@@ -2214,6 +2213,7 @@ item is invisible."
(string-match "[.)]" (match-string 1))))
(match-beginning 4)
(match-end 0)))
+ (if desc (backward-char 1))
t)))))
(defun org-list-repair ()