diff options
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/allout.el | 6 |
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd1ec32d077..de13574aa54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2011-07-02 Ken Manheimer <ken.manheimer@gmail.com> + + * allout.el (allout-yank-processing): Adjust cursor position for + backwards-deleted space. + + (allout-rebullet-heading): Register changes with + allout-exposure-changed-hook, so the modified topic is properly + decorated. + 2011-07-02 Lars Magne Ingebrigtsen <larsi@gnus.org> * minibuffer.el (completion-in-region): Document PREDICATE diff --git a/lisp/allout.el b/lisp/allout.el index 552f9461335..d238745df17 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -4036,6 +4036,8 @@ this function." (not (allout-encrypted-topic-p))) (allout-reindent-body current-depth new-depth)) + (run-hook-with-args 'allout-exposure-change-hook mb me nil) + ;; Recursively rectify successive siblings of orig topic if ;; caller elected for it: (if do-successors @@ -4605,7 +4607,9 @@ however, are left exactly like normal, non-allout-specific yanks." ; and delete residual subj ; prefix digits and space: (while (looking-at "[0-9]") (delete-char 1)) - (delete-char -1))) + (delete-char -1) + (if (not (eolp)) + (forward-char)))) ;; Assert new topic's bullet - minimal effort if unchanged: (allout-rebullet-heading (string-to-char prefix-bullet))) (exchange-point-and-mark)))) |