[slime-devel] New variable for killing the Lisp processes without query

Lars Magne Ingebrigtsen larsi at gnus.org
Sun May 2 13:07:32 UTC 2004


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 at 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 at 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 at gnus.org * Lars Magne Ingebrigtsen





More information about the slime-devel mailing list