From nobody at rubyforge.org  Mon Feb  9 23:32:40 2009
From: nobody at rubyforge.org (nobody at rubyforge.org)
Date: Mon,  9 Feb 2009 23:32:40 -0500 (EST)
Subject: [Ruby-debug-commits] [908] trunk/emacs/rdebug-core.el: Remove the
 annoying disappearing command window when we there' s an initial error in
 running the Ruby program
Message-ID: <20090210043240.8BCAC1678111@rubyforge.org>

Revision: 908
Author:   rockyb
Date:     2009-02-09 23:32:40 -0500 (Mon, 09 Feb 2009)

Log Message:
-----------
Remove the annoying disappearing command window when we there's an initial error in running the Ruby program

Modified Paths:
--------------
    trunk/emacs/rdebug-core.el

Modified: trunk/emacs/rdebug-core.el
===================================================================
--- trunk/emacs/rdebug-core.el	2009-01-23 20:51:57 UTC (rev 907)
+++ trunk/emacs/rdebug-core.el	2009-02-10 04:32:40 UTC (rev 908)
@@ -347,8 +347,11 @@
   (set (make-local-variable 'gud-last-frame) nil)
   (set (make-local-variable 'gud-last-last-frame) nil)
 
-  (set-process-filter (get-buffer-process (current-buffer)) 'gud-filter)
-  (set-process-sentinel (get-buffer-process (current-buffer)) 'gud-sentinel)
+  (let ((buffer-process (get-buffer-process (current-buffer))))
+    (if buffer-process
+	(progn 
+	  (set-process-filter buffer-process 'gud-filter)
+	  (set-process-sentinel buffer-process 'gud-sentinel))))
   (gud-set-buffer))
 
 ;;;###autoload