Merged in changes from CVS trunk.

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-547
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-548
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-549
   Use symbol-matching for generic-mode keywords

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-550
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-551
   Update from CVS


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-246

6 files changed, 96 insertions, 67 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 5fee1e8d97d..955c8929f92 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,27 @@
+2004-09-14  Stefan  <monnier@iro.umontreal.ca>
+
+        * fileio.c (Finsert_file_contents): Fix case of replacement in a
+        narrowed buffer.
+
+2004-09-14  Kim F. Storm  <storm@cua.dk>
+
+        * puresize.h (PURESIZE_RATIO): Define based on BITS_PER_EMACS_INT.
+
+        * xfaces.c (Qface_no_inherit): New var.
+        (syms_of_xfaces): Intern and staticpro it.
+        (Finternal_make_lisp_face, Finternal_set_lisp_face_attribute)
+        (Finternal_copy_lisp_face, update_face_from_frame_parameter):
+        Don't increment face_change_count when face has non-nil
+        face-no-inherit property.
+
+2004-09-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * bytecode.c (BYTE_CODE_QUIT): Add missing AFTER_POTENTIAL_GC.
+        (Fbyte_code): Remove dead code after `wrong_type_argument'.
+
+        * alloc.c (Fgarbage_collect): Mark keyboards, gtk data, and specpdl
+        before doing the mark_stack_check_gcpros since they are not on the stack.
+
 2004-09-12  Kim F. Storm  <storm@cua.dk>
 
         * editfns.c (Fformat): Handle format strings with multiple text
@@ -12504,7 +12528,7 @@
 
 2002-02-15  Andreas Schwab  <schwab@suse.de>
 
-        * puresize.h (BASE_PURESIZE): Increase to 9/5.
+        * puresize.h (PURESIZE_RATIO): Increase to 9/5.
 
         * alloc.c (NSTATICS): Increase to 1280.
 
diff --git a/src/alloc.c b/src/alloc.c
index e1fadc155f6..12e673495c3 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1,6 +1,6 @@
 /* Storage allocation and gc for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985,86,88,93,94,95,97,98,1999,2000,01,02,03,2004
-      Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999,
+      2000, 2001, 2002, 2003, 2004  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -4455,6 +4455,21 @@ returns nil, because real GC can't be done.  */)
   for (i = 0; i < staticidx; i++)
     mark_object (*staticvec[i]);
 
+  for (bind = specpdl; bind != specpdl_ptr; bind++)
+    {
+      mark_object (bind->symbol);
+      mark_object (bind->old_value);
+    }
+  mark_kboards ();
+  mark_ttys ();
+
+#ifdef USE_GTK
+  {
+    extern void xg_mark_data ();
+    xg_mark_data ();
+  }
+#endif
+
 #if (GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS \
      || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
   mark_stack ();
@@ -4468,11 +4483,6 @@ returns nil, because real GC can't be done.  */)
 #endif
 
   mark_byte_stack ();
-  for (bind = specpdl; bind != specpdl_ptr; bind++)
-    {
-      mark_object (bind->symbol);
-      mark_object (bind->old_value);
-    }
   for (catch = catchlist; catch; catch = catch->next)
     {
       mark_object (catch->tag);
@@ -4484,20 +4494,11 @@ returns nil, because real GC can't be done.  */)
       mark_object (handler->var);
     }
   mark_backtrace ();
-  mark_kboards ();
-  mark_ttys ();
 
 #if GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES
   mark_stack ();
 #endif
 
-#ifdef USE_GTK
-  {
-    extern void xg_mark_data ();
-    xg_mark_data ();
-  }
-#endif
-
   /* Everything is now marked, except for the things that require special
      finalization, i.e. the undo_list.
      Look thru every buffer's undo list
diff --git a/src/bytecode.c b/src/bytecode.c
index 0d3be49877c..e8d006e67d1 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1,5 +1,5 @@
 /* Execution of byte code produced by bytecomp.el.
-   Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003
+   Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004
    Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -387,6 +387,7 @@ unmark_byte_stack ()
         Vquit_flag = Qnil;                              \
         BEFORE_POTENTIAL_GC ();                         \
         Fsignal (Qquit, Qnil);                          \
+        AFTER_POTENTIAL_GC ();                          \
       }                                                 \
   } while (0)
 
@@ -539,9 +540,7 @@ If the third argument is incorrect, Emacs may crash.  */)
               TOP = Qnil;
             else
               {
-                BEFORE_POTENTIAL_GC ();
-                Fcar (wrong_type_argument (Qlistp, v1));
-                AFTER_POTENTIAL_GC ();
+                wrong_type_argument (Qlistp, v1);
               }
             break;
           }
@@ -574,9 +573,7 @@ If the third argument is incorrect, Emacs may crash.  */)
               TOP = Qnil;
             else
               {
-                BEFORE_POTENTIAL_GC ();
-                Fcdr (wrong_type_argument (Qlistp, v1));
-                AFTER_POTENTIAL_GC ();
+                wrong_type_argument (Qlistp, v1);
               }
             break;
           }
@@ -907,11 +904,7 @@ If the third argument is incorrect, Emacs may crash.  */)
                 else if (!NILP (v1))
                   {
                     immediate_quit = 0;
-                    BEFORE_POTENTIAL_GC ();
-                    v1 = wrong_type_argument (Qlistp, v1);
-                    AFTER_POTENTIAL_GC ();
-                    immediate_quit = 1;
-                    op++;
+                    wrong_type_argument (Qlistp, v1);
                   }
               }
             immediate_quit = 0;
@@ -920,11 +913,7 @@ If the third argument is incorrect, Emacs may crash.  */)
             else if (NILP (v1))
               TOP = Qnil;
             else
-              {
-                BEFORE_POTENTIAL_GC ();
-                Fcar (wrong_type_argument (Qlistp, v1));
-                AFTER_POTENTIAL_GC ();
-              }
+              wrong_type_argument (Qlistp, v1);
             break;
           }
 
@@ -1554,11 +1543,7 @@ If the third argument is incorrect, Emacs may crash.  */)
                     else if (!NILP (v1))
                       {
                         immediate_quit = 0;
-                        BEFORE_POTENTIAL_GC ();
-                        v1 = wrong_type_argument (Qlistp, v1);
-                        AFTER_POTENTIAL_GC ();
-                        immediate_quit = 1;
-                        op++;
+                        wrong_type_argument (Qlistp, v1);
                       }
                   }
                 immediate_quit = 0;
@@ -1567,11 +1552,7 @@ If the third argument is incorrect, Emacs may crash.  */)
                 else if (NILP (v1))
                   TOP = Qnil;
                 else
-                  {
-                    BEFORE_POTENTIAL_GC ();
-                    Fcar (wrong_type_argument (Qlistp, v1));
-                    AFTER_POTENTIAL_GC ();
-                  }
+                  wrong_type_argument (Qlistp, v1);
               }
             else
               {
diff --git a/src/fileio.c b/src/fileio.c
index e95205d7489..9e86b6a9189 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1,6 +1,6 @@
 /* File IO for GNU Emacs.
-   Copyright (C) 1985,86,87,88,93,94,95,96,97,98,99,2000,01,03,2004
-     Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998,
+     1999, 2000, 2001, 2003, 2004  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -4329,7 +4329,7 @@ actually used.  */)
       /* Replace the chars that we need to replace,
          and update INSERTED to equal the number of bytes
          we are taking from the file.  */
-      inserted -= (Z_BYTE - same_at_end) + (same_at_start - BEG_BYTE);
+      inserted -= (ZV_BYTE - same_at_end) + (same_at_start - BEGV_BYTE);
 
       if (same_at_end != same_at_start)
         {
@@ -4343,7 +4343,7 @@ actually used.  */)
         }
       /* Insert from the file at the proper position.  */
       SET_PT_BOTH (temp, same_at_start);
-      insert_1 (conversion_buffer + same_at_start - BEG_BYTE, inserted,
+      insert_1 (conversion_buffer + same_at_start - BEGV_BYTE, inserted,
                 0, 0, 0);
       if (coding.cmp_data && coding.cmp_data->used)
         coding_restore_composition (&coding, Fcurrent_buffer ());
diff --git a/src/puresize.h b/src/puresize.h
index 8088a374765..054b2bc4c89 100644
--- a/src/puresize.h
+++ b/src/puresize.h
@@ -47,7 +47,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* Increase BASE_PURESIZE by a ratio depending on the machine's word size.  */
 #ifndef PURESIZE_RATIO
-#if VALBITS + GCTYPEBITS + 1 > 32
+#if BITS_PER_EMACS_INT > 32
 #define PURESIZE_RATIO 9/5      /* Don't surround with `()'. */
 #else
 #define PURESIZE_RATIO 1
