emacs/xlispstat19.el

   1 ;; Running an inferior xlispstat process under GNU Emacs 19.19
   2
   3 (require 'inf-lisp)
   4
   5 (defun xlisp-quit-sentinel (proc reason)
   6   (if (and (not (memq reason '(run stop))))
   7       (save-buffers-kill-emacs)))
   8
   9 (defun set-xlisp-sentinel ()
  10   (let ((process (inferior-lisp-proc)))
  11     (set-process-sentinel process 'xlisp-quit-sentinel)
  12     (process-kill-without-query process)))
  13
  14 (defun run-xlispstat-exit ()
  15   (run-xlispstat)
  16   (set-xlisp-sentinel))
  17
  18 (defun run-xlispstat ()
  19   "Run an inferior xlispstat process."
  20   (interactive)
  21   (inferior-lisp "xlispstat"))
  22
  23 (defun run-kcl-exit ()
  24   (run-kcl)
  25   (set-xlisp-sentinel))
  26
  27 (defun run-kcl ()
  28   (interactive)
  29   (inferior-lisp "kcl"))
  30