From: Ken Manheimer Date: Sat, 2 Jul 2011 17:39:41 +0000 (-0400) Subject: * allout.el (allout-yank-processing): Adjust cursor position for X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~233 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e47ca23bcf56fc7d28e7edaa2785edeebecbdb51;p=emacs.git * allout.el (allout-yank-processing): Adjust cursor position for backwards-deleted space. --- 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 + + * 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 * 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))))