* src/buffer.c (Fother_buffer): Add CHECK_FRAME.

(Fswitch_to_buffer): Remove unused variable `err'.

diff --git a/src/ChangeLog b/src/ChangeLog
index 864d873e30edb1c7a240bb25542c5f89cb9d9eb9..49fb791c6dd040eaaf56a31c01987e64494c9c97 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-03  Juri Linkov  <juri@jurta.org>
+
+       * buffer.c (Fother_buffer): Add CHECK_FRAME.
+       (Fswitch_to_buffer): Remove unused variable `err'.
+
 2010-06-03  Glenn Morris  <rgm@gnu.org>
 
        * m/template.h (NO_SOCK_SIGIO): Remove, no longer used.

diff --git a/src/buffer.c b/src/buffer.c
index b19286c6ea983ac75ff626c3d09ba40eb3ba2f6f..3762b33bdaf114cefc6c188bc5b5e592d9b8ce7c 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1300,6 +1300,8 @@ If BUFFER is omitted or nil, some interesting buffer is returned.  */)
   if (NILP (frame))
     frame = selected_frame;
 
+  CHECK_FRAME (frame);
+
   tail = Vbuffer_alist;
   pred = frame_buffer_predicate (frame);
 
@@ -1785,8 +1787,6 @@ messing with the window-buffer correspondences.  */)
      (buffer_or_name, norecord)
      Lisp_Object buffer_or_name, norecord;
 {
-  char *err;
-
   if (EQ (buffer_or_name, Fwindow_buffer (selected_window)))
     {
       /* Basically a NOP.  Avoid signalling an error in the case where