3 files changed, 108 insertions, 5 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 1ad3e1cff24..1a83531ad10 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,17 @@
+2013-08-15  Eli Zaretskii  <eliz@gnu.org>
+
+        * xdisp.c (compute_window_start_on_continuation_line): When
+        WORD_WRAP is in effect, use move_it_to instead of move_it_by_lines
+        to make sure we end up setting the window start at the leftmost
+        visible character of the display line.  This avoids funky
+        horizontal shifting because the window start is not kept on the
+        same position.  (Bug#15090)
+
+2013-08-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * image.c (imagemagick_compute_animated_image): Implement animated
+        images (bug#14700).
+
 2013-08-15  Dmitry Antipov  <dmantipov@yandex.ru>
 
         * lisp.h (FOR_EACH_ALIST_VALUE): New macro
diff --git a/src/image.c b/src/image.c
index 8d969a6f9c6..c534f181e5c 100644
--- a/src/image.c
+++ b/src/image.c
@@ -7864,6 +7864,75 @@ imagemagick_filename_hint (Lisp_Object spec, char hint_buffer[MaxTextExtent])
   return hint_buffer;
 }
 
+/* Animated images (e.g., GIF89a) are composed from one "master image"
+   (which is the first one, and then there's a number of images that
+   follow.  If following images have non-transparent colors, these are
+   composed "on top" of the master image.  So, in general, one has to
+   compute ann the preceding images to be able to display a particular
+   sub-image.  */
+
+static MagickWand *
+imagemagick_compute_animated_image (MagickWand *super_wand, int ino)
+{
+  MagickWand *composite_wand;
+
+  MagickSetIteratorIndex (super_wand, 0);
+  composite_wand = MagickGetImage (super_wand);
+
+  for (int i = 1; i <= ino; i++) {
+    MagickWand *sub_wand;
+    PixelIterator *source_iterator, *dest_iterator;
+    PixelWand **source, **dest;
+    long source_width, dest_width;
+    MagickPixelPacket pixel;
+
+    MagickSetIteratorIndex (super_wand, i);
+    sub_wand = MagickGetImage (super_wand);
+
+    source_iterator = NewPixelIterator (sub_wand);
+    if (! source_iterator)
+      {
+        DestroyMagickWand (composite_wand);
+        DestroyMagickWand (sub_wand);
+        image_error ("Imagemagick pixel iterator creation failed",
+                     Qnil, Qnil);
+        return NULL;
+      }
+
+    dest_iterator = NewPixelIterator (composite_wand);
+    if (! dest_iterator)
+      {
+        DestroyMagickWand (composite_wand);
+        DestroyMagickWand (sub_wand);
+        DestroyPixelIterator (source_iterator);
+        image_error ("Imagemagick pixel iterator creation failed",
+                     Qnil, Qnil);
+        return NULL;
+      }
+
+    while (source = PixelGetNextIteratorRow (source_iterator, &source_width)) {
+      dest = PixelGetNextIteratorRow (dest_iterator, &dest_width);
+      for (int x = 0; x < source_width; x++)
+        {
+          /* Copy over non-transparent pixels. */
+          if (PixelGetAlpha (source[x]))
+            {
+              PixelGetMagickColor (source[x], &pixel);
+              PixelSetMagickColor (dest[x], &pixel);
+            }
+        }
+      PixelSyncIterator(dest_iterator);
+    }
+
+    DestroyPixelIterator (source_iterator);
+    DestroyPixelIterator (dest_iterator);
+    DestroyMagickWand (sub_wand);
+  }
+
+  return composite_wand;
+}
+
+
 /* Helper function for imagemagick_load, which does the actual loading
    given contents and size, apart from frame and image structures,
    passed from imagemagick_load.  Uses librimagemagick to do most of
@@ -7965,12 +8034,14 @@ imagemagick_load_image (struct frame *f, struct image *img,
 
   /* If we have an animated image, get the new wand based on the
      "super-wand". */
-  if (ino > 0)
+  if (MagickGetNumberImages (image_wand) > 1)
     {
       MagickWand *super_wand = image_wand;
-      MagickSetIteratorIndex (super_wand, ino);
-      image_wand = MagickGetImage (super_wand);
-      DestroyMagickWand (super_wand);
+      image_wand = imagemagick_compute_animated_image (super_wand, ino);
+      if (! image_wand)
+        image_wand = super_wand;
+      else
+        DestroyMagickWand (super_wand);
     }
 
   /* Retrieve the frame's background color, for use later.  */
diff --git a/src/xdisp.c b/src/xdisp.c
index 7a0c1009d83..4e1ddb36baa 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -14975,7 +14975,25 @@ compute_window_start_on_continuation_line (struct window *w)
             {
               min_distance = distance;
               pos = it.current.pos;
-              move_it_by_lines (&it, 1);
+              if (it.line_wrap == WORD_WRAP)
+                {
+                  /* Under WORD_WRAP, move_it_by_lines is likely to
+                     overshoot and stop not at the first, but the
+                     second character from the left margin.  So in
+                     that case, we need a more tight control on the X
+                     coordinate of the iterator than move_it_by_lines
+                     promises in its contract.  The method is to first
+                     go to the last (rightmost) visible character of a
+                     line, then move to the leftmost character on the
+                     next line in a separate call.  */
+                  move_it_to (&it, ZV, it.last_visible_x, it.current_y, -1,
+                              MOVE_TO_POS | MOVE_TO_X | MOVE_TO_Y);
+                  move_it_to (&it, ZV, 0,
+                              it.current_y + it.max_ascent + it.max_descent, -1,
+                              MOVE_TO_POS | MOVE_TO_X | MOVE_TO_Y);
+                }
+              else
+                move_it_by_lines (&it, 1);
             }
 
           /* Set the window start there.  */