diff options
author | Eli Zaretskii <eliz@gnu.org> | 2006-02-17 11:02:27 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2006-02-17 11:02:27 +0000 |
commit | 773e7e48217910d496eb227c4c3c3644773c1111 (patch) | |
tree | fa9acb6b6792d2785e4ff1fde4e3c5d822f468a9 /lisp/allout.el | |
parent | 1d489c0df72e86b755c837a9fea93d22eca29780 (diff) | |
download | emacs-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.el | 12 |
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 () |