Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.1034
diff -c -r1.1034 slime.el
*** slime.el	19 Sep 2008 11:20:23 -0000	1.1034
--- slime.el	20 Sep 2008 21:25:07 -0000
***************
*** 67,72 ****
--- 67,74 ----
  
  (defvar slime-lisp-modes '(lisp-mode))
  
+ (defvar slime-inspector-name "*slime inspector*")
+ 
  (defun slime-setup (&optional contribs)
    "Setup Emacs so that lisp-mode buffers always use SLIME.
  CONTRIBS is a list of contrib packages to load."
***************
*** 7706,7713 ****
    (setq buffer-read-only t))
  
  (defun slime-inspector-buffer ()
!   (or (get-buffer "*Slime Inspector*")
!       (with-current-buffer (get-buffer-create "*Slime Inspector*")
  	(setq slime-inspector-mark-stack '())
          (buffer-disable-undo)
          (slime-mode t)
--- 7708,7715 ----
    (setq buffer-read-only t))
  
  (defun slime-inspector-buffer ()
!   (or (get-buffer slime-inspector-name)
!       (with-current-buffer (get-buffer-create slime-inspector-name)
  	(setq slime-inspector-mark-stack '())
          (buffer-disable-undo)
          (slime-mode t)
***************
*** 8012,8017 ****
--- 8014,8020 ----
    ("q" 'slime-inspector-quit)
    ("g" 'slime-inspector-reinspect)
    ("\C-i" 'slime-inspector-next-inspectable-object)
+   ("\C-c\C-z" 'slime-switch-to-output-buffer)
    ([(shift tab)] 'slime-inspector-previous-inspectable-object) ; Emacs translates S-TAB
    ([backtab]     'slime-inspector-previous-inspectable-object) ; to BACKTAB on X.
    ("\M-." 'slime-edit-definition)
***************
*** 9435,9441 ****
  
  (defun slime-inspector-visible-p ()
    (let ((buffer (window-buffer (selected-window))))
!     (string-match "\\*Slime Inspector\\*" 
                    (buffer-name buffer))))
  
  (def-slime-test break
--- 9438,9444 ----
  
  (defun slime-inspector-visible-p ()
    (let ((buffer (window-buffer (selected-window))))
!     (string-match "\\*slime inspector\\*" 
                    (buffer-name buffer))))
  
  (def-slime-test break