From 773e7e48217910d496eb227c4c3c3644773c1111 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 17 Feb 2006 11:02:27 +0000 Subject: [PATCH] (allout-hidden-p): Move this defsubts before allout-overlay-interior-modification-handler, where it is first used. --- lisp/ChangeLog | 6 ++++++ lisp/allout.el | 12 +++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b41eba4893..5e7498c0aa9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-02-17 Eli Zaretskii + + * allout.el (allout-hidden-p): Move this defsubts before + allout-overlay-interior-modification-handler, where it is first + used. + 2006-02-17 Ken Manheimer * allout.el: Use allout invisible-text overlays instead of 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 () -- 2.39.2