Lines Matching +refs:region +refs:overlay
179 ;; installed patch for elusive bug in hilit-rehighlight-region that caused
180 ;; hilit-unhighlight-region to hang in an infinite loop.
186 ;; work-around for bug in next-overlay-change that caused dired and jargon-mode
190 ;; bug fix for next-overlay-change and accompanying change to
191 ;; hilit-unhighlight-region
210 ;; recently highlighted region (which is not necessarily the end of the most
218 ;; some code moved from hilit-highlight-region to hilit-set-mode-patterns.
220 ;; hilit-highlight-region....use a pseudo-mode instead.
652 ;; Region Highlight/Unhighlight code (Both overlay and text-property versions)
655 (defsubst hilit-region-set-face (start end face-name &optional prio prop)
656 "Highlight region from START to END using FACE and, optionally, PRIO.
658 (let ((overlay (make-overlay start end)))
659 (overlay-put overlay 'face face-name)
660 (overlay-put overlay (or prop 'hilit) t)
661 (and prio (overlay-put overlay 'priority prio))))
663 (defun hilit-unhighlight-region (start end &optional quietly)
664 "Unhighlights the region from START to END, optionally in a QUIET way"
670 (and (overlay-get ovr 'hilit) (delete-overlay ovr))))
672 (setq lstart start start (next-overlay-change start))))
679 ;;(defsubst hilit-region-set-face (start end face-name &optional prio prop)
680 ;; "Highlight region from START to END using FACE and, optionally, PRIO.
685 ;;(defun hilit-unhighlight-region (start end &optional quietly)
686 ;; "Unhighlights the region from START to END, optionally in a QUIET way"
698 (defun hilit-highlight-region (start end &optional patterns quietly)
699 "Highlights the area of the buffer between START and END (the region when
719 (narrow-to-region start end)
735 (let (region)
736 (while (setq region (funcall pstart pend))
737 (hilit-region-set-face (car region) (cdr region)
744 (hilit-region-set-face mstart (match-end 0)
751 (hilit-region-set-face (match-beginning pend)
765 (defun hilit-rehighlight-region (start end &optional quietly)
766 "Re-highlights the region, optionally in a QUIET way"
770 (setq start (apply 'min start (mapcar 'overlay-start (overlays-at start)))
771 end (apply 'max end (mapcar 'overlay-end (overlays-at end))))
772 (hilit-unhighlight-region start end quietly)
773 (hilit-highlight-region start end nil quietly)))
781 (hilit-rehighlight-region (point-min) (point-max) quietly)))
794 (hilit-unhighlight-region (point-min) (point-max) quietly)
795 (hilit-highlight-region (point-min) (point) 'msg-header quietly)
796 (hilit-highlight-region (point) (point-max) 'msg-body quietly)))
811 ;; (hilit-unhighlight-region (point-min) (point-max)))
849 (hilit-rehighlight-region st en quietly))))
867 (hilit-rehighlight-region (region-beginning) (region-end) t))
876 (hilit-rehighlight-region (region-beginning) (region-end) t))
888 ;; (hilit-rehighlight-yank-region)
915 ;; (hilit-region-set-face st en wysu 100 'wysiwyg)
916 ;; (hilit-region-set-face st en wysb 100 'wysiwyg))
934 ;; underline-region that does underlining. I think that the thing to do is
939 ;; (and (overlay-get ovr 'hilit) (delete-overlay ovr))))
941 ;; (setq start (next-overlay-change start)))