diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-07-13 13:34:28 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-07-13 13:36:14 +0200 |
| commit | acf44c879a2748d8c1d211c4af6ed81b92ffab8b (patch) | |
| tree | 4dc663fd20ecc2f2e3e9ebd1e0917345a3cead34 | |
| parent | acb8bcfba7023b362a7fbe9615bb167a046ad26d (diff) | |
| download | org-mode-acf44c879a2748d8c1d211c4af6ed81b92ffab8b.tar.gz | |
Fix radio lists
* lisp/org-list.el (org-list-send-list): Parse list from its true beginning.
* lisp/org.el (org-ctrl-c-ctrl-c): Maybe send the list when at a list item.
* doc/org.texi (Radio lists): Fix bug in description of radio lists.
| -rw-r--r-- | doc/org.texi | 2 | ||||
| -rw-r--r-- | lisp/org-list.el | 6 | ||||
| -rw-r--r-- | lisp/org.el | 6 |
3 files changed, 7 insertions, 7 deletions
diff --git a/doc/org.texi b/doc/org.texi index e1e9f9d..01fc5c8 100644 --- a/doc/org.texi +++ b/doc/org.texi @@ -13577,7 +13577,7 @@ La@TeX{} file: % BEGIN RECEIVE ORGLST to-buy % END RECEIVE ORGLST to-buy \begin@{comment@} -#+ORGLST: SEND to-buy orgtbl-to-latex +#+ORGLST: SEND to-buy org-list-to-latex - a new house - a new computer + a new keyboard diff --git a/lisp/org-list.el b/lisp/org-list.el index 49b8e2b..4e4306e 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -1284,10 +1284,8 @@ this list." (let* ((name (match-string 1)) (transform (intern (match-string 2))) (item-beginning (org-list-item-beginning)) - (txt (buffer-substring-no-properties - (car item-beginning) - (org-list-end (cdr item-beginning)))) - (list (org-list-parse-list)) + (list (save-excursion (org-list-goto-true-beginning) + (org-list-parse-list))) beg) (unless (fboundp transform) (error "No such transformation function %s" transform)) diff --git a/lisp/org.el b/lisp/org.el index a2c6359..b821901 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17122,11 +17122,13 @@ This command does many different things, depending on context: (org-footnote-at-definition-p)) (call-interactively 'org-footnote-action)) ((org-at-item-checkbox-p) - (call-interactively 'org-toggle-checkbox)) + (call-interactively 'org-toggle-checkbox) + (org-list-send-list 'maybe)) ((org-at-item-p) (if arg (call-interactively 'org-toggle-checkbox) - (call-interactively 'org-maybe-renumber-ordered-list))) + (call-interactively 'org-maybe-renumber-ordered-list)) + (org-list-send-list 'maybe)) ((save-excursion (beginning-of-line 1) (looking-at org-dblock-start-re)) ;; Dynamic block (beginning-of-line 1) |