diff --git a/src/xfaces.c b/src/xfaces.c
index 10b7ef1148c..5137ab7e721 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -388,6 +388,10 @@ Lisp_Object Qforeground_color, Qbackground_color;
 Lisp_Object Qface;
 extern Lisp_Object Qmouse_face;
 
+/* Property for basic faces which other faces cannot inherit.  */
+
+Lisp_Object Qface_no_inherit;
+
 /* Error symbol for wrong_type_argument in load_pixmap.  */
 
 Lisp_Object Qbitmap_spec_p;
@@ -3868,8 +3872,11 @@ Value is a vector of face attributes.  */)
      depend on the face, make sure they are all removed.  This is done
      by incrementing face_change_count.  The next call to
      init_iterator will then free realized faces.  */
-  ++face_change_count;
-  ++windows_or_buffers_changed;
+  if (NILP (Fget (face, Qface_no_inherit)))
+    {
+      ++face_change_count;
+      ++windows_or_buffers_changed;
+    }
 
   xassert (LFACEP (lface));
   check_lface (lface);
@@ -3944,8 +3951,11 @@ The value is TO.  */)
      depend on the face, make sure they are all removed.  This is done
      by incrementing face_change_count.  The next call to
      init_iterator will then free realized faces.  */
-  ++face_change_count;
-  ++windows_or_buffers_changed;
+  if (NILP (Fget (to, Qface_no_inherit)))
+    {
+      ++face_change_count;
+      ++windows_or_buffers_changed;
+    }
 
   return to;
 }
