Fix --enable-gcc-warnings errors introduced in 2013-08-13 commit.

* image.c (imagemagick_filename_hint): Use `const char *' and
prefer SSDATA to SDATA to avoid warnings.

diff --git a/src/ChangeLog b/src/ChangeLog
index af088340e3b51a2d1e69af2291b997c484ee97d7..cf73204c55cfd46dd21a99ad8d45b1e9a174029d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2013-08-14  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       Fix --enable-gcc-warnings errors introduced in 2013-08-13 commit.
+       * image.c (imagemagick_filename_hint): Use `const char *' and
+       prefer SSDATA to SDATA to avoid warnings.
+
 2013-08-14  Dmitry Antipov  <dmantipov@yandex.ru>
 
        Cleanup window fringes, margins and scroll bars adjustments.

diff --git a/src/image.c b/src/image.c
index e767d5447d104f2e86d6a05795ea7a3908b30ff2..99bb9d8c135bf80b17ed84979c0237b524986a18 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -7851,9 +7851,9 @@ static char*
 imagemagick_filename_hint (Lisp_Object spec)
 {
   Lisp_Object format = image_spec_value (spec, intern (":format"), NULL);
-  Lisp_Object symbol = intern ("image-format-suffixes");
-  Lisp_Object val;
-  char *name, *prefix = "/tmp/foo.";
+  Lisp_Object val, symbol = intern ("image-format-suffixes");
+  const char *prefix = "/tmp/foo.";
+  char *name;
 
   if (NILP (Fboundp (symbol)))
     return NULL;
@@ -7871,8 +7871,8 @@ imagemagick_filename_hint (Lisp_Object spec)
     return NULL;
 
   name = xmalloc (strlen (prefix) + SBYTES (val) + 1);
-  strcpy(name, prefix);
-  strcat(name, SDATA (val));
+  strcpy (name, prefix);
+  strcat (name, SSDATA (val));
   return name;
 }