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'.
  (letrec ((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)))