mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(speedbar-handle-delete-frame): Don't try to delete the speedbar frame if nil;

Browse source 
that deletes the current frame or causes an error if it is the only frame.
This commit is contained in:
Juanma Barranquero 2007-06-28 09:03:36 +00:00
parent 251db0f475
commit e5d2b9d417
1 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/speedbar.el
View file

@ -1053,10 +1053,10 @@ supported at a time.
"Handle a delete frame event E.
If the deleted frame is the frame SPEEDBAR is attached to,
we need to delete speedbar also."
(let ((frame-to-be-deleted (car (car (cdr e)))))
(if (eq frame-to-be-deleted dframe-attached-frame)
(when (and speedbar-frame
(eq (car (car (cdr e))) ;; frame to be deleted
dframe-attached-frame))
(delete-frame speedbar-frame)))
)
;;;###autoload
(defun speedbar-get-focus ()