[Emacs-diffs] /srv/bzr/emacs/trunk r104885: * allout.el (allout-yank-processing): Adjust cursor position for

[Ken Manheimer]

------------------------------------------------------------
revno: 104885
committer: Ken Manheimer <address@hidden>
branch nick: trunk
timestamp: Sat 2011-07-02 13:39:41 -0400
message:
  * allout.el (allout-yank-processing): Adjust cursor position for
  backwards-deleted space.
modified:
  lisp/ChangeLog
  lisp/allout.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-02 16:07:30 +0000
+++ b/lisp/ChangeLog    2011-07-02 17:39:41 +0000
@@ -1,3 +1,12 @@
+2011-07-02  Ken Manheimer  <address@hidden>
+
+       * 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  <address@hidden>
 
        * minibuffer.el (completion-in-region): Document PREDICATE

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2011-06-30 14:38:35 +0000
+++ b/lisp/allout.el    2011-07-02 17:39:41 +0000
@@ -4036,6 +4036,8 @@
                (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 @@
                                         ; 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))))