[Emacs-diffs] /srv/bzr/emacs/trunk r103404: * src/print.c (print_object): Never print old-style backquotes.

[Stefan Monnier]

------------------------------------------------------------
revno: 103404
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2011-02-23 10:14:21 -0500
message:
  * src/print.c (print_object): Never print old-style backquotes.
  Obey escapeflag for hash tables as well.
modified:
  src/ChangeLog
  src/print.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-02-23 04:19:28 +0000
+++ b/src/ChangeLog     2011-02-23 15:14:21 +0000
@@ -1,3 +1,8 @@
+2011-02-23  Stefan Monnier  <address@hidden>
+
+       * print.c (print_object): Never print old-style backquotes.
+       Obey escapeflag for hash tables as well.
+
 2011-02-23  Kenichi Handa  <address@hidden>
 
        * font.c (font_open_entity): Be sure to set scaled_pixel_size.

=== modified file 'src/print.c'
--- a/src/print.c       2011-02-16 15:02:50 +0000
+++ b/src/print.c       2011-02-23 15:14:21 +0000
@@ -1683,26 +1683,6 @@
        {
          PRINTCHAR ('(');
 
-         /* If the first element is a backquote form,
-            print it old-style so it won't be misunderstood.  */
-         if (print_quoted && CONSP (XCAR (obj))
-             && CONSP (XCDR (XCAR (obj)))
-             && NILP (XCDR (XCDR (XCAR (obj))))
-             && EQ (XCAR (XCAR (obj)), Qbackquote))
-           {
-             Lisp_Object tem;
-             tem = XCAR (obj);
-             PRINTCHAR ('(');
-
-             print_object (Qbackquote, printcharfun, 0);
-             PRINTCHAR (' ');
-
-             print_object (XCAR (XCDR (tem)), printcharfun, 0);
-             PRINTCHAR (')');
-
-             obj = XCDR (obj);
-           }
-
          {
            EMACS_INT print_length;
            int i;
@@ -1906,25 +1886,25 @@
          if (!NILP (h->test))
            {
              strout (" test ", -1, -1, printcharfun, 0);
-             print_object (h->test, printcharfun, 0);
+             print_object (h->test, printcharfun, escapeflag);
            }
 
          if (!NILP (h->weak))
            {
              strout (" weakness ", -1, -1, printcharfun, 0);
-             print_object (h->weak, printcharfun, 0);
+             print_object (h->weak, printcharfun, escapeflag);
            }
 
          if (!NILP (h->rehash_size))
            {
              strout (" rehash-size ", -1, -1, printcharfun, 0);
-             print_object (h->rehash_size, printcharfun, 0);
+             print_object (h->rehash_size, printcharfun, escapeflag);
            }
 
          if (!NILP (h->rehash_threshold))
            {
              strout (" rehash-threshold ", -1, -1, printcharfun, 0);
-             print_object (h->rehash_threshold, printcharfun, 0);
+             print_object (h->rehash_threshold, printcharfun, escapeflag);
            }
 
          strout (" data ", -1, -1, printcharfun, 0);
@@ -1943,9 +1923,9 @@
            if (!NILP (HASH_HASH (h, i)))
              {
                if (i) PRINTCHAR (' ');
-               print_object (HASH_KEY (h, i), printcharfun, 1);
+               print_object (HASH_KEY (h, i), printcharfun, escapeflag);
                PRINTCHAR (' ');
-               print_object (HASH_VALUE (h, i), printcharfun, 1);
+               print_object (HASH_VALUE (h, i), printcharfun, escapeflag);
              }
 
          if (size < real_size)