Minor adjustments of recently-changed frame functions.
authorPaul Eggert <eggert@cs.ucla.edu>
Tue, 6 Nov 2012 17:40:07 +0000 (09:40 -0800)
committerPaul Eggert <eggert@cs.ucla.edu>
Tue, 6 Nov 2012 17:40:07 +0000 (09:40 -0800)
* buffer.c (Fbuffer_list): Omit CHECK_FRAME, since arg is already
known to be a frame (we're in the FRAMEP branch).
* lisp.h (Qframep): Remove decl.  frame.h declares this.
* window.c (quad): Args are of type EMACS_INT, not ptrdiff_t,
since they're meant for Lisp fixnum values.

src/ChangeLog
src/buffer.c
src/lisp.h
src/window.c

index 10c48b80f7683b35fe6b24ddaad09b632ec852f1..1a4da7f6a3cfcfc4c774ffea06b6b129d401c70f 100644 (file)
@@ -1,3 +1,12 @@
+2012-11-06  Paul Eggert  <eggert@cs.ucla.edu>
+
+       Minor adjustments of recently-changed frame functions.
+       * buffer.c (Fbuffer_list): Omit CHECK_FRAME, since arg is already
+       known to be a frame (we're in the FRAMEP branch).
+       * lisp.h (Qframep): Remove decl.  frame.h declares this.
+       * window.c (quad): Args are of type EMACS_INT, not ptrdiff_t,
+       since they're meant for Lisp fixnum values.
+
 2012-11-06  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * window.c (Fwindow_combination_limit): Revert to the only
index 24286610570cbf8e5cefe92514e23e31b46e6c3d..bb69675346ac827d138f175568d745a61988b7dd 100644 (file)
@@ -406,7 +406,6 @@ followed by the rest of the buffers.  */)
       Lisp_Object framelist, prevlist, tail;
       Lisp_Object args[3];
 
-      CHECK_FRAME (frame);
       framelist = Fcopy_sequence (XFRAME (frame)->buffer_list);
       prevlist = Fnreverse (Fcopy_sequence
                            (XFRAME (frame)->buried_buffer_list));
@@ -2103,7 +2102,7 @@ set_buffer_internal_1 (register struct buffer *b)
     return;
 
   BUFFER_CHECK_INDIRECTION (b);
-  
+
   old_buf = current_buffer;
   current_buffer = b;
   last_known_column_point = -1;   /* invalidate indentation cache */
index 1a76a502ca05901dc44805e297db4bfe3696ca6e..97764eb24bd4f450e939608cc8c9001b17d84356 100644 (file)
@@ -2628,9 +2628,6 @@ extern Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
 
 EXFUN (Fbyteorder, 0) ATTRIBUTE_CONST;
 
-/* Defined in frame.c.  */
-extern Lisp_Object Qframep;
-
 /* Defined in data.c.  */
 extern Lisp_Object indirect_function (Lisp_Object);
 extern Lisp_Object find_symbol_value (Lisp_Object);
index f1177be3d99cfe7352ec70a37d7346419801dfb5..197f4916bc262fc550c8755d497d118cc1540c6c 100644 (file)
@@ -273,7 +273,7 @@ decode_valid_window (register Lisp_Object window)
 /* Build a frequently used 4-integer (X Y W H) list.  */
 
 static Lisp_Object
-quad (ptrdiff_t x, ptrdiff_t y, ptrdiff_t w, ptrdiff_t h)
+quad (EMACS_INT x, EMACS_INT y, EMACS_INT w, EMACS_INT h)
 {
   return list4 (make_number (x), make_number (y),
                make_number (w), make_number (h));
@@ -3105,7 +3105,7 @@ run_window_configuration_change_hook (struct frame *f)
 
 DEFUN ("run-window-configuration-change-hook", Frun_window_configuration_change_hook,
        Srun_window_configuration_change_hook, 0, 1, 0,
-       doc: /* Run `window-configuration-change-hook' for FRAME. 
+       doc: /* Run `window-configuration-change-hook' for FRAME.
 If FRAME is omitted or nil, it defaults to the selected frame.  */)
   (Lisp_Object frame)
 {