Lines Matching defs:overlay
463 (defun po-create-overlay ()
464 "Create and return a deleted overlay structure.
466 (let ((overlay (make-overlay (point) (point))))
467 (overlay-put overlay 'face po-highlight-face)
468 ;; The fun thing is that a deleted overlay retains its face, and is
470 (delete-overlay overlay)
471 overlay))
473 (defun po-highlight (overlay start end &optional buffer)
474 "Use OVERLAY to highlight the string from START to END.
476 (move-overlay overlay start end (or buffer (current-buffer))))
478 (defun po-rehighlight (overlay)
479 "Ensure OVERLAY is highlighted."
483 (defun po-dehighlight (overlay)
484 "Display normally the last string which OVERLAY highlighted.
486 (delete-overlay overlay)))
490 (defun po-create-overlay ()
491 "Create and return a deleted overlay structure."
515 (defun po-create-overlay ()
516 "Create and return a deleted overlay structure."
519 (defun po-highlight (overlay start end &optional buffer)
520 "Use OVERLAY to highlight the string from START to END.
540 (set-marker (car overlay) start (or buffer (current-buffer)))
541 (set-marker (cdr overlay) end (or buffer (current-buffer))))
543 (defun po-rehighlight (overlay)
544 "Ensure OVERLAY is highlighted."
545 (let ((buffer (marker-buffer (car overlay)))
546 (start (marker-position (car overlay)))
547 (end (marker-position (cdr overlay))))
550 (po-highlight overlay start end buffer))))
552 (defun po-dehighlight (overlay)
553 "Display normally the last string which OVERLAY highlighted."
554 (let ((buffer (marker-buffer (car overlay)))
555 (start (marker-position (car overlay)))
556 (end (marker-position (cdr overlay))))
573 (setcar overlay (make-marker))
574 (setcdr overlay (make-marker))))
613 ;; an list of "slots" of the form: (ENTRY-MARKER EDIT-BUFFER OVERLAY-INFO).
617 ;; temporary Emacs buffer used to edit the string. OVERLAY-INFO, when not
618 ;; nil, holds an overlay (or if overlays are not supported, a cons of two
645 ;; describe where it is. MARKING-OVERLAY, if not 'nil', holds the overlay
653 (defvar po-marking-overlay)
1090 (set (make-local-variable 'po-marking-overlay) (po-create-overlay))
1997 ;; Reminder: slots have the form (ENTRY-MARKER EDIT-BUFFER OVERLAY-INFO).
2009 (let ((overlay (nth 2 slot)))
2010 (and overlay (po-dehighlight overlay)))
2020 (let ((overlay (nth 2 slot)))
2021 (and overlay (po-rehighlight overlay)))
2035 (let ((overlay (nth 2 slot)))
2036 (and overlay (po-rehighlight overlay)))
2140 (overlay-info (nth 2 back-pointer))
2147 (and overlay-info (po-dehighlight overlay-info))
2189 overlay slot)
2200 (setq overlay (po-create-overlay))
2201 (po-highlight overlay (point) end buffer))))
2202 (setq slot (list marker edit-buffer overlay)
2382 ;; Just "borrow" the marking overlay.
2383 (po-highlight po-marking-overlay (point) end))))
2571 (po-dehighlight po-marking-overlay))
2603 (po-highlight po-marking-overlay start end buffer)))))
2658 (and po-highlighting (po-dehighlight po-marking-overlay))
Indexes created Thu Mar 26 00:23:24 UTC 2026