[Emacs-diffs] Changes to emacs/lisp/speedbar.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/06/28 08:56:27

Index: speedbar.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/speedbar.el,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -b -r1.87 -r1.88
--- speedbar.el 19 Feb 2007 13:37:23 -0000      1.87
+++ speedbar.el 28 Jun 2007 08:56:27 -0000      1.88
@@ -1053,10 +1053,10 @@
   "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 ()