(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 0c7774d26ed1bdbed70e52fbebc5d6a43bf336c2..ed70fa9d1c66ff61418a84646d0a0bf2934aecfe 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -63,7 +63,7 @@
 
 (put 'buffer-file-format 'permanent-local t)
 
-(defconst format-alist 
+(defvar format-alist 
   '((text/enriched "Extended MIME text/enriched format."
                   "Content-[Tt]ype:[ \t]*text/enriched"
                   enriched-decode enriched-encode t enriched-mode)
@@ -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.