Lines Matching +refs:point +refs:min
194 ;; (goto-char (point-min))
291 place to adjust point, before calling `hs-forward-sexp-func'. Point
364 The internal function `hs-forward-sexp' moves point to the beginning of this
386 should return the starting point (at the end of line) of the hidden
394 It should not move the point.
486 (point))
501 "Adjust point based on MATCH-DATA and call `hs-forward-sexp-func' w/ ARG.
511 (let ((beg-eol (progn (goto-char beg) (end-of-line) (point)))
512 (end-eol (progn (goto-char end) (end-of-line) (point))))
517 (defun hs-hide-block-at-point (&optional end comment-reg)
532 ;; `p' is the point at the end of the block beginning,
540 (point)))
542 ;; `q' is the point at the end of the block
545 (point)))
547 (when (and (< p (point)) (> (count-lines p q) 1))
553 (goto-char (if end q (min p pure-p)))))))
556 "Return non-nil if point is inside a comment, otherwise nil.
567 (let ((q (point)))
569 (re-search-backward hs-c-start-regexp (point-min) t))
572 (= (point) (progn (forward-comment -1) (point))))
577 (let ((p (point))
586 ;; the point was here before doing (beginning-of-line)
593 (setq p (point))
594 (while (and (< (point) q)
595 (> (point) p)
598 (setq p (point))
602 (> (point) q))
609 (when (>= (point) q)
610 (list (and hidable p) (point))))))))
644 "Reposition point at block-start.
645 Return point, or nil if original point was not in a block."
647 (here (point)))
650 (point)
656 (point)))))))
658 (point)
663 "Recursively hide blocks ARG levels below point in region (MINP MAXP)."
665 (setq minp (1+ (point)))
667 (setq maxp (1- (point))))
673 (and (< (point) maxp)
678 (hs-hide-block-at-point t)))
683 In the dynamic context of this macro, `inhibit-point-motion-hooks'
686 (let ((inhibit-point-motion-hooks t)
702 "Return non-nil if point is in an already-hidden block, otherwise nil."
706 ;; point is inside a comment, and that comment is hidable
712 ;; point is inside a block
715 (hs-overlay-at (point))))
719 Actually, point is never moved; a new position is returned that is
725 (point)))
732 Move point to the beginning of the line, and run the normal hook
740 (hs-discard-overlays (point-min) (point-max)))
741 (goto-char (point-min))
753 (forward-comment (point-max)))
754 (re-search-forward re (point-max) t))
761 (hs-hide-block-at-point t)))
766 (hs-hide-block-at-point t c-reg)
779 (hs-discard-overlays (point-min) (point-max)))
785 Upon completion, point is repositioned and the normal hook
797 (hs-hide-block-at-point end c-reg)
802 With prefix arg, reposition at END. Upon completion, point is
809 (let ((ov (hs-overlay-at (save-excursion (end-of-line) (point))))
810 (here (point)))
828 (setq p (point)
829 q (progn (hs-forward-sexp (hs-match-data t) 1) (point)))))
842 (hs-hide-level-recursive arg (point-min) (point-max))
858 Argument E is a mouse event used by `mouse-set-point'.
862 (mouse-set-point e)
871 (goto-char (point-min))