tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix cursor position after changing bullet types

This commit is contained in:
Carsten Dominik 2010-03-17 16:11:13 +01:00
parent 32c2231e96
commit b2343cef32
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-03-17 Carsten Dominik <carsten.dominik@gmail.com>
* org-list.el (org-fix-bullet-type): Improve cursor positioning.
2010-03-15 Carsten Dominik <carsten.dominik@gmail.com> 2010-03-15 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-adaptive-fill-regexp-backup): New variable. * org.el (org-adaptive-fill-regexp-backup): New variable.

4
lisp/org-list.el
View File

@ -852,7 +852,7 @@ Also, fix the indentation."
(interactive) (interactive)
(unless (org-at-item-p) (error "This is not a list")) (unless (org-at-item-p) (error "This is not a list"))
(let ((line (org-current-line)) (let ((line (org-current-line))
(col (current-column)) (chars-from-eol (- (point-at-eol) (point)))
(ind (current-indentation)) (ind (current-indentation))
ind1 bullet oldbullet) ind1 bullet oldbullet)
;; find where this list begins ;; find where this list begins
@ -883,7 +883,7 @@ Also, fix the indentation."
(org-shift-item-indentation (- (length bullet) (org-shift-item-indentation (- (length bullet)
(length oldbullet)))))) (length oldbullet))))))
(org-goto-line line) (org-goto-line line)
(org-move-to-column col) (goto-char (max (point-at-bol) (- (point-at-eol) chars-from-eol)))
(if (string-match "[0-9]" bullet) (if (string-match "[0-9]" bullet)
(org-renumber-ordered-list 1)))) (org-renumber-ordered-list 1))))