(Flast_nonminibuf_frame): Handle the NULL case.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6ae6e4fc1465bdb870b398d9c331b57a7b562ba5..9337dbf6990c8a549fefd531eccc155fa2e3a18b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * dispnew.c (Flast_nonminibuf_frame): Handle the NULL case.
+
 2008-06-06  Miles Bader  <miles@gnu.org>
 
        * xdisp.c (x_produce_glyphs): Calculate tab width based on current

diff --git a/src/dispnew.c b/src/dispnew.c
index 0867c2eccbed26ba3b189a83e1d19b09c33a36af..f6f464d9eb3c4f9a6ef82b4b3c6c4f1f60407355 100644 (file)
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -7066,9 +7066,10 @@ DEFUN ("last-nonminibuffer-frame", Flast_nonminibuf_frame,
        doc: /* Value is last nonminibuffer frame. */)
      ()
 {
-  Lisp_Object frame;
+  Lisp_Object frame = Qnil;
 
-  XSETFRAME (frame, last_nonminibuf_frame);
+  if (last_nonminibuf_frame)
+    XSETFRAME (frame, last_nonminibuf_frame);
 
   return frame;
 }