# HG changeset patch # User Eli Zaretskii # Date 1140174110 0 # Node ID af2db645bc9d028aaa0ce1c24c868ad22e3152ad # Parent eda7236f83b5d0dc92b48b6480fe2fb4fde814a6 (allout-hidden-p): Move this defsubts before allout-overlay-interior-modification-handler, where it is first used. diff -r eda7236f83b5 -r af2db645bc9d lisp/allout.el --- a/lisp/allout.el Fri Feb 17 10:58:37 2006 +0000 +++ b/lisp/allout.el Fri Feb 17 11:01:50 2006 +0000 @@ -1605,6 +1605,13 @@ 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 @@ ;;;_ #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 ()