* allout.el (allout-yank-processing): Adjust cursor position for

backwards-deleted space.

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))))