Function: nntp-after-change-function

nntp-after-change-function is a byte-compiled function defined in nntp.el.gz.

Signature

(nntp-after-change-function BEG END LEN)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nntp.el.gz
(defun nntp-after-change-function (_beg end len)
  (unwind-protect
      ;; we only care about insertions at eob
      (when (and (eq 0 len) (eq (point-max) end))
	(save-match-data
	  (let ((proc (get-buffer-process (current-buffer))))
	    (when proc
	      (nntp-async-trigger proc)))))
    ;; any throw from after-change-functions will leave it
    ;; set to nil.  so we reset it here, if necessary.
    (when quit-flag
      ;; FIXME: We shouldn't assume that it had value
      ;; (nntp-after-change-function)!
      (setq after-change-functions '(nntp-after-change-function)))))