;; Message to be issued when the process exits.
(done (format "Displaying %s...done" command))
+ ;; `timer-list' in GNU Emacs, `itimer-list' in XEmacs
+ (tlist (if (boundp 'timer-list)
;; In particular, the timer object (which is
;; a vector in Emacs but is a list in XEmacs)
;; requires that it is lexically scoped.
(timer (run-at-time 2.0 nil 'ignore)))
(when (eq 'exit (process-status process))
- (if (memq timer t
(timer-set-function timer fn)
(ignore-errors (eval fm))