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(a)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(a)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))
--
(domestic pets only, the antidote for overdose, milk.)
larsi(a)gnus.org * Lars Magne Ingebrigtsen