Function: occur-engine-line

occur-engine-line is a byte-compiled function defined in replace.el.gz.

Signature

(occur-engine-line BEG END &optional KEEP-PROPS)

Source Code

;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun occur-engine-line (beg end &optional keep-props)
  (if (and keep-props font-lock-mode)
      (font-lock-ensure beg end))
  (if (and keep-props (not (eq occur-excluded-properties t)))
      (let ((str (buffer-substring beg end)))
	(remove-list-of-text-properties
	 0 (length str) occur-excluded-properties str)
	str)
    (buffer-substring-no-properties beg end)))