Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.438
diff -c -r1.438 slime.el
*** slime.el	13 Dec 2004 20:10:56 -0000	1.438
--- slime.el	14 Dec 2004 09:14:25 -0000
***************
*** 4958,4964 ****
                               (:type list))
    dspec location)
  
! (defun slime-edit-definition (name &optional other-window)
    "Lookup the definition of the symbol at point.  
  If there's no symbol at point, or a prefix argument is given, then the
  function name is prompted."
--- 4958,4964 ----
                               (:type list))
    dspec location)
  
! (defun slime-edit-definition (name &optional where)
    "Lookup the definition of the symbol at point.  
  If there's no symbol at point, or a prefix argument is given, then the
  function name is prompted."
***************
*** 4974,4988 ****
              (t
               (slime-goto-source-location (slime-definition.location
                                            (car definitions)))
!              (cond ((not other-window)
!                     (switch-to-buffer (current-buffer)))
                     (t
!                     (switch-to-buffer-other-window (current-buffer)))))))))
  
  (defun slime-edit-definition-other-window (name)
    "Like `slime-edit-definition' but switch to the other window."
!   (interactive (list (slime-read-symbol-name "Function name: ")))
!   (slime-edit-definition name t))
  
  (defun slime-show-definitions (name definitions)
    (slime-show-xrefs 
--- 4974,4995 ----
              (t
               (slime-goto-source-location (slime-definition.location
                                            (car definitions)))
!              (cond ((equal where 'window)
!                     (switch-to-buffer-other-window (current-buffer)))
!                    ((equal where 'frame)
!                     (switch-to-buffer-other-frame (current-buffer)))
                     (t
!                     (switch-to-buffer (current-buffer)))))))))
  
  (defun slime-edit-definition-other-window (name)
    "Like `slime-edit-definition' but switch to the other window."
!   (interactive (list (slime-read-symbol-name "Symbol: ")))
!   (slime-edit-definition name 'window))
! 
! (defun slime-edit-definition-other-frame (name)
!   "Like `slime-edit-definition' but switch to the other window."
!   (interactive (list (slime-read-symbol-name "Symbol: ")))
!   (slime-edit-definition name 'frame))
  
  (defun slime-show-definitions (name definitions)
    (slime-show-xrefs