Function: hilit-chg-make-ov

hilit-chg-make-ov is a byte-compiled function defined in hilit-chg.el.gz.

Signature

(hilit-chg-make-ov PROP START END)

Source Code

;; Defined in /usr/src/emacs/lisp/hilit-chg.el.gz
(defun hilit-chg-make-ov (prop start end)
  (or prop
      (error "hilit-chg-make-ov: prop is nil"))
  ;; For the region create overlays with a distinctive face
  ;; and the text property 'hilit-chg.
  (let ((ov (make-overlay start end))
	(face (if (eq prop 'hilit-chg-delete)
                  'highlight-changes-delete
                (nth 1 (member prop hilit-chg-list)))))
    (if face
	(progn
	  ;; We must mark the face, that is the purpose of the overlay.
	  (overlay-put ov 'face face)
	  ;; I don't think we need to set evaporate since we should
	  ;; be controlling them!
	  (overlay-put ov 'evaporate t)
	  ;; We set the change property so we can tell this is one
	  ;; of our overlays (so we don't delete someone else's).
          (overlay-put ov 'hilit-chg t))
      (error "hilit-chg-make-ov: No face for prop: %s" prop))))