When exiting Emacs, it feels sorta unnecessary to be queried about whether I really want to kill the inferior Lisp processes (and the tcp streams), so I hacked up the following:
*** ChangeLog.~1.362.~ Sun May 2 14:07:13 2004 --- ChangeLog Sun May 2 14:39:47 2004 *************** *** 1,3 **** --- 1,10 ---- + 2004-05-02 Lars Magne Ingebrigtsen larsi@netfonds.no + + * slime.el (slime-kill-without-query-p): New variable. + (slime-net-connect): Use it. + (slime-open-stream-to-lisp): Ditto. + (slime-maybe-start-lisp): Ditto. + 2004-05-02 Luke Gorrie luke@bluetail.com
* slime.el (slime-goto-source-location): Added support for the *** slime.el.~1.288.~ Sun May 2 14:07:33 2004 --- slime.el Sun May 2 14:39:42 2004 *************** *** 129,134 **** --- 129,137 ----
If you want to fallback on TAGS you can set this to `find-tag'.")
+ (defun slime-kill-without-query-p nil + "If non-nil, kill Slime processes without query when quitting Emacs.") + ;;; Customize group
*************** *** 1077,1082 **** --- 1080,1087 ---- "Start an inferior lisp unless one is already running." (unless (get-buffer-process (get-buffer "*inferior-lisp*")) (call-interactively 'inferior-lisp) + (when slime-kill-without-query-p + (process-kill-without-query (inferior-lisp-proc))) (comint-send-string (inferior-lisp-proc) (format "(load %S)\n" (slime-to-lisp-filename *************** *** 1255,1260 **** --- 1260,1267 ---- (set-process-buffer proc buffer) (set-process-filter proc 'slime-net-filter) (set-process-sentinel proc 'slime-net-sentinel) + (when slime-kill-without-query-p + (process-kill-without-query proc)) (when (fboundp 'set-process-coding-system) (set-process-coding-system proc 'no-conversion 'no-conversion)) proc)) *************** *** 1925,1930 **** --- 1932,1939 ---- (slime-with-connection-buffer () (current-buffer)) "localhost" port))) + (when slime-kill-without-query-p + (process-kill-without-query stream)) (set-process-filter stream 'slime-output-filter) stream))