[Emacs-diffs] /srv/bzr/emacs/trunk r110818: Minor adjustments of recently-changed frame functions.

[Paul Eggert]

------------------------------------------------------------
revno: 110818
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Tue 2012-11-06 09:40:07 -0800
message:
  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.
modified:
  src/ChangeLog
  src/buffer.c
  src/lisp.h
  src/window.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-11-06 15:57:14 +0000
+++ b/src/ChangeLog     2012-11-06 17:40:07 +0000
@@ -1,3 +1,12 @@
+2012-11-06  Paul Eggert  <address@hidden>
+
+       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  <address@hidden>
 
        * window.c (Fwindow_combination_limit): Revert to the only

=== modified file 'src/buffer.c'
--- a/src/buffer.c      2012-11-06 13:26:20 +0000
+++ b/src/buffer.c      2012-11-06 17:40:07 +0000
@@ -406,7 +406,6 @@
       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 @@
     return;
 
   BUFFER_CHECK_INDIRECTION (b);
-  
+
   old_buf = current_buffer;
   current_buffer = b;
   last_known_column_point = -1;   /* invalidate indentation cache */

=== modified file 'src/lisp.h'
--- a/src/lisp.h        2012-11-06 13:26:20 +0000
+++ b/src/lisp.h        2012-11-06 17:40:07 +0000
@@ -2628,9 +2628,6 @@
 
 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);

=== modified file 'src/window.c'
--- a/src/window.c      2012-11-06 15:57:14 +0000
+++ b/src/window.c      2012-11-06 17:40:07 +0000
@@ -273,7 +273,7 @@
 /* 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 @@
 
 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)
 {