(allout-hidden-p): Move this defsubts before

allout-overlay-interior-modification-handler, where it is first used.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b41eba4893a6d01b4f6cebbab2d0c08dbac487c..5e7498c0aa960b11f5902a0c6f9c9206d8d2a679 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-17  Eli Zaretskii  <eliz@gnu.org>
+
+       * allout.el (allout-hidden-p): Move this defsubts before
+       allout-overlay-interior-modification-handler, where it is first
+       used.
+
 2006-02-17  Ken Manheimer  <ken.manheimer@gmail.com>
 
        * allout.el: Use allout invisible-text overlays instead of

diff --git a/lisp/allout.el b/lisp/allout.el
index 85affa095e30f0cf2c955da00721a2fa696194f8..69d72506fce93b2487aea8f62e2a3080dc4e0699 100644 (file)
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1605,6 +1605,13 @@ OPEN:    A topic that is not closed, though its offspring or body may be."
     allout-mode
     )                                  ; let*
   )                                    ; defun
+
+;;;_  - Position Assessment
+;;;_   > allout-hidden-p (&optional pos)
+(defsubst allout-hidden-p (&optional pos)
+  "Non-nil if the character after point is invisible."
+  (get-char-property (or pos (point)) 'invisible))
+
 ;;;_  > allout-minor-mode
 (defalias 'allout-minor-mode 'allout-mode)
 
@@ -1746,11 +1753,6 @@ to return the current depth of the most recently matched topic."
 
 ;;;_ #4 Navigation
 
-;;;_  - Position Assessment
-;;;_   > allout-hidden-p (&optional pos)
-(defsubst allout-hidden-p (&optional pos)
-  "Non-nil if the character after point is invisible."
-  (get-char-property (or pos (point)) 'invisible))
 ;;;_   : Location Predicates
 ;;;_    > allout-on-current-heading-p ()
 (defun allout-on-current-heading-p ()