[slime-devel] Propose to new method for `slime-selector' to find "*slime-inspector*"

[MON KEY]

Propose to new method for `slime-selector' to find "*slime-inspector*".
Below and and as attached:


(def-slime-selector-method ?i
  "*slime-inspector* buffer."
  (or (and (slime-connected-p)
           (or
            (and (slime-inspector-visible-p)
                 (switch-to-buffer (slime-inspector-buffer) t)
                 (or (and (= (point-min) (point-max))
                          (progn
                            (slime-inspector-pop)
                            (and (null slime-inspector-mark-stack)
                                 (slime-inspector-next)
                                 t)
                            (current-buffer)))
                     (current-buffer)))
            (and (get-buffer (slime-buffer-name :inspector))
                 (switch-to-buffer-other-window (slime-buffer-name
:inspector) t)
                 (or (and (= (point-min) (point-max))
                          (progn
                            (slime-inspector-pop)
                            (and (null slime-inspector-mark-stack)
                                 (slime-inspector-next)
                                 t)
                            (current-buffer)))
                     (current-buffer)))
            (slime-inspector-buffer))))
  (error "`slime-selector' wants *slime-inspector* buffer but not
`slime-connected-p'"))

;;; (URL `http://paste.lisp.org/+2K1B')
-------------- next part --------------
A non-text attachment was scrubbed...
Name: slime-selector-method-2011-02-01
Type: application/octet-stream
Size: 1454 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20110201/8c9f020a/attachment.obj>