@@ -4302,6 +4312,7 @@ FRAME 0 means change the face on all frames, and change the default
      by incrementing face_change_count.  The next call to
      init_iterator will then free realized faces.  */
   if (!EQ (frame, Qt)
+      && NILP (Fget (face, Qface_no_inherit))
       && (EQ (attr, QCfont)
           || NILP (Fequal (old_value, value))))
     {
@@ -4454,6 +4465,7 @@ update_face_from_frame_parameter (f, param, new_value)
      struct frame *f;
      Lisp_Object param, new_value;
 {
+  Lisp_Object face = Qnil;
   Lisp_Object lface;
 
   /* If there are no faces yet, give up.  This is the case when called
@@ -4462,17 +4474,10 @@ update_face_from_frame_parameter (f, param, new_value)
   if (NILP (f->face_alist))
     return;
 
-  /* Changing a named face means that all realized faces depending on
-     that face are invalid.  Since we cannot tell which realized faces
-     depend on the face, make sure they are all removed.  This is done
-     by incrementing face_change_count.  The next call to
-     init_iterator will then free realized faces.  */
-  ++face_change_count;
-  ++windows_or_buffers_changed;
-
   if (EQ (param, Qforeground_color))
     {
-      lface = lface_from_face_name (f, Qdefault, 1);
+      face = Qdefault;
+      lface = lface_from_face_name (f, face, 1);
       LFACE_FOREGROUND (lface) = (STRINGP (new_value)
                                   ? new_value : Qunspecified);
       realize_basic_faces (f);
@@ -4487,29 +4492,45 @@ update_face_from_frame_parameter (f, param, new_value)
       XSETFRAME (frame, f);
       call1 (Qframe_update_face_colors, frame);
 
-      lface = lface_from_face_name (f, Qdefault, 1);
+      face = Qdefault;
+      lface = lface_from_face_name (f, face, 1);
       LFACE_BACKGROUND (lface) = (STRINGP (new_value)
                                   ? new_value : Qunspecified);
       realize_basic_faces (f);
     }
-  if (EQ (param, Qborder_color))
+  else if (EQ (param, Qborder_color))
     {
-      lface = lface_from_face_name (f, Qborder, 1);
+      face = Qborder;
+      lface = lface_from_face_name (f, face, 1);
       LFACE_BACKGROUND (lface) = (STRINGP (new_value)
                                   ? new_value : Qunspecified);
     }
   else if (EQ (param, Qcursor_color))
     {
-      lface = lface_from_face_name (f, Qcursor, 1);
+      face = Qcursor;
+      lface = lface_from_face_name (f, face, 1);
       LFACE_BACKGROUND (lface) = (STRINGP (new_value)
                                   ? new_value : Qunspecified);
     }
   else if (EQ (param, Qmouse_color))
     {
-      lface = lface_from_face_name (f, Qmouse, 1);
+      face = Qmouse;
+      lface = lface_from_face_name (f, face, 1);
       LFACE_BACKGROUND (lface) = (STRINGP (new_value)
                                   ? new_value : Qunspecified);
     }
+
+  /* Changing a named face means that all realized faces depending on
+     that face are invalid.  Since we cannot tell which realized faces
+     depend on the face, make sure they are all removed.  This is done
+     by incrementing face_change_count.  The next call to
+     init_iterator will then free realized faces.  */
+  if (!NILP (face)
+      && NILP (Fget (face, Qface_no_inherit)))
+    {
+      ++face_change_count;
+      ++windows_or_buffers_changed;
+    }
 }
 
 
@@ -7767,6 +7788,8 @@ syms_of_xfaces ()
 {
   Qface = intern ("face");
   staticpro (&Qface);
+  Qface_no_inherit = intern ("face-no-inherit");
+  staticpro (&Qface_no_inherit);
   Qbitmap_spec_p = intern ("bitmap-spec-p");
   staticpro (&Qbitmap_spec_p);
   Qframe_update_face_colors = intern ("frame-update-face-colors");