Function: zone--apologize-for-failing

zone--apologize-for-failing is a byte-compiled function defined in zone.el.gz.

Signature

(zone--apologize-for-failing PGM)

Documentation

Apologize for PGM failing for a minute.

Source Code

;; Defined in /usr/src/emacs/lisp/play/zone.el.gz
(defun zone--apologize-for-failing (pgm)
  "Apologize for PGM failing for a minute."
  (let ((cycle 0)
        (n-cycles (floor zone-apologize-seconds 6)))
    (while (and (not (input-pending-p))
                (<= (incf cycle) n-cycles))
      (let ((message-log-max (= cycle 1))) ;; Log message first time only
        (message "We were zoning when we wrote %s..." pgm)
        (sit-for 3)
        (message "...here's hoping we didn't hose your buffer!")
        (sit-for 3)))))