(timezone-parse-date): Match forms 1 and 2 first.

[gnu-emacs] / lisp / format.el

diff --git a/lisp/format.el b/lisp/format.el
index 0b0910cef66a1b54561f425d1937d37047edd354..ed70fa9d1c66ff61418a84646d0a0bf2934aecfe 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -518,7 +518,7 @@ to write these unknown annotations back into the file."
                                            (assoc (car to-reset) 
                                                   (cdr open-ans)))
                                      (if this-one
-                                         (setcdr this-one (list loc)))
+                                         (setcar (cdr this-one) loc))
                                      (setq to-reset (cdr to-reset))))
                                  ;; Set loop variables to nil so loop
                                  ;; will exit.