(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 1b41eba..5e7498c 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 85affa0..69d7250 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 ()