Function: comint--mark-yanked-as-output

comint--mark-yanked-as-output is a byte-compiled function defined in comint.el.gz.

Signature

(comint--mark-yanked-as-output BEG END)

Source Code

;; Defined in /usr/src/emacs/lisp/comint.el.gz
(defun comint--mark-yanked-as-output (beg end)
  ;; `yank' removes the field text property from the text it inserts
  ;; due to `yank-excluded-properties', so arrange for this text
  ;; property to be reapplied in the `after-change-functions'.
  (let (fun)
    (setq
     fun
     (lambda (beg1 end1 _len1)
       (remove-hook 'after-change-functions fun t)
       (when (and (= beg beg1)
                  (= end end1))
         (comint--mark-as-output beg1 end1))))
    (add-hook 'after-change-functions fun nil t)))