[Emacs-diffs] /srv/bzr/emacs/trunk r102767: allout.el: (allout-back-to-current-heading): Ensure return to the visible

[Ken Manheimer]

------------------------------------------------------------
revno: 102767
committer: Ken Manheimer <address@hidden>
branch nick: trunk
timestamp: Thu 2011-01-06 02:19:05 -0500
message:
  allout.el: (allout-back-to-current-heading): Ensure return to the visible
  containing topic, rather than a collapsed one.
  (allout-view-change-hook): Remove hook that was deprecated long ago.
  (allout-exposure-change-hook): Remove documentation remarks concerning
  removed allout-view-change-hook.
  (allout-flag-region): Remove invocation of and documentation remarks
  concerning allout-view-change-hook.
modified:
  lisp/ChangeLog
  lisp/allout.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-06 05:14:54 +0000
+++ b/lisp/ChangeLog    2011-01-06 07:19:05 +0000
@@ -1,3 +1,14 @@
+2011-01-06  Ken Manheimer  <address@hidden>
+
+       * allout.el: (allout-back-to-current-heading): Ensure return to
+       the visible containing topic, rather than a collapsed one.
+       (allout-view-change-hook): Remove hook that was deprecated long
+       ago.
+       (allout-exposure-change-hook): Remove documentation remarks
+       concerning removed allout-view-change-hook.
+       (allout-flag-region): Remove invocation of and documentation
+       remarks concerning allout-view-change-hook.
+
 2011-01-06  Glenn Morris  <address@hidden>
 
        * vc/vc-bzr.el (vc-bzr-annotate-command, vc-bzr-annotate-time)

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2011-01-04 19:44:10 +0000
+++ b/lisp/allout.el    2011-01-06 07:19:05 +0000
@@ -1437,14 +1437,6 @@
 ;;;_   = allout-exposure-category
 (defvar allout-exposure-category nil
   "Symbol for use as allout invisible-text overlay category.")
-;;;_   x allout-view-change-hook
-(defvar allout-view-change-hook nil
-  "*(Deprecated) A hook run after allout outline exposure changes.
-
-Switch to using `allout-exposure-change-hook' instead.  Both hooks are
-currently respected, but the other conveys the details of the exposure
-change via explicit parameters, and this one will eventually be disabled in
-a subsequent allout version.")
 ;;;_   = allout-exposure-change-hook
 (defvar allout-exposure-change-hook nil
   "*Hook that's run after allout outline subtree exposure changes.
@@ -1457,10 +1449,7 @@
  - TO -- integer indicating the point of the end of the change.
  - FLAG -- change mode: nil for exposure, otherwise concealment.
 
-This hook might be invoked multiple times by a single command.
-
-This hook is replacing `allout-view-change-hook', which is being deprecated
-and eventually will not be invoked.")
+This hook might be invoked multiple times by a single command.")
 ;;;_   = allout-structure-added-hook
 (defvar allout-structure-added-hook nil
   "*Hook that's run after addition of items to the outline.
@@ -2996,13 +2985,19 @@
 
   (allout-beginning-of-current-line)
   (let ((bol-point (point)))
-    (if (allout-goto-prefix-doublechecked)
-        (if (<= (point) bol-point)
+    (when (allout-goto-prefix-doublechecked)
+      (if (<= (point) bol-point)
+          (progn
+            (setq bol-point (point))
+            (allout-beginning-of-current-line)
+            (if (not (= bol-point (point)))
+                (if (looking-at allout-regexp)
+                    (allout-prefix-data)))
             (if interactive
                 (allout-end-of-prefix)
-              (point))
-          (goto-char (point-min))
-          nil))))
+              (point)))
+        (goto-char (point-min))
+        nil))))
 ;;;_   > allout-back-to-heading ()
 (defalias 'allout-back-to-heading 'allout-back-to-current-heading)
 ;;;_   > allout-pre-next-prefix ()
@@ -4867,9 +4862,7 @@
   "Conceal text between FROM and TO if FLAG is non-nil, else reveal it.
 
 Exposure-change hook `allout-exposure-change-hook' is run with the same
-arguments as this function, after the exposure changes are made.  (The old
-`allout-view-change-hook' is being deprecated, and eventually will not be
-invoked.)"
+arguments as this function, after the exposure changes are made."
 
   ;; We use outline invisibility spec.
   (remove-overlays from to 'category 'allout-exposure-category)
@@ -4883,7 +4876,6 @@
                 ;; as of 2008-02-27, xemacs lacks modification-hooks
                 (overlay-put o (pop props) (pop props))
               (error nil)))))))
-  (run-hooks 'allout-view-change-hook)
   (run-hook-with-args 'allout-exposure-change-hook from to flag))
 ;;;_   > allout-flag-current-subtree (flag)
 (defun allout-flag-current-subtree (flag)