summaryrefslogtreecommitdiff
path: root/lisp/allout.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2006-02-17 11:02:27 +0000
committerEli Zaretskii <eliz@gnu.org>2006-02-17 11:02:27 +0000
commit773e7e48217910d496eb227c4c3c3644773c1111 (patch)
treefa9acb6b6792d2785e4ff1fde4e3c5d822f468a9 /lisp/allout.el
parent1d489c0df72e86b755c837a9fea93d22eca29780 (diff)
downloademacs-773e7e48217910d496eb227c4c3c3644773c1111.tar.gz
(allout-hidden-p): Move this defsubts before
allout-overlay-interior-modification-handler, where it is first used.
Diffstat (limited to 'lisp/allout.el')
-rw-r--r--lisp/allout.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/allout.el b/lisp/allout.el
index 85affa095e3..69d72506fce 100644
--- 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 ()