[slime-devel] New variable for killing the Lisp processes without query
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)) -- (domestic pets only, the antidote for overdose, milk.) larsi@gnus.org * Lars Magne Ingebrigtsen
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
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:
Patch applied. But why would someone want to exit from Emacs? :-) Helmut
Helmut Eller <e9626484@stud3.tuwien.ac.at> writes:
But why would someone want to exit from Emacs? :-)
That's, like, an existential question. :-) But we're running lots of stuff on lots of different servers, and it's sometimes easier to do the fix on the server in question (due to network topology, etc) than on the machine where I do most of my hacking, which leads to starting/stopping Emacs... It's heart-rendering to exit Emacs, but sometimes you gotta do what you gotta do. -- (domestic pets only, the antidote for overdose, milk.) larsi@gnus.org * Lars Magne Ingebrigtsen
participants (2)
-
Helmut Eller -
Lars Magne Ingebrigtsen