Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-892

3 files changed, 34 insertions, 6 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index cd6dd995bcf..6884af95810 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2007-10-16  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+        * xdisp.c (handle_display_prop): Ignore display specs after
+        replacing one when string text is being replaced.
+        (handle_single_display_spec): Pretend as if characters with display
+        property haven't been consumed only when buffer text is being replaced.
+
 2007-10-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * xfns.c (Fx_create_frame, Fx_display_list):
@@ -109,6 +116,11 @@
 
         * puresize.h (BASE_PURESIZE): Increase to 1170000.
 
+2007-10-09  Richard Stallman  <rms@gnu.org>
+
+        * xdisp.c (handle_invisible_prop): After setting up an ellipsis,
+        return HANDLED_RETURN.
+
 2007-10-08  Martin Rudalics  <rudalics@gmx.at>
 
         * keyboard.c (kbd_buffer_get_event): Break loop waiting for input
diff --git a/src/eval.c b/src/eval.c
index d71d646a25b..eaa1a6855f6 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -468,7 +468,7 @@ usage: (prog1 FIRST BODY...)  */)
   struct gcpro gcpro1, gcpro2;
   register int argnum = 0;
 
-  if (NILP(args))
+  if (NILP (args))
     return Qnil;
 
   args_left = args;
diff --git a/src/xdisp.c b/src/xdisp.c
index 5bf4208ff64..43e5a953e50 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -3827,7 +3827,13 @@ handle_display_prop (it)
         {
           if (handle_single_display_spec (it, XCAR (prop), object,
                                           position, display_replaced_p))
-            display_replaced_p = 1;
+            {
+              display_replaced_p = 1;
+              /* If some text in a string is replaced, `position' no
+                 longer points to the position of `object'.  */
+              if (STRINGP (object))
+                break;
+            }
         }
     }
   else if (VECTORP (prop))
@@ -3836,7 +3842,13 @@ handle_display_prop (it)
       for (i = 0; i < ASIZE (prop); ++i)
         if (handle_single_display_spec (it, AREF (prop, i), object,
                                         position, display_replaced_p))
-          display_replaced_p = 1;
+          {
+            display_replaced_p = 1;
+            /* If some text in a string is replaced, `position' no
+               longer points to the position of `object'.  */
+            if (STRINGP (object))
+              break;
+          }
     }
   else
     {
@@ -4225,13 +4237,16 @@ handle_single_display_spec (it, spec, object, position,
           /* Say that we haven't consumed the characters with
              `display' property yet.  The call to pop_it in
              set_iterator_to_next will clean this up.  */
-          *position = start_pos;
+          if (BUFFERP (object))
+            it->current.pos = start_pos;
         }
       else if (CONSP (value) && EQ (XCAR (value), Qspace))
         {
           it->method = GET_FROM_STRETCH;
           it->object = value;
-          *position = it->position = start_pos;
+          it->position = start_pos;
+          if (BUFFERP (object))
+            it->current.pos = start_pos;
         }
 #ifdef HAVE_WINDOW_SYSTEM
       else
@@ -4245,7 +4260,8 @@ handle_single_display_spec (it, spec, object, position,
           /* Say that we haven't consumed the characters with
              `display' property yet.  The call to pop_it in
              set_iterator_to_next will clean this up.  */
-          *position = start_pos;
+          if (BUFFERP (object))
+            it->current.pos = start_pos;
         }
 #endif /* HAVE_WINDOW_SYSTEM */