diff options
author | Bastien Guerry <bzg@altern.org> | 2013-03-16 19:15:58 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-16 19:15:58 +0100 |
commit | 6b38452498c805ba04cb66007e6f2ea9f0df9f95 (patch) | |
tree | 93a21eab80661ae7e87648949ce550f51ae75883 | |
parent | 7e806c155c5870b30335d9b6f49ab52a998a29ff (diff) | |
download | org-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.el | 6 |
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 () |