Function: net-utils--revert-function

net-utils--revert-function is a byte-compiled function defined in net-utils.el.gz.

Signature

(net-utils--revert-function &optional IGNORE-AUTO NOCONFIRM)

Source Code

;; Defined in /usr/src/emacs/lisp/net/net-utils.el.gz
(defun net-utils--revert-function (&optional _ignore-auto _noconfirm)
  (message "Reverting `%s'..." (buffer-name))
  (apply (car net-utils--revert-cmd) (cdr net-utils--revert-cmd))
  (let ((proc (get-buffer-process (current-buffer))))
    (when proc
      (set-process-sentinel
       proc
       (lambda (process event)
         (when (string= event "finished\n")
           (message "Reverting `%s' done" (process-buffer process))))))))