Function: speedbar-window--close

speedbar-window--close is a byte-compiled function defined in speedbar.el.gz.

Signature

(speedbar-window--close)

Documentation

Close speedbar-window.

Source Code

;; Defined in /usr/src/emacs/lisp/speedbar.el.gz
(defun speedbar-window--close ()
  "Close `speedbar-window'."
  (when (speedbar-window--live-p)
    (let ((current-window (selected-window)))
      ;; store the current window width
      (setq speedbar--window-width
	    (let ((current-width (speedbar-window--width)))
	      (if (> current-width speedbar-window-max-width)
		  speedbar-window-max-width
		current-width)))

      (delete-window speedbar--window)
      (setq speedbar--window nil
	    speedbar-frame nil
	    dframe-attached-frame nil)
      (speedbar-set-timer nil)
      (kill-buffer speedbar-buffer)
      (setq speedbar-buffer nil)
      (when (and current-window (window-live-p current-window))
	(select-window current-window)))))