Function: speedbar-window--close

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

Signature

(speedbar-window--close &optional NO-KILL-BUFFER)

Documentation

Close speedbar-window.

If optional argument NO-KILL-BUFFER is not nil, close window without killing speedbar-buffer, which is useful for kill-buffer-hook.

Source Code

;; Defined in /usr/src/emacs/lisp/speedbar.el.gz
(defun speedbar-window--close (&optional no-kill-buffer)
  "Close `speedbar-window'.
If optional argument NO-KILL-BUFFER is not nil, close window without
killing `speedbar-buffer', which is useful for `kill-buffer-hook'."
  (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)
      (unless no-kill-buffer
        (kill-buffer speedbar-buffer)
        (setq speedbar-buffer nil))
      (when (and current-window (window-live-p current-window))
	(select-window current-window)))))