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

backwards-deleted space.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd1ec32d0773cbd802dbf81c46ead1100f2ff422..de13574aa54979c5c07efbbd1b5272483cacd851 100644 (file)
--- 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 552f9461335b6c6e3660e7dc9278899df42bb333..d238745df17661291e0d6095d66d109a92085e92 100644 (file)
--- 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))))