Fix up comment convention on the arch-tag lines.

590 files changed, 590 insertions, 590 deletions

diff --git a/lisp/abbrevlist.el b/lisp/abbrevlist.el
index 2b5c1664b48..3fb6ea861f8 100644
--- a/lisp/abbrevlist.el
+++ b/lisp/abbrevlist.el
@@ -54,5 +54,5 @@
 
 (provide 'abbrevlist)
 
-;;; arch-tag: 178f0638-6597-4c16-bcee-576c3d8e9217
+;; arch-tag: 178f0638-6597-4c16-bcee-576c3d8e9217
 ;;; abbrevlist.el ends here
diff --git a/lisp/align.el b/lisp/align.el
index 923bad4fe04..7e0da708486 100644
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1598,5 +1598,5 @@ aligner would have dealt with are."
 
 (run-hooks 'align-load-hook)
 
-;;; arch-tag: ef79cccf-1db8-4888-a8a1-d7ce2d1532f7
+;; arch-tag: ef79cccf-1db8-4888-a8a1-d7ce2d1532f7
 ;;; align.el ends here
diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index db2818f31ed..e9cad7b13d1 100644
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -633,5 +633,5 @@ ESCAPE-SEQ is a SGR control sequences such as \\033[34m.  The parameter
 
 (provide 'ansi-color)
 
-;;; arch-tag: 00726118-9432-44fd-b72d-d2af7591c99c
+;; arch-tag: 00726118-9432-44fd-b72d-d2af7591c99c
 ;;; ansi-color.el ends here
diff --git a/lisp/apropos.el b/lisp/apropos.el
index a2bbdce88ea..ce70ee26f8f 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1022,5 +1022,5 @@ If non-nil TEXT is a string that will be printed as a heading."
 
 (provide 'apropos)
 
-;;; arch-tag: d56fa2ac-e56b-4ce3-84ff-852f9c0dc66e
+;; arch-tag: d56fa2ac-e56b-4ce3-84ff-852f9c0dc66e
 ;;; apropos.el ends here
diff --git a/lisp/autoarg.el b/lisp/autoarg.el
index 29139eb5ef8..cc9f1766afd 100644
--- a/lisp/autoarg.el
+++ b/lisp/autoarg.el
@@ -146,5 +146,5 @@ which invoked this function, excluding the Autoarg keymap."
 
 (provide 'autoarg)
 
-;;; arch-tag: 2ba2ab4f-d60e-402a-ae4d-37e29af723c2
+;; arch-tag: 2ba2ab4f-d60e-402a-ae4d-37e29af723c2
 ;;; autoarg.el ends here
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index 3e64e205ccd..10dc4336b94 100644
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -1866,5 +1866,5 @@
 
 (provide 'calc-alg)
 
-;;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0
+;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0
 ;;; calc-alg.el ends here
diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index 48b2022a1c0..34c19a2dc55 100644
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -3069,5 +3069,5 @@
 
 (provide 'calc-arith)
 
-;;; arch-tag: 6c396b5b-14c6-40ed-bb2a-7cc2e8111465
+;; arch-tag: 6c396b5b-14c6-40ed-bb2a-7cc2e8111465
 ;;; calc-arith.el ends here
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index 537c0e1be45..4424d246363 100644
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -816,5 +816,5 @@ the size of a Calc bignum digit.")
 
 (provide 'calc-bin)
 
-;;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3
+;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3
 ;;; calc-bin.el ends here
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el
index 33880f38dd7..6c3312ad13f 100644
--- a/lisp/calc/calc-comb.el
+++ b/lisp/calc/calc-comb.el
@@ -1029,5 +1029,5 @@
 
 (provide 'calc-comb)
 
-;;; arch-tag: 1d75ee9b-0815-42bd-a321-bb3dc001cc02
+;; arch-tag: 1d75ee9b-0815-42bd-a321-bb3dc001cc02
 ;;; calc-comb.el ends here
diff --git a/lisp/calc/calc-cplx.el b/lisp/calc/calc-cplx.el
index 83083cc8931..2e1aedcc288 100644
--- a/lisp/calc/calc-cplx.el
+++ b/lisp/calc/calc-cplx.el
@@ -357,5 +357,5 @@
 
 (provide 'calc-cplx)
 
-;;; arch-tag: de73a331-941c-4507-ae76-46c76adc70dd
+;; arch-tag: de73a331-941c-4507-ae76-46c76adc70dd
 ;;; calc-cplx.el ends here
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index fc50e0d0b13..bab24effe7f 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -3441,5 +3441,5 @@ A key may contain additional specs for Inverse, Hyperbolic, and Inv+Hyp.")
 
 (provide 'calc-ext)
 
-;;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e
+;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e
 ;;; calc-ext.el ends here
diff --git a/lisp/calc/calc-fin.el b/lisp/calc/calc-fin.el
index b80a731c0c2..a89bdd08d88 100644
--- a/lisp/calc/calc-fin.el
+++ b/lisp/calc/calc-fin.el
@@ -412,5 +412,5 @@
 
 (provide 'calc-fin)
 
-;;; arch-tag: 82f30ca8-d02f-4b33-84b4-bb6ecd84597b
+;; arch-tag: 82f30ca8-d02f-4b33-84b4-bb6ecd84597b
 ;;; calc-fin.el ends here
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el
index 086e083c4de..74d7e81d2b2 100644
--- a/lisp/calc/calc-forms.el
+++ b/lisp/calc/calc-forms.el
@@ -1923,5 +1923,5 @@ and ends on the last Sunday of October at 2 a.m."
 
 (provide 'calc-forms)
 
-;;; arch-tag: a3d8f33b-9508-4043-8060-d02b8c9c750c
+;; arch-tag: a3d8f33b-9508-4043-8060-d02b8c9c750c
 ;;; calc-forms.el ends here
diff --git a/lisp/calc/calc-frac.el b/lisp/calc/calc-frac.el
index 7929875a8b6..cacd97a0d0b 100644
--- a/lisp/calc/calc-frac.el
+++ b/lisp/calc/calc-frac.el
@@ -220,5 +220,5 @@
 
 (provide 'calc-frac)
 
-;;; arch-tag: 89d65274-0b3b-42d8-aacd-eaf86da5b4ea
+;; arch-tag: 89d65274-0b3b-42d8-aacd-eaf86da5b4ea
 ;;; calc-frac.el ends here
diff --git a/lisp/calc/calc-funcs.el b/lisp/calc/calc-funcs.el
index f4f63d1df8a..0fa2a18265b 100644
--- a/lisp/calc/calc-funcs.el
+++ b/lisp/calc/calc-funcs.el
@@ -1011,5 +1011,5 @@
 
 (provide 'calc-funcs)
 
-;;; arch-tag: 421ddb7a-550f-4dda-a31c-06638ebfc43a
+;; arch-tag: 421ddb7a-550f-4dda-a31c-06638ebfc43a
 ;;; calc-funcs.el ends here
diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index d52dc6d84b0..4448af2f65a 100644
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -1499,5 +1499,5 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
 
 (provide 'calc-graph)
 
-;;; arch-tag: e4b06a52-c386-4d54-a2bb-7c0a0ef533c2
+;; arch-tag: e4b06a52-c386-4d54-a2bb-7c0a0ef533c2
 ;;; calc-graph.el ends here
diff --git a/lisp/calc/calc-incom.el b/lisp/calc/calc-incom.el
index a5f73ff219e..13ba22cbfdc 100644
--- a/lisp/calc/calc-incom.el
+++ b/lisp/calc/calc-incom.el
@@ -232,5 +232,5 @@
 
 (provide 'calc-incom)
 
-;;; arch-tag: b8001270-4dc7-481b-a3e3-a952e19b390d
+;; arch-tag: b8001270-4dc7-481b-a3e3-a952e19b390d
 ;;; calc-incom.el ends here
diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el
index 55795f41c68..e5097d56968 100644
--- a/lisp/calc/calc-keypd.el
+++ b/lisp/calc/calc-keypd.el
@@ -623,5 +623,5 @@
 
 (provide 'calc-keypd)
 
-;;; arch-tag: 4ba0d360-2bb6-40b8-adfa-eb373765b3f9
+;; arch-tag: 4ba0d360-2bb6-40b8-adfa-eb373765b3f9
 ;;; calc-keypd.el ends here
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index fc1a50f1d23..9736dadab1b 100644
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -2481,5 +2481,5 @@ order to Calc's."
 
 (provide 'calc-lang)
 
-;;; arch-tag: 483bfe15-f290-4fef-bb7d-ce65be687f2e
+;; arch-tag: 483bfe15-f290-4fef-bb7d-ce65be687f2e
 ;;; calc-lang.el ends here
diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el
index c5d06031de7..67fd6ab7261 100644
--- a/lisp/calc/calc-macs.el
+++ b/lisp/calc/calc-macs.el
@@ -209,5 +209,5 @@
 
 (provide 'calc-macs)
 
-;;; arch-tag: 08ba8ec2-fcff-4b80-a079-ec661bdb057e
+;; arch-tag: 08ba8ec2-fcff-4b80-a079-ec661bdb057e
 ;;; calc-macs.el ends here
diff --git a/lisp/calc/calc-map.el b/lisp/calc/calc-map.el
index 64c66e18c47..d7de7b3e15f 100644
--- a/lisp/calc/calc-map.el
+++ b/lisp/calc/calc-map.el
@@ -1276,5 +1276,5 @@
 
 (provide 'calc-map)
 
-;;; arch-tag: 980eac49-00e0-4870-b72a-e726b74c7990
+;; arch-tag: 980eac49-00e0-4870-b72a-e726b74c7990
 ;;; calc-map.el ends here
diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index b798b480f79..7307f32f70c 100644
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -2160,5 +2160,5 @@ If this can't be done, return NIL."
 
 (provide 'calc-math)
 
-;;; arch-tag: c7367e8e-d0b8-4f70-8577-2fb3f31dbb4c
+;; arch-tag: c7367e8e-d0b8-4f70-8577-2fb3f31dbb4c
 ;;; calc-math.el ends here
diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el
index 730a80e5a48..2d5dbbeca1e 100644
--- a/lisp/calc/calc-mode.el
+++ b/lisp/calc/calc-mode.el
@@ -679,5 +679,5 @@
 
 (provide 'calc-mode)
 
-;;; arch-tag: ecc70eea-c712-43f2-9085-4205e58d6ddf
+;; arch-tag: ecc70eea-c712-43f2-9085-4205e58d6ddf
 ;;; calc-mode.el ends here
diff --git a/lisp/calc/calc-mtx.el b/lisp/calc/calc-mtx.el
index dd8ad0c8164..15be669aa7a 100644
--- a/lisp/calc/calc-mtx.el
+++ b/lisp/calc/calc-mtx.el
@@ -367,5 +367,5 @@
 
 (provide 'calc-mtx)
 
-;;; arch-tag: fc0947b1-90e1-4a23-8950-d8ead9c3a306
+;; arch-tag: fc0947b1-90e1-4a23-8950-d8ead9c3a306
 ;;; calc-mtx.el ends here
diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el
index 608d16fbab8..bda29cff0f3 100644
--- a/lisp/calc/calc-poly.el
+++ b/lisp/calc/calc-poly.el
@@ -1200,5 +1200,5 @@ If no partial fraction representation can be found, return nil."
 
 (provide 'calc-poly)
 
-;;; arch-tag: d2566c51-2ccc-45f1-8c50-f3462c2953ff
+;; arch-tag: d2566c51-2ccc-45f1-8c50-f3462c2953ff
 ;;; calc-poly.el ends here
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index 9893bfa636b..0ecc2f09af2 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -2366,5 +2366,5 @@ Redefine the corresponding command."
 
 (provide 'calc-prog)
 
-;;; arch-tag: 4c5a183b-c9e5-4632-bb3f-e41a764518b0
+;; arch-tag: 4c5a183b-c9e5-4632-bb3f-e41a764518b0
 ;;; calc-prog.el ends here
diff --git a/lisp/calc/calc-rewr.el b/lisp/calc/calc-rewr.el
index 2059547496d..9a80981167e 100644
--- a/lisp/calc/calc-rewr.el
+++ b/lisp/calc/calc-rewr.el
@@ -2115,5 +2115,5 @@
 
 (provide 'calc-rewr)
 
-;;; arch-tag: ca8d7b7d-bff1-4535-90f3-e2241f5e786b
+;; arch-tag: ca8d7b7d-bff1-4535-90f3-e2241f5e786b
 ;;; calc-rewr.el ends here
diff --git a/lisp/calc/calc-rules.el b/lisp/calc/calc-rules.el
index 0ff90ad50a4..d2cc6817493 100644
--- a/lisp/calc/calc-rules.el
+++ b/lisp/calc/calc-rules.el
@@ -447,5 +447,5 @@ fitparam(n) = x  :=  x ]"))
 
 (provide 'calc-rules)
 
-;;; arch-tag: 0ed54a52-38f3-4ed7-9ca7-b8ecf8f2febe
+;; arch-tag: 0ed54a52-38f3-4ed7-9ca7-b8ecf8f2febe
 ;;; calc-rules.el ends here
diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el
index 3d720bcd23e..98e66ac0e62 100644
--- a/lisp/calc/calc-sel.el
+++ b/lisp/calc/calc-sel.el
@@ -867,5 +867,5 @@
 
 (provide 'calc-sel)
 
-;;; arch-tag: e5169792-777d-428f-bff5-acca66813fa2
+;; arch-tag: e5169792-777d-428f-bff5-acca66813fa2
 ;;; calc-sel.el ends here
diff --git a/lisp/calc/calc-stat.el b/lisp/calc/calc-stat.el
index cd472d8d862..7e9c9615c16 100644
--- a/lisp/calc/calc-stat.el
+++ b/lisp/calc/calc-stat.el
@@ -585,5 +585,5 @@
 
 (provide 'calc-stat)
 
-;;; arch-tag: 423858e9-8513-489c-9f35-710cd9d9c307
+;; arch-tag: 423858e9-8513-489c-9f35-710cd9d9c307
 ;;; calc-stat.el ends here
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index da0c1665b4d..0821ca51266 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -680,5 +680,5 @@
 
 (provide 'calc-store)
 
-;;; arch-tag: 2fbfec82-a521-42ca-bcd8-4f254ae6313e
+;; arch-tag: 2fbfec82-a521-42ca-bcd8-4f254ae6313e
 ;;; calc-store.el ends here
diff --git a/lisp/calc/calc-stuff.el b/lisp/calc/calc-stuff.el
index 8840ad827e1..15e609dda7c 100644
--- a/lisp/calc/calc-stuff.el
+++ b/lisp/calc/calc-stuff.el
@@ -302,5 +302,5 @@ With a prefix, push that prefix as a number onto the stack."
 
 (provide 'calc-stuff)
 
-;;; arch-tag: 789332ef-a178-49d3-8fb7-5d7ed7e21f56
+;; arch-tag: 789332ef-a178-49d3-8fb7-5d7ed7e21f56
 ;;; calc-stuff.el ends here
diff --git a/lisp/calc/calc-trail.el b/lisp/calc/calc-trail.el
index 4949f6ff2b9..bbb399b01fc 100644
--- a/lisp/calc/calc-trail.el
+++ b/lisp/calc/calc-trail.el
@@ -176,5 +176,5 @@
 
 (provide 'calc-trail)
 
-;;; arch-tag: 59b76655-d882-4aab-a3ee-b83870e530d0
+;; arch-tag: 59b76655-d882-4aab-a3ee-b83870e530d0
 ;;; calc-trail.el ends here
diff --git a/lisp/calc/calc-undo.el b/lisp/calc/calc-undo.el
index b535dbd7fb9..0f41032f5a8 100644
--- a/lisp/calc/calc-undo.el
+++ b/lisp/calc/calc-undo.el
@@ -150,5 +150,5 @@
 
 (provide 'calc-undo)
 
-;;; arch-tag: eeb485d2-fb3d-454a-9d79-450af1f50d6c
+;; arch-tag: eeb485d2-fb3d-454a-9d79-450af1f50d6c
 ;;; calc-undo.el ends here
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 27d76fe4b8a..b556c105f5a 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -1497,5 +1497,5 @@ If EXPR is nil, return nil."
 ;; coding: iso-latin-1
 ;; End:
 
-;;; arch-tag: e993314f-3adc-4191-be61-4ef8874881c4
+;; arch-tag: e993314f-3adc-4191-be61-4ef8874881c4
 ;;; calc-units.el ends here
diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el
index 4055c4a7277..c079e8985e3 100644
--- a/lisp/calc/calc-vec.el
+++ b/lisp/calc/calc-vec.el
@@ -1637,5 +1637,5 @@ of two matrices is a matrix."
 
 (provide 'calc-vec)
 
-;;; arch-tag: 7902a7af-ec69-440a-8635-ebb4db263402
+;; arch-tag: 7902a7af-ec69-440a-8635-ebb4db263402
 ;;; calc-vec.el ends here
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 4aeda3cb4e2..363248cb745 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -3698,5 +3698,5 @@ Also looks for the equivalent TeX words, \\gets and \\evalto."
 
 (provide 'calc)
 
-;;; arch-tag: 0c3b170c-4ce6-4eaf-8d9b-5834d1fe938f
+;; arch-tag: 0c3b170c-4ce6-4eaf-8d9b-5834d1fe938f
 ;;; calc.el ends here
diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el
index c348e18937c..6d9e3000f6b 100644
--- a/lisp/calc/calcalg2.el
+++ b/lisp/calc/calcalg2.el
@@ -3670,5 +3670,5 @@
 
 (provide 'calcalg2)
 
-;;; arch-tag: f2932ec8-dd63-418b-a542-11a644b9d4c4
+;; arch-tag: f2932ec8-dd63-418b-a542-11a644b9d4c4
 ;;; calcalg2.el ends here
diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 7a5f28c13a3..a90743e7845 100644
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -1930,5 +1930,5 @@
 
 (provide 'calcalg3)
 
-;;; arch-tag: ff9f2920-8111-48b5-b3fa-b0682c3e44a6
+;; arch-tag: ff9f2920-8111-48b5-b3fa-b0682c3e44a6
 ;;; calcalg3.el ends here
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index d2111131f03..6ae39fbebf9 100644
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -1667,5 +1667,5 @@
 
 (provide 'calccomp)
 
-;;; arch-tag: 7c45d10a-a286-4dab-af49-7ae8989fbf78
+;; arch-tag: 7c45d10a-a286-4dab-af49-7ae8989fbf78
 ;;; calccomp.el ends here
diff --git a/lisp/calc/calcsel2.el b/lisp/calc/calcsel2.el
index 40b5ce1ae2a..741aeeb1f14 100644
--- a/lisp/calc/calcsel2.el
+++ b/lisp/calc/calcsel2.el
@@ -302,5 +302,5 @@
 
 (provide 'calcsel2)
 
-;;; arch-tag: 7c5b8d65-b8f0-45d9-820d-9930f8ee114b
+;; arch-tag: 7c5b8d65-b8f0-45d9-820d-9930f8ee114b
 ;;; calcsel2.el ends here
diff --git a/lisp/calculator.el b/lisp/calculator.el
index b585af9f833..d5639298dba 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1836,5 +1836,5 @@ To use this, apply a binary operator (evaluate it), then call this."
 
 (provide 'calculator)
 
-;;; arch-tag: a1b9766c-af8a-4a74-b466-65ad8eeb0c73
+;; arch-tag: a1b9766c-af8a-4a74-b466-65ad8eeb0c73
 ;;; calculator.el ends here
diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 6531d3b19c1..4894c8f9ac3 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -219,5 +219,5 @@ unknown are returned as nil."
 
 (provide 'parse-time)
 
-;;; arch-tag: 07066094-45a8-4c68-b307-86195e2c1103
+;; arch-tag: 07066094-45a8-4c68-b307-86195e2c1103
 ;;; parse-time.el ends here
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index 5b0ddf70f00..28f1f1c9a96 100644
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -335,5 +335,5 @@ This function does not work for SECONDS greater than `most-positive-fixnum'."
 
 (provide 'time-date)
 
-;;; arch-tag: addcf07b-b20a-465b-af72-550b8ac5190f
+;; arch-tag: addcf07b-b20a-465b-af72-550b8ac5190f
 ;;; time-date.el ends here
diff --git a/lisp/case-table.el b/lisp/case-table.el
index b88c7341713..26f8814b3c9 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -170,5 +170,5 @@ SYNTAX should be \" \", \"w\", \".\" or \"_\"."
 
 (provide 'case-table)
 
-;;; arch-tag: 3c2cf885-2c9a-449a-9972-2e269191896d
+;; arch-tag: 3c2cf885-2c9a-449a-9972-2e269191896d
 ;;; case-table.el ends here
diff --git a/lisp/cdl.el b/lisp/cdl.el
index 57c3084a0a3..35bbd1bfa73 100644
--- a/lisp/cdl.el
+++ b/lisp/cdl.el
@@ -47,5 +47,5 @@
 
 (provide 'cdl)
 
-;;; arch-tag: b8e95a6e-2387-4077-ad9a-af54b09b8615
+;; arch-tag: b8e95a6e-2387-4077-ad9a-af54b09b8615
 ;;; cdl.el ends here
diff --git a/lisp/chistory.el b/lisp/chistory.el
index 52992681a94..6b5d2c7d282 100644
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -192,5 +192,5 @@ and runs the normal hook `command-history-hook'."
 
 (provide 'chistory)
 
-;;; arch-tag: c201a0cd-89f2-4d39-a532-4cb309391dbd
+;; arch-tag: c201a0cd-89f2-4d39-a532-4cb309391dbd
 ;;; chistory.el ends here
diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index 536b560c1a9..030ad8382d5 100644
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -391,5 +391,5 @@ on third call it again advances points to the next difference and so on."
 
 (provide 'compare-w)
 
-;;; arch-tag: 4177aab1-48e6-4a98-b7a1-000ee285de46
+;; arch-tag: 4177aab1-48e6-4a98-b7a1-000ee285de46
 ;;; compare-w.el ends here
diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 2e164929347..61a06dd2ee5 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -381,5 +381,5 @@ This means reset FACE to its value in FROM-THEME."
 
 (provide 'cus-face)
 
-;;; arch-tag: 9a5c4b63-0d27-4c92-a5af-f2c7ed764c2b
+;; arch-tag: 9a5c4b63-0d27-4c92-a5af-f2c7ed764c2b
 ;;; cus-face.el ends here
diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el
index 26a61c5226c..e1a5a7b4623 100644
--- a/lisp/cus-theme.el
+++ b/lisp/cus-theme.el
@@ -408,5 +408,5 @@ It includes all faces in list FACES."
       (unless (looking-at "\n")
         (princ "\n")))))
 
-;;; arch-tag: cd6919bc-63af-410e-bae2-b6702e762344
+;; arch-tag: cd6919bc-63af-410e-bae2-b6702e762344
 ;;; cus-theme.el ends here
diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 23d91d180af..c51f1322a0a 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -1018,5 +1018,5 @@ Leaves point at the location of the start of the expansion."
 
 (provide 'dabbrev)
 
-;;; arch-tag: 29e58596-f080-4306-a409-70296cf9d46f
+;; arch-tag: 29e58596-f080-4306-a409-70296cf9d46f
 ;;; dabbrev.el ends here
diff --git a/lisp/delim-col.el b/lisp/delim-col.el
index ee15dbb353f..f40271fb76a 100644
--- a/lisp/delim-col.el
+++ b/lisp/delim-col.el
@@ -479,5 +479,5 @@ START and END delimits the corners of text rectangle."
 (provide 'delim-col)
 
 
-;;; arch-tag: 1cc0c5c5-1b2a-43e4-9ba5-bf9441cfd1a9
+;; arch-tag: 1cc0c5c5-1b2a-43e4-9ba5-bf9441cfd1a9
 ;;; delim-col.el ends here
diff --git a/lisp/delsel.el b/lisp/delsel.el
index 3f9a0c7b32a..b1f1151c22f 100644
--- a/lisp/delsel.el
+++ b/lisp/delsel.el
@@ -179,5 +179,5 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
 
 (provide 'delsel)
 
-;;; arch-tag: 1e388890-1b50-4ed0-9347-763b1343b6ed
+;; arch-tag: 1e388890-1b50-4ed0-9347-763b1343b6ed
 ;;; delsel.el ends here
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 49e939fb144..c030e381174 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2357,5 +2357,5 @@ true then the type of the file linked to by FILE is printed instead."
 
 (provide 'dired-aux)
 
-;;; arch-tag: 4b508de9-a153-423d-8d3f-a1bbd86f4f60
+;; arch-tag: 4b508de9-a153-423d-8d3f-a1bbd86f4f60
 ;;; dired-aux.el ends here
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index 10b6c458c30..b2ac33c01cf 100644
--- a/lisp/dos-fns.el
+++ b/lisp/dos-fns.el
@@ -260,5 +260,5 @@ that your video hardware might not support 50-line mode."
 
 (provide 'dos-fns)
 
-;;; arch-tag: 00b03579-8ebb-4a02-8762-5c5a929774ad
+;; arch-tag: 00b03579-8ebb-4a02-8762-5c5a929774ad
 ;;; dos-fns.el ends here
diff --git a/lisp/dos-vars.el b/lisp/dos-vars.el
index c96b3dc0cd4..4fdb962d91f 100644
--- a/lisp/dos-vars.el
+++ b/lisp/dos-vars.el
@@ -45,5 +45,5 @@ in `standard-display-table' as appropriate for your codepage, if
   :type '(hook)
   :version "20.3.3")
 
-;;; arch-tag: dce8a0d9-ab29-413f-84ed-8b89d6190546
+;; arch-tag: dce8a0d9-ab29-413f-84ed-8b89d6190546
 ;;; dos-vars.el ends here
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index 7dae8d783da..beadb180624 100644
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -449,5 +449,5 @@ indicates a specific program should be invoked."
 
 (provide 'dos-w32)
 
-;;; arch-tag: dcfefdd2-362f-4fbc-9141-9634f5f4d6a7
+;; arch-tag: dcfefdd2-362f-4fbc-9141-9634f5f4d6a7
 ;;; dos-w32.el ends here
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 3e37d2c700b..a8206469cc1 100644
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -290,5 +290,5 @@ Return to Electric Buffer Menu when done."
 
 (provide 'ebuff-menu)
 
-;;; arch-tag: 1d4509b3-eece-4d4f-95ea-77c83eaf0275
+;; arch-tag: 1d4509b3-eece-4d4f-95ea-77c83eaf0275
 ;;; ebuff-menu.el ends here
diff --git a/lisp/echistory.el b/lisp/echistory.el
index c2a647be44c..b772e94c7c1 100644
--- a/lisp/echistory.el
+++ b/lisp/echistory.el
@@ -153,5 +153,5 @@ The Command History listing is recomputed each time this mode is invoked."
 
 (provide 'echistory)
 
-;;; arch-tag: 1e5018fe-190f-44a7-9109-a895dcac4c50
+;; arch-tag: 1e5018fe-190f-44a7-9109-a895dcac4c50
 ;;; echistory.el ends here
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 04d2697c911..d9d2b2458b9 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -1543,5 +1543,5 @@ affects only files whose names match the expression."
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: a86d448e-58d7-4572-a1d9-fdedfa22f648
+;; arch-tag: a86d448e-58d7-4572-a1d9-fdedfa22f648
 ;;; ediff-diff.el ends here
diff --git a/lisp/ediff-help.el b/lisp/ediff-help.el
index ad66d0c00c8..4b1a4b527ef 100644
--- a/lisp/ediff-help.el
+++ b/lisp/ediff-help.el
@@ -323,5 +323,5 @@ the value of this variable and the variables `ediff-help-message-*' in
 (provide 'ediff-help)
 
 
-;;; arch-tag: 05659813-7fcf-4274-964f-d2f577431a9d
+;; arch-tag: 05659813-7fcf-4274-964f-d2f577431a9d
 ;;; ediff-help.el ends here
diff --git a/lisp/ediff-hook.el b/lisp/ediff-hook.el
index 4f45b2f8ffa..c32f0dd1485 100644
--- a/lisp/ediff-hook.el
+++ b/lisp/ediff-hook.el
@@ -229,5 +229,5 @@
 (provide 'ediff-hook)
 
 
-;;; arch-tag: 512f8656-8a4b-4789-af5d-5c6144498df3
+;; arch-tag: 512f8656-8a4b-4789-af5d-5c6144498df3
 ;;; ediff-hook.el ends here
diff --git a/lisp/ediff-merg.el b/lisp/ediff-merg.el
index d441adcd6a1..a6cb13c7dee 100644
--- a/lisp/ediff-merg.el
+++ b/lisp/ediff-merg.el
@@ -395,5 +395,5 @@ Combining is done according to the specifications in variable
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: 9b798cf9-02ba-487f-a62e-b63aa823dbfb
+;; arch-tag: 9b798cf9-02ba-487f-a62e-b63aa823dbfb
 ;;; ediff-merg.el ends here
diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el
index ce42743a8d5..443ebdcbed6 100644
--- a/lisp/ediff-mult.el
+++ b/lisp/ediff-mult.el
@@ -2409,5 +2409,5 @@ for operation, or simply indicate which are equal files.  If it is nil, then
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: c8a76898-f96f-4d9c-be9d-129134017188
+;; arch-tag: c8a76898-f96f-4d9c-be9d-129134017188
 ;;; ediff-mult.el ends here
diff --git a/lisp/ediff-ptch.el b/lisp/ediff-ptch.el
index 06fd8d20b64..f8d0810bd9d 100644
--- a/lisp/ediff-ptch.el
+++ b/lisp/ediff-ptch.el
@@ -852,5 +852,5 @@ you can still examine the changes via M-x ediff-files"
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: 2fe2161e-e116-469b-90fa-5cbb44c1bd1b
+;; arch-tag: 2fe2161e-e116-469b-90fa-5cbb44c1bd1b
 ;;; ediff-ptch.el ends here
diff --git a/lisp/ediff-vers.el b/lisp/ediff-vers.el
index a7a8ff644a1..28f7e12d43a 100644
--- a/lisp/ediff-vers.el
+++ b/lisp/ediff-vers.el
@@ -245,5 +245,5 @@ comparison or merge operations are being performed."
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: bbb34f0c-2a90-426a-a77a-c75f479ebbbf
+;; arch-tag: bbb34f0c-2a90-426a-a77a-c75f479ebbbf
 ;;; ediff-vers.el ends here
diff --git a/lisp/ediff-wind.el b/lisp/ediff-wind.el
index abbcd09521e..17cd25d8713 100644
--- a/lisp/ediff-wind.el
+++ b/lisp/ediff-wind.el
@@ -1306,5 +1306,5 @@ It assumes that it is called from within the control buffer."
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: 73d9a5d7-eed7-4d9c-8b4b-21d5d78eb597
+;; arch-tag: 73d9a5d7-eed7-4d9c-8b4b-21d5d78eb597
 ;;; ediff-wind.el ends here
diff --git a/lisp/ediff.el b/lisp/ediff.el
index e392920a480..175772f1256 100644
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -1520,5 +1520,5 @@ With optional NODE, goes to that node."
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;;; arch-tag: 97c71396-db02-4f41-8b48-6a51c3348fcc
+;; arch-tag: 97c71396-db02-4f41-8b48-6a51c3348fcc
 ;;; ediff.el ends here
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 2d9d3c2e512..38fff3f8339 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -778,5 +778,5 @@ This function assumes that the events can be stored in a string."
 
 (provide 'edmacro)
 
-;;; arch-tag: 726807b4-3ae6-49de-b0ae-b9590973e0d7
+;; arch-tag: 726807b4-3ae6-49de-b0ae-b9590973e0d7
 ;;; edmacro.el ends here
diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index d6193c9cf43..7c3e08c4457 100644
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -426,5 +426,5 @@ will select it.)"
 
 (provide 'ehelp)
 
-;;; arch-tag: e0e3037f-42c0-433e-ba18-322c5d951f46
+;; arch-tag: e0e3037f-42c0-433e-ba18-322c5d951f46
 ;;; ehelp.el ends here
diff --git a/lisp/electric.el b/lisp/electric.el
index 421ab1f3daa..d3c15e1fecd 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -161,5 +161,5 @@
 
 (provide 'electric)
 
-;;; arch-tag: dae045eb-dc2d-4fb7-9f27-9cc2ce277be8
+;; arch-tag: dae045eb-dc2d-4fb7-9f27-9cc2ce277be8
 ;;; electric.el ends here
diff --git a/lisp/elide-head.el b/lisp/elide-head.el
index 353fef37957..3288a33cf07 100644
--- a/lisp/elide-head.el
+++ b/lisp/elide-head.el
@@ -120,5 +120,5 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks."
 
 (provide 'elide-head)
 
-;;; arch-tag: a00e6b5b-6aeb-45b1-b734-63e23df80928
+;; arch-tag: a00e6b5b-6aeb-45b1-b734-63e23df80928
 ;;; elide-head.el ends here
diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el
index e68ac56f622..8e2bdf24034 100644
--- a/lisp/emacs-lisp/assoc.el
+++ b/lisp/emacs-lisp/assoc.el
@@ -138,5 +138,5 @@ extra values are ignored.  Returns the created alist."
 
 (provide 'assoc)
 
-;;; arch-tag: 3e58bd89-d912-4b74-a0dc-6ed9735922bc
+;; arch-tag: 3e58bd89-d912-4b74-a0dc-6ed9735922bc
 ;;; assoc.el ends here
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index d27e08f7334..91c313120ab 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -672,5 +672,5 @@ the Emacs source tree, from which to build the file."
 
 (provide 'authors)
 
-;;; arch-tag: 659d5900-5ff2-43b0-954c-a315cc1e4dc1
+;; arch-tag: 659d5900-5ff2-43b0-954c-a315cc1e4dc1
 ;;; authors.el ends here
diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el
index b5a88c0d643..ab149a45108 100644
--- a/lisp/emacs-lisp/benchmark.el
+++ b/lisp/emacs-lisp/benchmark.el
@@ -115,5 +115,5 @@ non-interactive use see also `benchmark-run' and
 
 (provide 'benchmark)
 
-;;; arch-tag: be570e24-4b51-4784-adf3-fa2b56c31946
+;; arch-tag: be570e24-4b51-4784-adf3-fa2b56c31946
 ;;; benchmark.el ends here
diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el
index 0ceba28b7e2..58b1933b8c3 100644
--- a/lisp/emacs-lisp/bindat.el
+++ b/lisp/emacs-lisp/bindat.el
@@ -651,5 +651,5 @@ The port (if any) is omitted.  IP can be a string, as well."
 
 (provide 'bindat)
 
-;;; arch-tag: 5e6708c3-03e2-4ad7-9885-5041b779c3fb
+;; arch-tag: 5e6708c3-03e2-4ad7-9885-5041b779c3fb
 ;;; bindat.el ends here
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 7525c2e5897..490cfe000f3 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -612,5 +612,5 @@ If nil, indent backquoted lists as data, i.e., like quoted lists."
 ;(put 'defclass 'common-lisp-indent-function '((&whole 2 &rest (&whole 2 &rest 1) &rest (&whole 2 &rest 1)))
 ;(put 'defgeneric 'common-lisp-indent-function 'defun)
 
-;;; arch-tag: 7914d50f-92ec-4476-93fc-0f043a380e03
+;; arch-tag: 7914d50f-92ec-4476-93fc-0f043a380e03
 ;;; cl-indent.el ends here
diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el
index dc8ebef69d5..626b33a9273 100644
--- a/lisp/emacs-lisp/cl-specs.el
+++ b/lisp/emacs-lisp/cl-specs.el
@@ -470,5 +470,5 @@
 (def-edebug-spec loop-d-type-spec
   (&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))
 
-;;; arch-tag: b29aa3c2-cf67-4af8-9ee1-318fea61b478
+;; arch-tag: b29aa3c2-cf67-4af8-9ee1-318fea61b478
 ;;; cl-specs.el ends here
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 10a67eac281..4b0dcb32d58 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -637,5 +637,5 @@ INHERIT-INPUT-METHOD."
 
 (provide 'crm)
 
-;;; arch-tag: db1911d9-86c6-4a42-b32a-4910701b15a6
+;; arch-tag: db1911d9-86c6-4a42-b32a-4910701b15a6
 ;;; crm.el ends here
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index 161cc4c8515..fa42bf07322 100644
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -689,5 +689,5 @@ See `custom-format' for the details."
 
 (provide 'cust-print)
 
-;;; arch-tag: 3a5a8650-622c-48c4-87d8-e01bf72ec580
+;; arch-tag: 3a5a8650-622c-48c4-87d8-e01bf72ec580
 ;;; cust-print.el ends here
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 8a5d3ce6552..5791b6b46c0 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -266,5 +266,5 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
 
 (provide 'disass)
 
-;;; arch-tag: 89482fe4-a087-4761-8dc6-d771054e763a
+;; arch-tag: 89482fe4-a087-4761-8dc6-d771054e763a
 ;;; disass.el ends here
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 1f883487ea7..a03f4cf0914 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -4478,5 +4478,5 @@ With prefix argument, make it a temporary breakpoint."
 
 (provide 'edebug)
 
-;;; arch-tag: 19c8d05c-4554-426e-ac72-e0fa1fcb0808
+;; arch-tag: 19c8d05c-4554-426e-ac72-e0fa1fcb0808
 ;;; edebug.el ends here
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index dd3d713dedc..3803ac6596b 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -806,5 +806,5 @@ If no documentation could be found args will be `unknown'."
 
 (provide 'elint)
 
-;;; arch-tag: b2f061e2-af84-4ddc-8e39-f5e969ac228f
+;; arch-tag: b2f061e2-af84-4ddc-8e39-f5e969ac228f
 ;;; elint.el ends here
diff --git a/lisp/emacs-lisp/find-gc.el b/lisp/emacs-lisp/find-gc.el
index cf9abf57244..524f79552ce 100644
--- a/lisp/emacs-lisp/find-gc.el
+++ b/lisp/emacs-lisp/find-gc.el
@@ -162,5 +162,5 @@ Also store it in `find-gc-unsafe'."
 
 (provide 'find-gc)
 
-;;; arch-tag: 4a26a538-a008-40d9-a1ef-23bb6dbecef4
+;; arch-tag: 4a26a538-a008-40d9-a1ef-23bb6dbecef4
 ;;; find-gc.el ends here
diff --git a/lisp/emacs-lisp/float-sup.el b/lisp/emacs-lisp/float-sup.el
index 299743cfe7d..d70357e4661 100644
--- a/lisp/emacs-lisp/float-sup.el
+++ b/lisp/emacs-lisp/float-sup.el
@@ -58,5 +58,5 @@
 
 (provide 'lisp-float-type)
 
-;;; arch-tag: e7837072-a4af-4d08-9953-8a3e755abf9d
+;; arch-tag: e7837072-a4af-4d08-9953-8a3e755abf9d
 ;;; float-sup.el ends here
diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el
index f3cf1cd4bf2..9048bea6f3e 100644
--- a/lisp/emacs-lisp/gulp.el
+++ b/lisp/emacs-lisp/gulp.el
@@ -177,5 +177,5 @@ That is a list of elements, each of the form (MAINTAINER PACKAGES...)."
 
 (provide 'gulp)
 
-;;; arch-tag: 42750a11-460a-4efc-829f-342d075530e5
+;; arch-tag: 42750a11-460a-4efc-829f-342d075530e5
 ;;; gulp.el ends here
diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el
index 99eeb7dfe07..06ea75eae71 100644
--- a/lisp/emacs-lisp/levents.el
+++ b/lisp/emacs-lisp/levents.el
@@ -291,5 +291,5 @@ GNU Emacs 19 does not currently generate process-output events."
 
 (provide 'levents)
 
-;;; arch-tag: a80c21da-69d7-46de-9cdb-5f68577b5525
+;; arch-tag: a80c21da-69d7-46de-9cdb-5f68577b5525
 ;;; levents.el ends here
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index fa457acec96..f1df695fa5e 100644
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -615,5 +615,5 @@ Prompts for bug subject TOPIC.  Leaves you in a mail buffer."
 
 (provide 'lisp-mnt)
 
-;;; arch-tag: fa3c5ab4-a37b-4e46-b7cf-b6d78b90e69e
+;; arch-tag: fa3c5ab4-a37b-4e46-b7cf-b6d78b90e69e
 ;;; lisp-mnt.el ends here
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 389cb63f304..26febeabee2 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -439,5 +439,5 @@ BEFORE, if provided, is the name of a menu before which this menu should
 
 (provide 'lmenu)
 
-;;; arch-tag: 7051c396-2837-435a-ae11-b2d2e2af8fc1
+;; arch-tag: 7051c396-2837-435a-ae11-b2d2e2af8fc1
 ;;; lmenu.el ends here
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 5c26a287b34..7684c9f0fe9 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -234,5 +234,5 @@ This is an XEmacs compatibility function."
 
 (provide 'lucid)
 
-;;; arch-tag: 80f9ab46-0b36-4151-86ed-3edb6d449c9e
+;; arch-tag: 80f9ab46-0b36-4151-86ed-3edb6d449c9e
 ;;; lucid.el ends here
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index de5efe0845e..99d181225c2 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -195,5 +195,5 @@ definitions to shadow the loaded ones for use in file byte-compilation."
 
 (provide 'macroexp)
 
-;;; arch-tag: af9b8c24-c196-43bc-91e1-a3570790fa5a
+;; arch-tag: af9b8c24-c196-43bc-91e1-a3570790fa5a
 ;;; macroexp.el ends here
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el
index fb9efe6da0f..2462fb5c655 100644
--- a/lisp/emacs-lisp/map-ynp.el
+++ b/lisp/emacs-lisp/map-ynp.el
@@ -266,5 +266,5 @@ the current %s and exit."
     ;; Return the number of actions that were taken.
     actions))
 
-;;; arch-tag: 1d0a3201-a151-4c10-b231-4da47c9e6dc3
+;; arch-tag: 1d0a3201-a151-4c10-b231-4da47c9e6dc3
 ;;; map-ynp.el ends here
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 181c3eb229a..9ce852f250c 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -179,5 +179,5 @@ Ignores leading comment characters."
 
 (provide 'pp)                           ; so (require 'pp) works
 
-;;; arch-tag: b0f7c65b-02c7-42bb-9ee3-508a59b8fbb9
+;; arch-tag: b0f7c65b-02c7-42bb-9ee3-508a59b8fbb9
 ;;; pp.el ends here
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index 23801066d43..a0fe628ed35 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -733,5 +733,5 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
 
 (provide 're-builder)
 
-;;; arch-tag: 5c5515ac-4085-4524-a421-033f44f032e7
+;; arch-tag: 5c5515ac-4085-4524-a421-033f44f032e7
 ;;; re-builder.el ends here
diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el
index 23da121e7d1..4a733497dac 100644
--- a/lisp/emacs-lisp/regi.el
+++ b/lisp/emacs-lisp/regi.el
@@ -256,5 +256,5 @@ useful information:
 
 (provide 'regi)
 
-;;; arch-tag: 804b4e45-4109-4f76-9a88-21887b881747
+;; arch-tag: 804b4e45-4109-4f76-9a88-21887b881747
 ;;; regi.el ends here
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el
index cdade680a23..f64ced731f7 100644
--- a/lisp/emacs-lisp/ring.el
+++ b/lisp/emacs-lisp/ring.el
@@ -238,5 +238,5 @@ If SEQ is already a ring, return it."
 
 (provide 'ring)
 
-;;; arch-tag: e707682b-ed69-47c9-b20f-cf2c68cc92d2
+;; arch-tag: e707682b-ed69-47c9-b20f-cf2c68cc92d2
 ;;; ring.el ends here
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index f4a3cd6b931..1d8e70d6ed4 100644
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -261,5 +261,5 @@ version unless you know what you are doing.\n")
 
 (provide 'shadow)
 
-;;; arch-tag: 0480e8a7-62ed-4a12-a9f6-f44ded9b0830
+;; arch-tag: 0480e8a7-62ed-4a12-a9f6-f44ded9b0830
 ;;; shadow.el ends here
diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el
index 13274575d1b..215245dbc75 100644
--- a/lisp/emacs-lisp/sregex.el
+++ b/lisp/emacs-lisp/sregex.el
@@ -606,5 +606,5 @@ has one of the following forms:
 
 (provide 'sregex)
 
-;;; arch-tag: 460c1f5a-eb6e-42ec-a451-ffac78bdf492
+;; arch-tag: 460c1f5a-eb6e-42ec-a451-ffac78bdf492
 ;;; sregex.el ends here
diff --git a/lisp/emacs-lisp/tcover-ses.el b/lisp/emacs-lisp/tcover-ses.el
index b4a844bfc44..cf3854ea6e6 100644
--- a/lisp/emacs-lisp/tcover-ses.el
+++ b/lisp/emacs-lisp/tcover-ses.el
@@ -723,5 +723,5 @@ spreadsheet files with invalid formatting."
   ;;Could do this here: (testcover-end "ses.el")
   (message "Done"))
 
-;;; arch-tag: 87052ba4-5cf8-46cf-9375-fe245f3360b8
+;; arch-tag: 87052ba4-5cf8-46cf-9375-fe245f3360b8
 ;; testcover-ses.el ends here.
diff --git a/lisp/emacs-lisp/tcover-unsafep.el b/lisp/emacs-lisp/tcover-unsafep.el
index f941c5f3b71..644b7d5c3a8 100644
--- a/lisp/emacs-lisp/tcover-unsafep.el
+++ b/lisp/emacs-lisp/tcover-unsafep.el
@@ -139,5 +139,5 @@
   (testcover-end "unsafep.el")
   (message "Done"))
 
-;;; arch-tag: a7616c27-1998-47ae-9304-76d1439dbf29
+;; arch-tag: a7616c27-1998-47ae-9304-76d1439dbf29
 ;; testcover-unsafep.el ends here.
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index de230ef5915..705be168531 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -536,5 +536,5 @@ coverage tests.  This function creates many overlays."
   (goto-char (next-overlay-change (point)))
   (end-of-line))
 
-;;; arch-tag: 72324a4a-4a2e-4142-9249-cc56d6757588
+;; arch-tag: 72324a4a-4a2e-4142-9249-cc56d6757588
 ;; testcover.el ends here.
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index 034d3cd307c..f0078359b57 100644
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -168,5 +168,5 @@ This produces more reliable results with some processes."
 
 (provide 'tq)
 
-;;; arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79
+;; arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79
 ;;; tq.el ends here
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index 0bdcbf1a162..6cb73151d9d 100644
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -325,5 +325,5 @@ this is equivalent to `display-warning', using
 
 (provide 'warnings)
 
-;;; arch-tag: faaad1c8-7b2a-4161-af38-5ab4afde0496
+;; arch-tag: faaad1c8-7b2a-4161-af38-5ab4afde0496
 ;;; warnings.el ends here
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el
index 92745edd70e..75514e48e40 100644
--- a/lisp/emacs-lock.el
+++ b/lisp/emacs-lock.el
@@ -100,5 +100,5 @@ If the buffer is locked, signal error and display its name."
 
 (provide 'emacs-lock)
 
-;;; arch-tag: 58e6cb43-7cf0-401a-bcb6-4902a0b8bdc1
+;; arch-tag: 58e6cb43-7cf0-401a-bcb6-4902a0b8bdc1
 ;;; emacs-lock.el ends here
diff --git a/lisp/emerge.el b/lisp/emerge.el
index fd002409a7f..182cfa4b7fd 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -3221,5 +3221,5 @@ More precisely, a [...] regexp to match any one such character."
 
 (provide 'emerge)
 
-;;; arch-tag: a575f092-6e44-400e-b8a2-4124e9377585
+;; arch-tag: a575f092-6e44-400e-b8a2-4124e9377585
 ;;; emerge.el ends here
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 7c254da869a..982f1e31760 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -393,5 +393,5 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise."
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)
 
-;;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee
+;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee
 ;;; crisp.el ends here
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 9f716f27c38..288eec70c66 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1623,5 +1623,5 @@ shifted movement key, set `cua-highlight-region-shift-only'."
 
 (provide 'cua-base)
 
-;;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05
+;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05
 ;;; cua-base.el ends here
diff --git a/lisp/emulation/cua-gmrk.el b/lisp/emulation/cua-gmrk.el
index be87804f196..2ed1ece3946 100644
--- a/lisp/emulation/cua-gmrk.el
+++ b/lisp/emulation/cua-gmrk.el
@@ -386,5 +386,5 @@ With prefix argument, don't jump to global mark when cancelling it."
 
 (provide 'cua-gmrk)
 
-;;; arch-tag: 553d8076-a91d-48ae-825d-6cb962a5f67f
+;; arch-tag: 553d8076-a91d-48ae-825d-6cb962a5f67f
 ;;; cua-gmrk.el ends here
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 93709f7660c..3846ab59c32 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -1492,5 +1492,5 @@ With prefix arg, indent to that column."
 
 (provide 'cua-rect)
 
-;;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
+;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
 ;;; cua-rect.el ends here
diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el
index 91db5bc70f9..db996f5470c 100644
--- a/lisp/emulation/edt-lk201.el
+++ b/lisp/emulation/edt-lk201.el
@@ -58,5 +58,5 @@
     ("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
     ("F19" . [f19]) ("F20" . [f20])))
 
-;;; arch-tag: 36f498cf-c3f6-41b0-911b-83b1348855ec
+;; arch-tag: 36f498cf-c3f6-41b0-911b-83b1348855ec
 ;;; edt-lk201.el ends here
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 79dabcc7433..1bea1d8dc22 100644
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -521,5 +521,5 @@
 (sit-for 600)
 (kill-emacs t)
 
-;;; arch-tag: 9eea59c8-b8b7-4d66-b858-c8920624c518
+;; arch-tag: 9eea59c8-b8b7-4d66-b858-c8920624c518
 ;;; edt-mapper.el ends here
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el
index 5bfaf828ea6..5c99c145fb6 100644
--- a/lisp/emulation/edt-pc.el
+++ b/lisp/emulation/edt-pc.el
@@ -88,5 +88,5 @@
     ("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" )
     ("F19" . "" ) ("F20" . "" )))
 
-;;; arch-tag: 4593d053-183a-4062-97de-57b8877595ce
+;; arch-tag: 4593d053-183a-4062-97de-57b8877595ce
 ;;; edt-pc.el ends here
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el
index e534927adc2..6b88bc8a043 100644
--- a/lisp/emulation/edt-vt100.el
+++ b/lisp/emulation/edt-vt100.el
@@ -49,5 +49,5 @@
   "Set terminal width to 132 columns."
   (vt100-wide-mode 1))
 
-;;; arch-tag: c9f10c95-915f-44b5-93ff-4654abca4dd4
+;; arch-tag: c9f10c95-915f-44b5-93ff-4654abca4dd4
 ;;; edt-vt100.el ends here
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 2d54c53c174..e5486928954 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -2704,5 +2704,5 @@ G-C-\\: Split Window                     |  FNDNXT  |   Yank   |   CUT    |
 
 (provide 'edt)
 
-;;; arch-tag: 18d1c54f-6900-4078-8bbc-7c2292f48941
+;; arch-tag: 18d1c54f-6900-4078-8bbc-7c2292f48941
 ;;; edt.el ends here
diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el
index 565caf2368c..87270c671ed 100644
--- a/lisp/emulation/keypad.el
+++ b/lisp/emulation/keypad.el
@@ -272,5 +272,5 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.'"
 
       (setq i (1+ i)))))
 
-;;; arch-tag: 0899d2bd-9e12-4b4e-9aef-d0014d3b6414
+;; arch-tag: 0899d2bd-9e12-4b4e-9aef-d0014d3b6414
 ;;; keypad.el ends here
diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el
index 075da633cef..ebc68314750 100644
--- a/lisp/emulation/pc-mode.el
+++ b/lisp/emulation/pc-mode.el
@@ -55,5 +55,5 @@ C-Escape does list-buffers."
 
 (provide 'pc-mode)
 
-;;; arch-tag: df007c05-f885-4cd0-8c1e-487d0f8dd9c9
+;; arch-tag: df007c05-f885-4cd0-8c1e-487d0f8dd9c9
 ;;; pc-mode.el ends here
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 3fff469958d..cec6233f1cb 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -3075,5 +3075,5 @@ vip-s-string"
 
 (provide 'vip)
 
-;;; arch-tag: bff623ef-48f7-41d4-9aa3-2e840c9ab415
+;; arch-tag: bff623ef-48f7-41d4-9aa3-2e840c9ab415
 ;;; vip.el ends here
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 54f8f23a0bc..a5eab5baf64 100644
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -2318,5 +2318,5 @@ Type 'mak ' (including the space) to run make with no args."
 
 
 
-;;; arch-tag: 56b80d36-f880-4d10-bd66-85ad91a295db
+;; arch-tag: 56b80d36-f880-4d10-bd66-85ad91a295db
 ;;; viper-ex.el ends here
diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index 87727f7e033..13aae4d480d 100644
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -703,5 +703,5 @@ form ((key . function) (key . function) ... )."
 ;;; End:
 
 
-;;; arch-tag: 43af4b2f-0bea-400b-889e-221ebc00acb1
+;; arch-tag: 43af4b2f-0bea-400b-889e-221ebc00acb1
 ;;; viper-keym.el ends here
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 448903da5c9..28445c38248 100644
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -933,5 +933,5 @@ name from there."
     (call-last-kbd-macro)))
 
 
-;;; arch-tag: ecd3cc5c-8cd0-4bbe-b2ec-7e75a4b7d0aa
+;; arch-tag: ecd3cc5c-8cd0-4bbe-b2ec-7e75a4b7d0aa
 ;;; viper-macs.el ends here
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el
index e7d2315b52b..00e0cf5f48f 100644
--- a/lisp/emulation/viper-mous.el
+++ b/lisp/emulation/viper-mous.el
@@ -664,5 +664,5 @@ This buffer may be different from the one where the click occurred."
 ;;; End:
 
 
-;;; arch-tag: e56b2390-06c4-4dd1-96f5-c7876e2d8c2f
+;; arch-tag: e56b2390-06c4-4dd1-96f5-c7876e2d8c2f
 ;;; viper-mous.el ends here
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 8ea4805c90b..af50b511e97 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1564,5 +1564,5 @@ This option is appropriate if you like Emacs-style words."
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
-;;; arch-tag: 7f023fd5-dd9e-4378-a397-9c179553b0e3
+;; arch-tag: 7f023fd5-dd9e-4378-a397-9c179553b0e3
 ;;; viper-util.el ends here
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 80fcfd333ed..eb50312661c 100644
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -756,5 +756,5 @@ sWith: " )
 
 (provide 'ws-mode)
 
-;;; arch-tag: 6dd864bf-2ccb-4d59-af6e-492eba2890a3
+;; arch-tag: 6dd864bf-2ccb-4d59-af6e-492eba2890a3
 ;;; ws-mode.el ends here
diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el
index 4f87d912661..e33421e5b9d 100644
--- a/lisp/eshell/em-alias.el
+++ b/lisp/eshell/em-alias.el
@@ -276,5 +276,5 @@ These are all the command aliases which begin with NAME."
 
 (provide 'em-alias)
 
-;;; arch-tag: 8b018fc1-4e07-4ccc-aa73-c0a1ba361f82
+;; arch-tag: 8b018fc1-4e07-4ccc-aa73-c0a1ba361f82
 ;;; em-alias.el ends here
diff --git a/lisp/eshell/em-banner.el b/lisp/eshell/em-banner.el
index cf2569f03fc..d2905c7dc95 100644
--- a/lisp/eshell/em-banner.el
+++ b/lisp/eshell/em-banner.el
@@ -93,5 +93,5 @@ This can be any sexp, and should end with at least two newlines."
 
 (provide 'em-banner)
 
-;;; arch-tag: e738b4ef-8671-42ae-a757-291779b92491
+;; arch-tag: e738b4ef-8671-42ae-a757-291779b92491
 ;;; em-banner.el ends here
diff --git a/lisp/eshell/em-basic.el b/lisp/eshell/em-basic.el
index be78113d539..22dcd98743c 100644
--- a/lisp/eshell/em-basic.el
+++ b/lisp/eshell/em-basic.el
@@ -180,5 +180,5 @@ or `eshell-printn' for display."
 
 (provide 'em-basic)
 
-;;; arch-tag: 385a31b1-cb95-46f0-9829-9d352ee77db8
+;; arch-tag: 385a31b1-cb95-46f0-9829-9d352ee77db8
 ;;; em-basic.el ends here
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el
index cf1558a2cee..ec2478218d6 100644
--- a/lisp/eshell/em-cmpl.el
+++ b/lisp/eshell/em-cmpl.el
@@ -451,5 +451,5 @@ to writing a completion function."
 
 (provide 'em-cmpl)
 
-;;; arch-tag: 0e914699-673a-45f8-8cbf-82e1dbc571bc
+;; arch-tag: 0e914699-673a-45f8-8cbf-82e1dbc571bc
 ;;; em-cmpl.el ends here
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index 52a77d8a112..3be875eecae 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -566,5 +566,5 @@ in the minibuffer:
 
 (provide 'em-dirs)
 
-;;; arch-tag: 1e9c5a95-f1bd-45f8-ad36-55aac706e787
+;; arch-tag: 1e9c5a95-f1bd-45f8-ad36-55aac706e787
 ;;; em-dirs.el ends here
diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el
index 0676efa381c..b8e32e8ce73 100644
--- a/lisp/eshell/em-glob.el
+++ b/lisp/eshell/em-glob.el
@@ -356,5 +356,5 @@ the form:
 
 (provide 'em-glob)
 
-;;; arch-tag: d0548f54-fb7c-4978-a88e-f7c26f7f68ca
+;; arch-tag: d0548f54-fb7c-4978-a88e-f7c26f7f68ca
 ;;; em-glob.el ends here
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index 6c8d6944eb9..9a5421b1139 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -986,5 +986,5 @@ If N is negative, search backwards for the -Nth previous match."
 
 (provide 'em-hist)
 
-;;; arch-tag: 1a847333-f864-4b96-9acd-b549d620b6c6
+;; arch-tag: 1a847333-f864-4b96-9acd-b549d620b6c6
 ;;; em-hist.el ends here
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index cd057141ede..e7ce58b2028 100644
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -923,5 +923,5 @@ to use, and each member of which is the width of that column
 
 (provide 'em-ls)
 
-;;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb
+;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb
 ;;; em-ls.el ends here
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el
index 40a71089d96..3337c7b6d59 100644
--- a/lisp/eshell/em-pred.el
+++ b/lisp/eshell/em-pred.el
@@ -602,5 +602,5 @@ that 'ls -l' will show in the first column of its display. "
 
 (provide 'em-pred)
 
-;;; arch-tag: 8b5ce022-17f3-4c40-93c7-5faafaa63f31
+;; arch-tag: 8b5ce022-17f3-4c40-93c7-5faafaa63f31
 ;;; em-pred.el ends here
diff --git a/lisp/eshell/em-prompt.el b/lisp/eshell/em-prompt.el
index dfcedce4ddf..33b207fea8f 100644
--- a/lisp/eshell/em-prompt.el
+++ b/lisp/eshell/em-prompt.el
@@ -175,5 +175,5 @@ If this takes us past the end of the current line, don't skip at all."
 
 (provide 'em-prompt)
 
-;;; arch-tag: 01c1574b-ce70-4e89-bc38-e6619f61e208
+;; arch-tag: 01c1574b-ce70-4e89-bc38-e6619f61e208
 ;;; em-prompt.el ends here
diff --git a/lisp/eshell/em-rebind.el b/lisp/eshell/em-rebind.el
index 17f04fa7ee0..463b0fcc098 100644
--- a/lisp/eshell/em-rebind.el
+++ b/lisp/eshell/em-rebind.el
@@ -244,5 +244,5 @@ input."
 
 (provide 'em-rebind)
 
-;;; arch-tag: 76d84f12-cc56-4d67-9b7d-c6b44ad20530
+;; arch-tag: 76d84f12-cc56-4d67-9b7d-c6b44ad20530
 ;;; em-rebind.el ends here
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index f6c89b11f20..a78e84cb2b1 100644
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -137,5 +137,5 @@ environment, binding ARGS to $1, $2, etc.")
 
 (provide 'em-script)
 
-;;; arch-tag: a346439d-5ba8-4faf-ac2b-3aacfeaa4647
+;; arch-tag: a346439d-5ba8-4faf-ac2b-3aacfeaa4647
 ;;; em-script.el ends here
diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el
index a9f2cb70ef2..931592061e6 100644
--- a/lisp/eshell/em-smart.el
+++ b/lisp/eshell/em-smart.el
@@ -324,5 +324,5 @@ and the end of the buffer are still visible."
 
 (provide 'em-smart)
 
-;;; arch-tag: 8c0112c7-379c-4d54-9a1c-204d68786a4b
+;; arch-tag: 8c0112c7-379c-4d54-9a1c-204d68786a4b
 ;;; em-smart.el ends here
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el
index 820fe720a54..57b7b092d42 100644
--- a/lisp/eshell/em-term.el
+++ b/lisp/eshell/em-term.el
@@ -265,5 +265,5 @@ allowed."
 
 (provide 'em-term)
 
-;;; arch-tag: ab7c8fe4-3101-4257-925b-1354c6b2fe9d
+;; arch-tag: ab7c8fe4-3101-4257-925b-1354c6b2fe9d
 ;;; em-term.el ends here
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index 98ab02b7c68..30d04a442c2 100644
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -1049,5 +1049,5 @@ Show wall-clock time elapsed during execution of COMMAND.")
 
 (provide 'em-unix)
 
-;;; arch-tag: 2462edd2-a76a-4cf2-897d-92e9a82ac1c9
+;; arch-tag: 2462edd2-a76a-4cf2-897d-92e9a82ac1c9
 ;;; em-unix.el ends here
diff --git a/lisp/eshell/em-xtra.el b/lisp/eshell/em-xtra.el
index 27970349bf5..e6808b323e3 100644
--- a/lisp/eshell/em-xtra.el
+++ b/lisp/eshell/em-xtra.el
@@ -120,5 +120,5 @@ naturally accessible within Emacs."
 
 (provide 'em-xtra)
 
-;;; arch-tag: f944cfda-a118-470c-a0d6-b41a3a5c99c7
+;; arch-tag: f944cfda-a118-470c-a0d6-b41a3a5c99c7
 ;;; em-xtra.el ends here
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index e802948ef48..90a041fa830 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -388,5 +388,5 @@ special character that is not itself a backslash."
                    (char-to-string (char-after)))))
          (goto-char end)))))))
 
-;;; arch-tag: 7f593a2b-8fc1-4def-8f84-8f51ed0198d6
+;; arch-tag: 7f593a2b-8fc1-4def-8f84-8f51ed0198d6
 ;;; esh-arg.el ends here
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index c8fe7f1ced4..416b255e9b0 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1421,5 +1421,5 @@ messages, and errors."
 
 (provide 'esh-cmd)
 
-;;; arch-tag: 8e4f3867-a0c5-441f-96ba-ddd142d94366
+;; arch-tag: 8e4f3867-a0c5-441f-96ba-ddd142d94366
 ;;; esh-cmd.el ends here
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index f3f2b5af12f..ad3e7d6afde 100644
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -318,5 +318,5 @@ line of the form #!<interp>."
 
 ;;; Code:
 
-;;; arch-tag: 178d4064-7e60-4745-b81f-bab5d8d7c40f
+;; arch-tag: 178d4064-7e60-4745-b81f-bab5d8d7c40f
 ;;; esh-ext.el ends here
diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index 5cf2afcdb97..dea723ed418 100644
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -516,5 +516,5 @@ Returns what was actually sent, or nil if nothing was sent."
 
 ;;; Code:
 
-;;; arch-tag: 9ca2080f-d5e0-4b26-aa0b-d59194a905a2
+;; arch-tag: 9ca2080f-d5e0-4b26-aa0b-d59194a905a2
 ;;; esh-io.el ends here
diff --git a/lisp/eshell/esh-maint.el b/lisp/eshell/esh-maint.el
index cbe3c5de7f5..13247e75738 100644
--- a/lisp/eshell/esh-maint.el
+++ b/lisp/eshell/esh-maint.el
@@ -140,5 +140,5 @@
 ;;   (delete-file "README.texi")
 ;;   (kill-buffer "README.texi"))
 
-;;; arch-tag: 662089b6-78ec-48c5-b94f-d212279e8902
+;; arch-tag: 662089b6-78ec-48c5-b94f-d212279e8902
 ;;; esh-maint.el ends here
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 789af2605f9..804b026969f 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -1082,5 +1082,5 @@ This function could be in the list `eshell-output-filter-functions'."
 
 ;;; Code:
 
-;;; arch-tag: ec65bc2b-da14-4547-81d3-a32af3a4dc57
+;; arch-tag: ec65bc2b-da14-4547-81d3-a32af3a4dc57
 ;;; esh-mode.el ends here
diff --git a/lisp/eshell/esh-module.el b/lisp/eshell/esh-module.el
index ae219df0022..1027bc7cc46 100644
--- a/lisp/eshell/esh-module.el
+++ b/lisp/eshell/esh-module.el
@@ -158,5 +158,5 @@ customization group.  Example: `eshell-cmpl' for that module."
           (unload-feature module)
           (message "Unloading %s...done" (symbol-name module))))))
 
-;;; arch-tag: 97a3fa16-9d08-40e6-bc2c-36bd70986507
+;; arch-tag: 97a3fa16-9d08-40e6-bc2c-36bd70986507
 ;;; esh-module.el ends here
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el
index 54137ee8cd2..415033b5340 100644
--- a/lisp/eshell/esh-opt.el
+++ b/lisp/eshell/esh-opt.el
@@ -227,5 +227,5 @@ This assumes that symbols have been intern'd by `eshell-with-options'."
 
 ;;; Code:
 
-;;; arch-tag: 45c6c2d0-8091-46a1-a205-2f4bafd8230c
+;; arch-tag: 45c6c2d0-8091-46a1-a205-2f4bafd8230c
 ;;; esh-opt.el ends here
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index a838da3900b..2c21252ab18 100644
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -506,5 +506,5 @@ See the variable `eshell-kill-processes-on-exit'."
 
 ;;; Code:
 
-;;; arch-tag: ac477a3e-ee4d-4b44-8ec6-212010e607bb
+;; arch-tag: ac477a3e-ee4d-4b44-8ec6-212010e607bb
 ;;; esh-proc.el ends here
diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el
index 802471a79b1..e06719a01e2 100644
--- a/lisp/eshell/esh-test.el
+++ b/lisp/eshell/esh-test.el
@@ -237,5 +237,5 @@
 
 (provide 'esh-test)
 
-;;; arch-tag: 6e32275a-8285-4a4e-b7cf-819aa7c86b8e
+;; arch-tag: 6e32275a-8285-4a4e-b7cf-819aa7c86b8e
 ;;; esh-test.el ends here
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index ff74c39cd94..d2b4ca7967f 100644
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -781,5 +781,5 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
 
 (provide 'esh-util)
 
-;;; arch-tag: 70159778-5c7a-480a-bae4-3ad332fca19d
+;; arch-tag: 70159778-5c7a-480a-bae4-3ad332fca19d
 ;;; esh-util.el ends here
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el
index 2e52d744678..462266470d3 100644
--- a/lisp/eshell/esh-var.el
+++ b/lisp/eshell/esh-var.el
@@ -655,5 +655,5 @@ For example, to retrieve the second element of a user's record in
 
 ;;; Code:
 
-;;; arch-tag: 393654fe-bdad-4f27-9a10-b1472ded14cf
+;; arch-tag: 393654fe-bdad-4f27-9a10-b1472ded14cf
 ;;; esh-var.el ends here
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el
index e052e23086b..9713983ba3c 100644
--- a/lisp/eshell/eshell.el
+++ b/lisp/eshell/eshell.el
@@ -490,5 +490,5 @@ Emacs."
 
 (provide 'eshell)
 
-;;; arch-tag: 9d4d5214-0e4e-4e02-b349-39add640d63f
+;; arch-tag: 9d4d5214-0e4e-4e02-b349-39add640d63f
 ;;; eshell.el ends here
diff --git a/lisp/expand.el b/lisp/expand.el
index 80104c3482f..359db36b23b 100644
--- a/lisp/expand.el
+++ b/lisp/expand.el
@@ -506,5 +506,5 @@ This is used only in conjunction with `expand-add-abbrevs'."
 ;; run load hooks
 (run-hooks 'expand-load-hook)
 
-;;; arch-tag: fee53e9e-30e3-4ef3-b191-9785e1f8e885
+;; arch-tag: fee53e9e-30e3-4ef3-b191-9785e1f8e885
 ;;; expand.el ends here
diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 55d12acc957..e402e085117 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -764,5 +764,5 @@ Returns the non-nil value it found, or nil if all were nil."
 
 (provide 'facemenu)
 
-;;; arch-tag: 85f6d02b-9085-420e-b651-0678f0e9c7eb
+;; arch-tag: 85f6d02b-9085-420e-b651-0678f0e9c7eb
 ;;; facemenu.el ends here
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 078de992ab4..d1dc36b3e9f 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1916,5 +1916,5 @@ Of course if you do not like these bindings, just roll your own!")
 
 
 
-;;; arch-tag: 9dd3e88a-5dec-4607-bd57-60ae9ede8ebc
+;; arch-tag: 9dd3e88a-5dec-4607-bd57-60ae9ede8ebc
 ;;; ffap.el ends here
diff --git a/lisp/filecache.el b/lisp/filecache.el
index 821afd6a607..d3336abaac4 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -782,5 +782,5 @@ match REGEXP."
 
 (provide 'filecache)
 
-;;; arch-tag: 433d3ca4-4af2-47ce-b2cf-1f727460f538
+;; arch-tag: 433d3ca4-4af2-47ce-b2cf-1f727460f538
 ;;; filecache.el ends here
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 79a6a3b18c3..db2d5224e6f 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -314,5 +314,5 @@ Thus ARG can also contain additional grep options."
 
 (provide 'find-dired)
 
-;;; arch-tag: 8edece95-af00-4221-bc74-a4bd2f75f9b0
+;; arch-tag: 8edece95-af00-4221-bc74-a4bd2f75f9b0
 ;;; find-dired.el ends here
diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 771dbdc3eb9..77fc62725ea 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -358,5 +358,5 @@ It is a function which takes two arguments, the directory and its parent."
 
 (provide 'find-lisp)
 
-;;; arch-tag: a711374c-f12a-46f6-aa18-ba7d77b9602a
+;; arch-tag: a711374c-f12a-46f6-aa18-ba7d77b9602a
 ;;; find-lisp.el ends here
diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el
index e79ac51f5da..0fbc04ac514 100644
--- a/lisp/flow-ctrl.el
+++ b/lisp/flow-ctrl.el
@@ -124,5 +124,5 @@ to get the effect of a C-q."
 
 (provide 'flow-ctrl)
 
-;;; arch-tag: 0eb7b19e-0d93-4e0b-9ea2-72b574076a56
+;; arch-tag: 0eb7b19e-0d93-4e0b-9ea2-72b574076a56
 ;;; flow-ctrl.el ends here
diff --git a/lisp/foldout.el b/lisp/foldout.el
index be025916a91..9f7890bef6e 100644
--- a/lisp/foldout.el
+++ b/lisp/foldout.el
@@ -567,5 +567,5 @@ Valid modifiers are shift, control, meta, alt, hyper and super.")
 
 (provide 'foldout)
 
-;;; arch-tag: 19d095a2-1f09-42a7-a5ac-e2a3078cfe95
+;; arch-tag: 19d095a2-1f09-42a7-a5ac-e2a3078cfe95
 ;;; foldout.el ends here
diff --git a/lisp/format-spec.el b/lisp/format-spec.el
index fe3f821e598..d5a600e19f1 100644
--- a/lisp/format-spec.el
+++ b/lisp/format-spec.el
@@ -78,5 +78,5 @@ starting with a character."
 
 (provide 'format-spec)
 
-;;; arch-tag: c22d49cf-d167-445d-b7f1-2504d4173f53
+;; arch-tag: c22d49cf-d167-445d-b7f1-2504d4173f53
 ;;; format-spec.el ends here
diff --git a/lisp/format.el b/lisp/format.el
index faae46466c6..9be8b5c1123 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -1069,5 +1069,5 @@ OLD and NEW are the values."
 
 (provide 'format)
 
-;;; arch-tag: c387e9c7-a93d-47bf-89bc-8ca67e96755a
+;; arch-tag: c387e9c7-a93d-47bf-89bc-8ca67e96755a
 ;;; format.el ends here
diff --git a/lisp/forms-d2.el b/lisp/forms-d2.el
index 21d8e251c8a..ec89752b19d 100644
--- a/lisp/forms-d2.el
+++ b/lisp/forms-d2.el
@@ -103,5 +103,5 @@ used to fill to the column."
 
 ;; That's all, folks!
 
-;;; arch-tag: 8e5d5dac-7abf-4722-ab5e-03eb749beaca
+;; arch-tag: 8e5d5dac-7abf-4722-ab5e-03eb749beaca
 ;;; forms-d2.el ends here
diff --git a/lisp/forms-pass.el b/lisp/forms-pass.el
index 4b3cb3a17bb..431dca58786 100644
--- a/lisp/forms-pass.el
+++ b/lisp/forms-pass.el
@@ -30,5 +30,5 @@
        "Shell: "        7
        "\n"))
 
-;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
+;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
 ;;; forms-pass.el ends here
diff --git a/lisp/forms.el b/lisp/forms.el
index 1095785c867..9f54d7e72a7 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -2055,5 +2055,5 @@ Usage: (setq forms-number-of-fields
           (goto-char (point-max))
           (insert ret)))))
 
-;;; arch-tag: 4a6695c7-d47a-4a21-809b-5cec7f8ec7a1
+;; arch-tag: 4a6695c7-d47a-4a21-809b-5cec7f8ec7a1
 ;;; forms.el ends here
diff --git a/lisp/fringe.el b/lisp/fringe.el
index 2762dbe617a..f9c916a44b6 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -262,5 +262,5 @@ SIDE must be the symbol `left' or `right'."
 
 (provide 'fringe)
 
-;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d
+;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d
 ;;; fringe.el ends here
diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 3310c38adeb..dd443b22460 100644
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -1998,5 +1998,5 @@ like an INI file.  You can add this hook to `find-file-hook'."
 
 (provide 'generic-x)
 
-;;; arch-tag: cde692a5-9ff6-4506-9999-c67999c2bdb5
+;; arch-tag: cde692a5-9ff6-4506-9999-c67999c2bdb5
 ;;; generic-x.el ends here
diff --git a/lisp/gnus/canlock.el b/lisp/gnus/canlock.el
index e42f8c67710..af30c07ffc8 100644
--- a/lisp/gnus/canlock.el
+++ b/lisp/gnus/canlock.el
@@ -249,5 +249,5 @@ it fails."
 
 (provide 'canlock)
 
-;;; arch-tag: 033c4f09-b9f1-459d-bd0d-254430283f78
+;; arch-tag: 033c4f09-b9f1-459d-bd0d-254430283f78
 ;;; canlock.el ends here
diff --git a/lisp/gnus/compface.el b/lisp/gnus/compface.el
index 34f60cd024b..a548569aaaa 100644
--- a/lisp/gnus/compface.el
+++ b/lisp/gnus/compface.el
@@ -60,5 +60,5 @@ or `faces-xface' and `netpbm' or `libgr-progs', for instance."
 
 (provide 'compface)
 
-;;; arch-tag: f9c78e84-98c0-4142-9682-8ba4cf4c3441
+;; arch-tag: f9c78e84-98c0-4142-9682-8ba4cf4c3441
 ;;; compface.el ends here
diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el
index 85f508cbc87..23d3fdd271a 100644
--- a/lisp/gnus/deuglify.el
+++ b/lisp/gnus/deuglify.el
@@ -478,5 +478,5 @@ NODISPLAY is non-nil, don't redisplay the article buffer."
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: 5f895cc9-51a9-487c-b42e-28844d79eb73
+;; arch-tag: 5f895cc9-51a9-487c-b42e-28844d79eb73
 ;;; deuglify.el ends here
diff --git a/lisp/gnus/earcon.el b/lisp/gnus/earcon.el
index 39b17893a2d..6fc8da58a63 100644
--- a/lisp/gnus/earcon.el
+++ b/lisp/gnus/earcon.el
@@ -231,5 +231,5 @@ If N is negative, move backward instead."
 
 (run-hooks 'earcon-load-hook)
 
-;;; arch-tag: 844dfeea-980c-4ed0-907f-a30bf139691c
+;; arch-tag: 844dfeea-980c-4ed0-907f-a30bf139691c
 ;;; earcon.el ends here
diff --git a/lisp/gnus/flow-fill.el b/lisp/gnus/flow-fill.el
index ea1017a7cbe..3598318175d 100644
--- a/lisp/gnus/flow-fill.el
+++ b/lisp/gnus/flow-fill.el
@@ -223,5 +223,5 @@ RFC 2646 suggests 66 characters for readability."
 
 (provide 'flow-fill)
 
-;;; arch-tag: addc0040-bc53-4f17-b4bc-1eb44eed6f0b
+;; arch-tag: addc0040-bc53-4f17-b4bc-1eb44eed6f0b
 ;;; flow-fill.el ends here
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index d6b4c110629..b1b027e8024 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -4226,5 +4226,5 @@ modified."
 
 (provide 'gnus-agent)
 
-;;; arch-tag: b0ba4afc-5229-4cee-ad25-9956daa4e91e
+;; arch-tag: b0ba4afc-5229-4cee-ad25-9956daa4e91e
 ;;; gnus-agent.el ends here
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index 329a7ac7bda..e3b5b4ad850 100644
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -374,5 +374,5 @@ It should return non-nil if the article is to be prefetched."
 
 (provide 'gnus-async)
 
-;;; arch-tag: fee61de5-3ea2-4de6-8578-2f90ce89391d
+;; arch-tag: fee61de5-3ea2-4de6-8578-2f90ce89391d
 ;;; gnus-async.el ends here
diff --git a/lisp/gnus/gnus-audio.el b/lisp/gnus/gnus-audio.el
index 95c7d8d3916..cd0385e5aca 100644
--- a/lisp/gnus/gnus-audio.el
+++ b/lisp/gnus/gnus-audio.el
@@ -148,5 +148,5 @@
 
 (run-hooks 'gnus-audio-load-hook)
 
-;;; arch-tag: 6f129e78-3416-4fc9-973f-6cf5ac8d654b
+;; arch-tag: 6f129e78-3416-4fc9-973f-6cf5ac8d654b
 ;;; gnus-audio.el ends here
diff --git a/lisp/gnus/gnus-bcklg.el b/lisp/gnus/gnus-bcklg.el
index 2b39cbef269..a4465482eac 100644
--- a/lisp/gnus/gnus-bcklg.el
+++ b/lisp/gnus/gnus-bcklg.el
@@ -161,5 +161,5 @@
 
 (provide 'gnus-bcklg)
 
-;;; arch-tag: 66259e56-505a-4bba-8a0d-3552c5b94e39
+;; arch-tag: 66259e56-505a-4bba-8a0d-3552c5b94e39
 ;;; gnus-bcklg.el ends here
diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el
index 802d6851698..8aed047675d 100644
--- a/lisp/gnus/gnus-cache.el
+++ b/lisp/gnus/gnus-cache.el
@@ -920,5 +920,5 @@ supported."
 
 (provide 'gnus-cache)
 
-;;; arch-tag: 05a79442-8c58-4e65-bd0a-3cbb1b89a33a
+;; arch-tag: 05a79442-8c58-4e65-bd0a-3cbb1b89a33a
 ;;; gnus-cache.el ends here
diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index 64c0864db78..b8ac424b32a 100644
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -1238,5 +1238,5 @@ is turned on."
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: 1997b044-6067-471e-8c8f-dc903093098a
+;; arch-tag: 1997b044-6067-471e-8c8f-dc903093098a
 ;;; gnus-cite.el ends here
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index 06515eb374a..238e36a0450 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -1120,5 +1120,5 @@ articles in the thread.
 
 (provide 'gnus-cus)
 
-;;; arch-tag: a37c285a-49bc-4235-8244-804536effeaf
+;; arch-tag: a37c285a-49bc-4235-8244-804536effeaf
 ;;; gnus-cus.el ends here
diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el
index c4b764ff557..53100ea848a 100644
--- a/lisp/gnus/gnus-demon.el
+++ b/lisp/gnus/gnus-demon.el
@@ -321,5 +321,5 @@ minutes, the connection is closed."
 
 (provide 'gnus-demon)
 
-;;; arch-tag: 8dd5cd3d-6ae4-46b4-9b15-f5fca09fd392
+;; arch-tag: 8dd5cd3d-6ae4-46b4-9b15-f5fca09fd392
 ;;; gnus-demon.el ends here
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index 15742440bef..db7f7135e5f 100644
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -407,5 +407,5 @@ If ARG (or prefix) is non-nil, force prompting for all fields."
 
 (provide 'gnus-diary)
 
-;;; arch-tag: 98467e70-337e-4ddc-b92d-45d403ff1b4b
+;; arch-tag: 98467e70-337e-4ddc-b92d-45d403ff1b4b
 ;;; gnus-diary.el ends here
diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el
index 4f29fe8d280..3e496c3301f 100644
--- a/lisp/gnus/gnus-dired.el
+++ b/lisp/gnus/gnus-dired.el
@@ -258,5 +258,5 @@ file to save in."
 
 (provide 'gnus-dired)
 
-;;; arch-tag: 44737731-e445-4638-a31e-713c7590ec76
+;; arch-tag: 44737731-e445-4638-a31e-713c7590ec76
 ;;; gnus-dired.el ends here
diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el
index 9148ca9036e..d1d3c9fc398 100644
--- a/lisp/gnus/gnus-draft.el
+++ b/lisp/gnus/gnus-draft.el
@@ -329,5 +329,5 @@ Obeys the standard process/prefix convention."
 
 (provide 'gnus-draft)
 
-;;; arch-tag: 3d92af58-8c97-4a5c-9db4-a98e85198022
+;; arch-tag: 3d92af58-8c97-4a5c-9db4-a98e85198022
 ;;; gnus-draft.el ends here
diff --git a/lisp/gnus/gnus-dup.el b/lisp/gnus/gnus-dup.el
index 73b183f97ce..160952d339a 100644
--- a/lisp/gnus/gnus-dup.el
+++ b/lisp/gnus/gnus-dup.el
@@ -161,5 +161,5 @@ seen in the same session."
 
 (provide 'gnus-dup)
 
-;;; arch-tag: 903e94db-7b00-4d19-83ee-cf34a81fa5fb
+;; arch-tag: 903e94db-7b00-4d19-83ee-cf34a81fa5fb
 ;;; gnus-dup.el ends here
diff --git a/lisp/gnus/gnus-eform.el b/lisp/gnus/gnus-eform.el
index ae89d4e740c..a3518170526 100644
--- a/lisp/gnus/gnus-eform.el
+++ b/lisp/gnus/gnus-eform.el
@@ -132,5 +132,5 @@ The optional LAYOUT overrides the `edit-form' window layout."
 
 (provide 'gnus-eform)
 
-;;; arch-tag: ef50678c-2c28-49ef-affc-e53b3b2c0bf6
+;; arch-tag: ef50678c-2c28-49ef-affc-e53b3b2c0bf6
 ;;; gnus-eform.el ends here
diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index cee92420c65..594b592e7b8 100644
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -308,5 +308,5 @@
 
 (provide 'gnus-ems)
 
-;;; arch-tag: e7360b45-14b5-4171-aa39-69a44aed3cdb
+;; arch-tag: e7360b45-14b5-4171-aa39-69a44aed3cdb
 ;;; gnus-ems.el ends here
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index 12465663c25..6e09e0c4558 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -718,5 +718,5 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
 
 (provide 'gnus-int)
 
-;;; arch-tag: bbc90087-9b7f-4017-a92c-3abf180ac86d
+;; arch-tag: bbc90087-9b7f-4017-a92c-3abf180ac86d
 ;;; gnus-int.el ends here
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el
index 5c52806e2ca..698803a3e9b 100644
--- a/lisp/gnus/gnus-kill.el
+++ b/lisp/gnus/gnus-kill.el
@@ -717,5 +717,5 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score"
 
 (provide 'gnus-kill)
 
-;;; arch-tag: b30c0f53-df1a-490b-b81e-17b13474f395
+;; arch-tag: b30c0f53-df1a-490b-b81e-17b13474f395
 ;;; gnus-kill.el ends here
diff --git a/lisp/gnus/gnus-logic.el b/lisp/gnus/gnus-logic.el
index 78ced8e4f84..3f529cf5323 100644
--- a/lisp/gnus/gnus-logic.el
+++ b/lisp/gnus/gnus-logic.el
@@ -228,5 +228,5 @@
 
 (provide 'gnus-logic)
 
-;;; arch-tag: 9651a100-4a59-4b69-a55b-e511e67c0f8d
+;; arch-tag: 9651a100-4a59-4b69-a55b-e511e67c0f8d
 ;;; gnus-logic.el ends here
diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el
index 1ecb12545cc..f8b006de542 100644
--- a/lisp/gnus/gnus-mh.el
+++ b/lisp/gnus/gnus-mh.el
@@ -111,5 +111,5 @@ Otherwise, it is like +news/group."
 
 (provide 'gnus-mh)
 
-;;; arch-tag: 2d5696d3-b363-48e5-8749-c256be56acca
+;; arch-tag: 2d5696d3-b363-48e5-8749-c256be56acca
 ;;; gnus-mh.el ends here
diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el
index 7158d667273..300dd9d6999 100644
--- a/lisp/gnus/gnus-ml.el
+++ b/lisp/gnus/gnus-ml.el
@@ -180,5 +180,5 @@ ADDRESS is specified by a \"mailto:\" URL."
 
 (provide 'gnus-ml)
 
-;;; arch-tag: 936c0fe6-acce-4c16-87d0-eded88078896
+;; arch-tag: 936c0fe6-acce-4c16-87d0-eded88078896
 ;;; gnus-ml.el ends here
diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el
index a9198526746..3acc0aed7ed 100644
--- a/lisp/gnus/gnus-mlspl.el
+++ b/lisp/gnus/gnus-mlspl.el
@@ -229,5 +229,5 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns:
 
 (provide 'gnus-mlspl)
 
-;;; arch-tag: 62b3381f-1e45-4b61-be1a-29fb27703322
+;; arch-tag: 62b3381f-1e45-4b61-be1a-29fb27703322
 ;;; gnus-mlspl.el ends here
diff --git a/lisp/gnus/gnus-move.el b/lisp/gnus/gnus-move.el
index cc23c06d136..7557506629c 100644
--- a/lisp/gnus/gnus-move.el
+++ b/lisp/gnus/gnus-move.el
@@ -179,5 +179,5 @@ Update the .newsrc.eld file to reflect the change of nntp server."
 
 (provide 'gnus-move)
 
-;;; arch-tag: 503742b8-7d66-4d79-bb31-4a698070707b
+;; arch-tag: 503742b8-7d66-4d79-bb31-4a698070707b
 ;;; gnus-move.el ends here
diff --git a/lisp/gnus/gnus-nocem.el b/lisp/gnus/gnus-nocem.el
index 5ce8e0f52b9..1b092d52275 100644
--- a/lisp/gnus/gnus-nocem.el
+++ b/lisp/gnus/gnus-nocem.el
@@ -396,5 +396,5 @@ valid issuer, which is much faster if you are selective about the issuers."
 
 (provide 'gnus-nocem)
 
-;;; arch-tag: 0e0c74ea-2f8e-4f3e-8fff-09f767c1adef
+;; arch-tag: 0e0c74ea-2f8e-4f3e-8fff-09f767c1adef
 ;;; gnus-nocem.el ends here
diff --git a/lisp/gnus/gnus-picon.el b/lisp/gnus/gnus-picon.el
index feb07d10e95..e5535a3403e 100644
--- a/lisp/gnus/gnus-picon.el
+++ b/lisp/gnus/gnus-picon.el
@@ -313,5 +313,5 @@ If picons are already displayed, remove them."
 
 (provide 'gnus-picon)
 
-;;; arch-tag: fe9aede0-1b1b-463a-b4ab-807f98bcb31f
+;; arch-tag: fe9aede0-1b1b-463a-b4ab-807f98bcb31f
 ;;; gnus-picon.el ends here
diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el
index 9d5790b4298..38d4b84e903 100644
--- a/lisp/gnus/gnus-range.el
+++ b/lisp/gnus/gnus-range.el
@@ -656,5 +656,5 @@ LIST is a sorted list."
 
 (provide 'gnus-range)
 
-;;; arch-tag: 4780bdd8-5a15-4aff-be28-18727895b6ad
+;; arch-tag: 4780bdd8-5a15-4aff-be28-18727895b6ad
 ;;; gnus-range.el ends here
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 7cdb075b836..b5ec4e1ae5f 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -1122,5 +1122,5 @@ Returns the first place where the trail finds a group name."
 
 (provide 'gnus-registry)
 
-;;; arch-tag: 5cba0a32-718a-4a97-8c91-0a15af21da94
+;; arch-tag: 5cba0a32-718a-4a97-8c91-0a15af21da94
 ;;; gnus-registry.el ends here
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 7a4fb257504..0284db0af2a 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -3114,5 +3114,5 @@ See Info node `(gnus)Scoring Tips' for examples of good regular expressions."
 
 (provide 'gnus-score)
 
-;;; arch-tag: d3922589-764d-46ae-9954-9330fd192634
+;; arch-tag: d3922589-764d-46ae-9954-9330fd192634
 ;;; gnus-score.el ends here
diff --git a/lisp/gnus/gnus-setup.el b/lisp/gnus/gnus-setup.el
index cc2d1ebc02d..9b682e05ae3 100644
--- a/lisp/gnus/gnus-setup.el
+++ b/lisp/gnus/gnus-setup.el
@@ -191,5 +191,5 @@ score the alt hierarchy, you'd say \"!alt.all\"." t nil))
 
 (run-hooks 'gnus-setup-load-hook)
 
-;;; arch-tag: 08e4af93-8565-46bf-905c-36229400609d
+;; arch-tag: 08e4af93-8565-46bf-905c-36229400609d
 ;;; gnus-setup.el ends here
diff --git a/lisp/gnus/gnus-sieve.el b/lisp/gnus/gnus-sieve.el
index a6023c83f9d..460500d3b37 100644
--- a/lisp/gnus/gnus-sieve.el
+++ b/lisp/gnus/gnus-sieve.el
@@ -237,5 +237,5 @@ This is returned as a string."
 
 (provide 'gnus-sieve)
 
-;;; arch-tag: 3b906527-c7f3-4c86-9e82-62e2697998a3
+;; arch-tag: 3b906527-c7f3-4c86-9e82-62e2697998a3
 ;;; gnus-sieve.el ends here
diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index c35425bcf47..d8a2fd79600 100644
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -769,5 +769,5 @@ If PROPS, insert the result."
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: a4328fa1-1f84-4b09-97ad-4b5767cfd50f
+;; arch-tag: a4328fa1-1f84-4b09-97ad-4b5767cfd50f
 ;;; gnus-spec.el ends here
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 2173ee29ec1..09d102afe48 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -1029,5 +1029,5 @@ Requesting compaction of %s... (this may take a long time)"
 
 (provide 'gnus-srvr)
 
-;;; arch-tag: c0117f64-27ca-475d-9406-8da6854c7a25
+;; arch-tag: c0117f64-27ca-475d-9406-8da6854c7a25
 ;;; gnus-srvr.el ends here
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 92f4ca0310b..ecaa7869a55 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -1780,5 +1780,5 @@ If REVERSE, reverse the sorting order."
 
 (provide 'gnus-topic)
 
-;;; arch-tag: bf176856-f30c-40f0-ae77-e41529a1134c
+;; arch-tag: bf176856-f30c-40f0-ae77-e41529a1134c
 ;;; gnus-topic.el ends here
diff --git a/lisp/gnus/gnus-undo.el b/lisp/gnus/gnus-undo.el
index ac64eee01af..e85e7e75c0f 100644
--- a/lisp/gnus/gnus-undo.el
+++ b/lisp/gnus/gnus-undo.el
@@ -190,5 +190,5 @@ A numeric argument serves as a repeat count."
 
 (provide 'gnus-undo)
 
-;;; arch-tag: 0d787bc7-787d-499a-837f-211d2cb07f2e
+;; arch-tag: 0d787bc7-787d-499a-837f-211d2cb07f2e
 ;;; gnus-undo.el ends here
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 66db49d8449..637703cf11e 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1793,5 +1793,5 @@ is allowed once again.  (Immediately, if `inhibit-quit' is nil.)"
 
 (provide 'gnus-util)
 
-;;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49
+;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49
 ;;; gnus-util.el ends here
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index cdf5e4dbff7..334e73b2033 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -2172,5 +2172,5 @@ If no file has been included, the user will be asked for a file."
 
 (provide 'gnus-uu)
 
-;;; arch-tag: 05312384-0a83-4720-9a58-b3160b888853
+;; arch-tag: 05312384-0a83-4720-9a58-b3160b888853
 ;;; gnus-uu.el ends here
diff --git a/lisp/gnus/gnus-vm.el b/lisp/gnus/gnus-vm.el
index 8624db41169..ff8f75a2674 100644
--- a/lisp/gnus/gnus-vm.el
+++ b/lisp/gnus/gnus-vm.el
@@ -105,5 +105,5 @@ save those articles instead."
 
 (provide 'gnus-vm)
 
-;;; arch-tag: 42ca7f88-a12f-461d-be3e-cac7efb44866
+;; arch-tag: 42ca7f88-a12f-461d-be3e-cac7efb44866
 ;;; gnus-vm.el ends here
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 583588dedff..e28be6d4da4 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -4375,5 +4375,5 @@ prompt the user for the name of an NNTP server to use."
 
 (provide 'gnus)
 
-;;; arch-tag: acebeeab-f331-4f8f-a7ea-89c58c84f636
+;; arch-tag: acebeeab-f331-4f8f-a7ea-89c58c84f636
 ;;; gnus.el ends here
diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index cb4d7dde5bb..573abcd8699 100644
--- a/lisp/gnus/html2text.el
+++ b/lisp/gnus/html2text.el
@@ -510,5 +510,5 @@ See the documentation for that variable."
 ;; </Interactive functions>
 ;;
 (provide 'html2text)
-;;; arch-tag: e9e57b79-35d4-4de1-a647-e7e01fe56d1e
+;; arch-tag: e9e57b79-35d4-4de1-a647-e7e01fe56d1e
 ;;; html2text.el ends here
diff --git a/lisp/gnus/ietf-drums.el b/lisp/gnus/ietf-drums.el
index 28193b89e9b..6ec5a31f485 100644
--- a/lisp/gnus/ietf-drums.el
+++ b/lisp/gnus/ietf-drums.el
@@ -289,5 +289,5 @@ a list of address strings."
 
 (provide 'ietf-drums)
 
-;;; arch-tag: 379a0191-dbae-4ca6-a0f5-d4202c209ef9
+;; arch-tag: 379a0191-dbae-4ca6-a0f5-d4202c209ef9
 ;;; ietf-drums.el ends here
diff --git a/lisp/gnus/mail-parse.el b/lisp/gnus/mail-parse.el
index 576e0c280b6..9125f436b80 100644
--- a/lisp/gnus/mail-parse.el
+++ b/lisp/gnus/mail-parse.el
@@ -76,5 +76,5 @@
 
 (provide 'mail-parse)
 
-;;; arch-tag: 3e63d75c-c962-4784-ab01-7ba07ca9d2d4
+;; arch-tag: 3e63d75c-c962-4784-ab01-7ba07ca9d2d4
 ;;; mail-parse.el ends here
diff --git a/lisp/gnus/mail-prsvr.el b/lisp/gnus/mail-prsvr.el
index b6fdd828e1b..85167369298 100644
--- a/lisp/gnus/mail-prsvr.el
+++ b/lisp/gnus/mail-prsvr.el
@@ -43,5 +43,5 @@ what the desired charsets is to be ignored.")
 
 (provide 'mail-prsvr)
 
-;;; arch-tag: 9ba878cc-8b43-4f7a-85b1-69b1a9a5d9f5
+;; arch-tag: 9ba878cc-8b43-4f7a-85b1-69b1a9a5d9f5
 ;;; mail-prsvr.el ends here
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 583b19049c4..a26f885894d 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -1114,5 +1114,5 @@ This only works when `display-time' is enabled."
 
 (provide 'mail-source)
 
-;;; arch-tag: 72948025-1d17-4d6c-bb12-ef1aa2c490fd
+;; arch-tag: 72948025-1d17-4d6c-bb12-ef1aa2c490fd
 ;;; mail-source.el ends here
diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el
index 866e57fef3e..f9a523f6206 100644
--- a/lisp/gnus/mailcap.el
+++ b/lisp/gnus/mailcap.el
@@ -1009,5 +1009,5 @@ If FORCE, re-parse even if already parsed."
 
 (provide 'mailcap)
 
-;;; arch-tag: 1fd4f9c9-c305-4d2e-9747-3a4d45baa0bd
+;; arch-tag: 1fd4f9c9-c305-4d2e-9747-3a4d45baa0bd
 ;;; mailcap.el ends here
diff --git a/lisp/gnus/messcompat.el b/lisp/gnus/messcompat.el
index 2f6036301fd..07b9edfa75a 100644
--- a/lisp/gnus/messcompat.el
+++ b/lisp/gnus/messcompat.el
@@ -91,5 +91,5 @@ variable `mail-header-separator'.")
 
 (provide 'messcompat)
 
-;;; arch-tag: a76673be-905e-4bbd-8966-615370494a7b
+;; arch-tag: a76673be-905e-4bbd-8966-615370494a7b
 ;;; messcompat.el ends here
diff --git a/lisp/gnus/mm-encode.el b/lisp/gnus/mm-encode.el
index d22c59c5018..2597a5d5d97 100644
--- a/lisp/gnus/mm-encode.el
+++ b/lisp/gnus/mm-encode.el
@@ -206,5 +206,5 @@ This is either `base64' or `quoted-printable'."
 
 (provide 'mm-encode)
 
-;;; arch-tag: 7d01bba4-d469-4851-952b-dc863f84ed66
+;; arch-tag: 7d01bba4-d469-4851-952b-dc863f84ed66
 ;;; mm-encode.el ends here
diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el
index d63ffb890a4..5f0565f2c5d 100644
--- a/lisp/gnus/mm-extern.el
+++ b/lisp/gnus/mm-extern.el
@@ -171,5 +171,5 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 
 (provide 'mm-extern)
 
-;;; arch-tag: 9653808e-14d9-4172-86e6-adceaa05378e
+;; arch-tag: 9653808e-14d9-4172-86e6-adceaa05378e
 ;;; mm-extern.el ends here
diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el
index 0a8a133a379..764c706c842 100644
--- a/lisp/gnus/mm-partial.el
+++ b/lisp/gnus/mm-partial.el
@@ -152,5 +152,5 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 
 (provide 'mm-partial)
 
-;;; arch-tag: 460e7424-05f2-4a1d-a0f2-70ec081eff7d
+;; arch-tag: 460e7424-05f2-4a1d-a0f2-70ec081eff7d
 ;;; mm-partial.el ends here
diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el
index f1b4d431c32..e7245d08ad3 100644
--- a/lisp/gnus/mm-url.el
+++ b/lisp/gnus/mm-url.el
@@ -457,5 +457,5 @@ spaces.  Die Die Die."
 
 (provide 'mm-url)
 
-;;; arch-tag: 0594f9b3-417c-48b0-adc2-5082e1e7917f
+;; arch-tag: 0594f9b3-417c-48b0-adc2-5082e1e7917f
 ;;; mm-url.el ends here
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 0906b8e1666..896b0146980 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -380,5 +380,5 @@ If called with a prefix argument, only encrypt (do NOT sign)."
 
 (provide 'mml-sec)
 
-;;; arch-tag: 111c56e7-df5e-4287-87d7-93ed2911ec6c
+;; arch-tag: 111c56e7-df5e-4287-87d7-93ed2911ec6c
 ;;; mml-sec.el ends here
diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el
index 340370b9458..e2f6e63382e 100644
--- a/lisp/gnus/mml-smime.el
+++ b/lisp/gnus/mml-smime.el
@@ -552,5 +552,5 @@ Content-Disposition: attachment; filename=smime.p7m
 
 (provide 'mml-smime)
 
-;;; arch-tag: f1bf94d4-f2cd-4c6f-b059-ad69492817e2
+;; arch-tag: f1bf94d4-f2cd-4c6f-b059-ad69492817e2
 ;;; mml-smime.el ends here
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 79a1de772ce..b29738da54f 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1516,5 +1516,5 @@ or the `pop-to-buffer' function."
 
 (provide 'mml)
 
-;;; arch-tag: 583c96cf-1ffe-451b-a5e5-4733ae9ddd12
+;; arch-tag: 583c96cf-1ffe-451b-a5e5-4733ae9ddd12
 ;;; mml.el ends here
diff --git a/lisp/gnus/mml1991.el b/lisp/gnus/mml1991.el
index 5224f7e1804..27d74909310 100644
--- a/lisp/gnus/mml1991.el
+++ b/lisp/gnus/mml1991.el
@@ -520,5 +520,5 @@ If no one is selected, default secret key is used.  "
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: e542be18-ab28-4393-9b33-97fe9cf30706
+;; arch-tag: e542be18-ab28-4393-9b33-97fe9cf30706
 ;;; mml1991.el ends here
diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index eb09b71f79f..903623af0d7 100644
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -1422,5 +1422,5 @@ If no one is selected, default secret key is used.  "
 
 (provide 'mml2015)
 
-;;; arch-tag: b04701d5-0b09-44d8-bed8-de901bf435f2
+;; arch-tag: b04701d5-0b09-44d8-bed8-de901bf435f2
 ;;; mml2015.el ends here
diff --git a/lisp/gnus/nnagent.el b/lisp/gnus/nnagent.el
index b0c14fa35e2..67cc762cf40 100644
--- a/lisp/gnus/nnagent.el
+++ b/lisp/gnus/nnagent.el
@@ -263,5 +263,5 @@
 
 (provide 'nnagent)
 
-;;; arch-tag: af710b77-f816-4969-af31-6fd94fb42245
+;; arch-tag: af710b77-f816-4969-af31-6fd94fb42245
 ;;; nnagent.el ends here
diff --git a/lisp/gnus/nnbabyl.el b/lisp/gnus/nnbabyl.el
index 06943de1e8e..6a9d08d7af2 100644
--- a/lisp/gnus/nnbabyl.el
+++ b/lisp/gnus/nnbabyl.el
@@ -665,5 +665,5 @@
 
 (provide 'nnbabyl)
 
-;;; arch-tag: aa7ddedb-8c07-4c0e-beb0-58e795c2b81b
+;; arch-tag: aa7ddedb-8c07-4c0e-beb0-58e795c2b81b
 ;;; nnbabyl.el ends here
diff --git a/lisp/gnus/nndb.el b/lisp/gnus/nndb.el
index 655c3b96ee1..06bc88dc0d8 100644
--- a/lisp/gnus/nndb.el
+++ b/lisp/gnus/nndb.el
@@ -323,5 +323,5 @@ Optional LAST is ignored."
 
 (provide 'nndb)
 
-;;; arch-tag: 83bd6fb4-58d9-4fed-a901-c6c625ad5f8a
+;; arch-tag: 83bd6fb4-58d9-4fed-a901-c6c625ad5f8a
 ;;; nndb.el ends here
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index 4cc0a98f02a..0854d986be8 100644
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -1587,5 +1587,5 @@ all.  This may very well take some time.")
 (provide 'nndiary)
 
 
-;;; arch-tag: 9c542b95-92e7-4ace-a038-330ab296e203
+;; arch-tag: 9c542b95-92e7-4ace-a038-330ab296e203
 ;;; nndiary.el ends here
diff --git a/lisp/gnus/nndir.el b/lisp/gnus/nndir.el
index 85aff9c8b80..f6b59d5ca53 100644
--- a/lisp/gnus/nndir.el
+++ b/lisp/gnus/nndir.el
@@ -98,5 +98,5 @@
 
 (provide 'nndir)
 
-;;; arch-tag: 56f09f68-0e4e-4816-818a-df80b4a394c8
+;; arch-tag: 56f09f68-0e4e-4816-818a-df80b4a394c8
 ;;; nndir.el ends here
diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el
index dc232ee4f9d..daf37e45388 100644
--- a/lisp/gnus/nndraft.el
+++ b/lisp/gnus/nndraft.el
@@ -315,5 +315,5 @@ are generated if and only if they are also in `message-draft-headers'.")
 
 (provide 'nndraft)
 
-;;; arch-tag: 3ce26ca0-41cb-48b1-8703-4dad35e188aa
+;; arch-tag: 3ce26ca0-41cb-48b1-8703-4dad35e188aa
 ;;; nndraft.el ends here
diff --git a/lisp/gnus/nneething.el b/lisp/gnus/nneething.el
index ac52cfdb413..aa0f3282409 100644
--- a/lisp/gnus/nneething.el
+++ b/lisp/gnus/nneething.el
@@ -428,5 +428,5 @@ included.")
 
 (provide 'nneething)
 
-;;; arch-tag: 1277f386-88f2-4459-bb24-f3f45962a6c5
+;; arch-tag: 1277f386-88f2-4459-bb24-f3f45962a6c5
 ;;; nneething.el ends here
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el
index f1c52586443..4f5ab8a6d5d 100644
--- a/lisp/gnus/nnfolder.el
+++ b/lisp/gnus/nnfolder.el
@@ -1302,5 +1302,5 @@ This command does not work if you use short group names."
 
 (provide 'nnfolder)
 
-;;; arch-tag: a040d0f4-4f4e-445f-8972-839575c5f7e6
+;; arch-tag: a040d0f4-4f4e-445f-8972-839575c5f7e6
 ;;; nnfolder.el ends here
diff --git a/lisp/gnus/nngateway.el b/lisp/gnus/nngateway.el
index ede53807588..9e0b97b7ac4 100644
--- a/lisp/gnus/nngateway.el
+++ b/lisp/gnus/nngateway.el
@@ -91,5 +91,5 @@ parameter -- the gateway address.")
 
 (provide 'nngateway)
 
-;;; arch-tag: f7ecb92e-b10c-43d5-9a9b-1314233341fc
+;; arch-tag: f7ecb92e-b10c-43d5-9a9b-1314233341fc
 ;;; nngateway.el ends here
diff --git a/lisp/gnus/nnkiboze.el b/lisp/gnus/nnkiboze.el
index aca386926e5..4c447d3ad8c 100644
--- a/lisp/gnus/nnkiboze.el
+++ b/lisp/gnus/nnkiboze.el
@@ -388,5 +388,5 @@ Finds out what articles are to be part of the nnkiboze groups."
 
 (provide 'nnkiboze)
 
-;;; arch-tag: 66068271-bdc9-4801-bcde-779702e73a05
+;; arch-tag: 66068271-bdc9-4801-bcde-779702e73a05
 ;;; nnkiboze.el ends here
diff --git a/lisp/gnus/nnlistserv.el b/lisp/gnus/nnlistserv.el
index 41941370ee8..725437b8313 100644
--- a/lisp/gnus/nnlistserv.el
+++ b/lisp/gnus/nnlistserv.el
@@ -150,5 +150,5 @@
 
 (provide 'nnlistserv)
 
-;;; arch-tag: 7705176f-d332-4a5e-a520-d0d319445617
+;; arch-tag: 7705176f-d332-4a5e-a520-d0d319445617
 ;;; nnlistserv.el ends here
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 0cccfa1b036..3228055eddf 100644
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -2049,5 +2049,5 @@ Doesn't change point."
 
 (provide 'nnmail)
 
-;;; arch-tag: fe8f671a-50db-428a-bb5d-f00462f72ed7
+;; arch-tag: fe8f671a-50db-428a-bb5d-f00462f72ed7
 ;;; nnmail.el ends here
diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el
index 05c19c27ee1..9ae10af25e1 100644
--- a/lisp/gnus/nnmaildir.el
+++ b/lisp/gnus/nnmaildir.el
@@ -1669,5 +1669,5 @@ by nnmaildir-request-article.")
 ;; fill-column: 77
 ;; End:
 
-;;; arch-tag: 0c4e44cd-dfde-4040-888e-5597ec771849
+;; arch-tag: 0c4e44cd-dfde-4040-888e-5597ec771849
 ;;; nnmaildir.el ends here
diff --git a/lisp/gnus/nnmbox.el b/lisp/gnus/nnmbox.el
index 78af887de6d..963184df15b 100644
--- a/lisp/gnus/nnmbox.el
+++ b/lisp/gnus/nnmbox.el
@@ -715,5 +715,5 @@
 
 (provide 'nnmbox)
 
-;;; arch-tag: 611dd95f-be37-413a-b3ae-8b059ba93659
+;; arch-tag: 611dd95f-be37-413a-b3ae-8b059ba93659
 ;;; nnmbox.el ends here
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el
index 55c33b1aab8..1c764b52645 100644
--- a/lisp/gnus/nnml.el
+++ b/lisp/gnus/nnml.el
@@ -1309,5 +1309,5 @@ Use the nov database for the current group if available."
 
 (provide 'nnml)
 
-;;; arch-tag: 52c97dc3-9735-45de-b439-9e4d23b52004
+;; arch-tag: 52c97dc3-9735-45de-b439-9e4d23b52004
 ;;; nnml.el ends here
diff --git a/lisp/gnus/nnnil.el b/lisp/gnus/nnnil.el
index 5c5e3c1af91..ecb0ced91fa 100644
--- a/lisp/gnus/nnnil.el
+++ b/lisp/gnus/nnnil.el
@@ -81,4 +81,4 @@
 
 (provide 'nnnil)
 
-;;; arch-tag: a982a1a3-bc5e-4fb1-a233-d7657a3e3257
+;; arch-tag: a982a1a3-bc5e-4fb1-a233-d7657a3e3257
diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el
index 56be96ff37b..933ce00defa 100644
--- a/lisp/gnus/nnoo.el
+++ b/lisp/gnus/nnoo.el
@@ -324,5 +324,5 @@ All functions will return nil and report an error."
 
 (provide 'nnoo)
 
-;;; arch-tag: 0196b5ed-6f34-4778-a455-73a971f837e7
+;; arch-tag: 0196b5ed-6f34-4778-a455-73a971f837e7
 ;;; nnoo.el ends here
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 70fec300fc4..69a33088242 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -1134,4 +1134,4 @@ prefix), return the prefix."
 
 ;;; nnrss.el ends here
 
-;;; arch-tag: 12910c07-0cdf-44fb-8d2c-416ded64c267
+;; arch-tag: 12910c07-0cdf-44fb-8d2c-416ded64c267
diff --git a/lisp/gnus/nnslashdot.el b/lisp/gnus/nnslashdot.el
index e9a5cad3576..92351a45974 100644
--- a/lisp/gnus/nnslashdot.el
+++ b/lisp/gnus/nnslashdot.el
@@ -503,5 +503,5 @@
 
 (provide 'nnslashdot)
 
-;;; arch-tag: aa73df7a-f7e6-4eef-bdea-5ce2f8c691b3
+;; arch-tag: aa73df7a-f7e6-4eef-bdea-5ce2f8c691b3
 ;;; nnslashdot.el ends here
diff --git a/lisp/gnus/nnsoup.el b/lisp/gnus/nnsoup.el
index 24825e16a8e..e74ecda70b0 100644
--- a/lisp/gnus/nnsoup.el
+++ b/lisp/gnus/nnsoup.el
@@ -810,5 +810,5 @@ backend for the messages.")
 
 (provide 'nnsoup)
 
-;;; arch-tag: b0451389-5703-4450-9425-f66f6b38c828
+;; arch-tag: b0451389-5703-4450-9425-f66f6b38c828
 ;;; nnsoup.el ends here
diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el
index d8f876d7af8..bb5be8fd225 100644
--- a/lisp/gnus/nnspool.el
+++ b/lisp/gnus/nnspool.el
@@ -458,5 +458,5 @@ there.")
 
 (provide 'nnspool)
 
-;;; arch-tag: bdac8d27-2934-4eee-bad0-49e6b90c0d05
+;; arch-tag: bdac8d27-2934-4eee-bad0-49e6b90c0d05
 ;;; nnspool.el ends here
diff --git a/lisp/gnus/nnultimate.el b/lisp/gnus/nnultimate.el
index ffa246c98a2..a924c814174 100644
--- a/lisp/gnus/nnultimate.el
+++ b/lisp/gnus/nnultimate.el
@@ -478,5 +478,5 @@
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: ab6bfc45-8fe1-4647-9c78-41050eb152b8
+;; arch-tag: ab6bfc45-8fe1-4647-9c78-41050eb152b8
 ;;; nnultimate.el ends here
diff --git a/lisp/gnus/nnvirtual.el b/lisp/gnus/nnvirtual.el
index 8e4faf2cd8d..09d8b464f77 100644
--- a/lisp/gnus/nnvirtual.el
+++ b/lisp/gnus/nnvirtual.el
@@ -812,5 +812,5 @@ based on the marks on the component groups."
 
 (provide 'nnvirtual)
 
-;;; arch-tag: ca8c8ad9-1bd8-4b0f-9722-90dc645a45f5
+;; arch-tag: ca8c8ad9-1bd8-4b0f-9722-90dc645a45f5
 ;;; nnvirtual.el ends here
diff --git a/lisp/gnus/nnwarchive.el b/lisp/gnus/nnwarchive.el
index 36dec52a8c2..3376df9032d 100644
--- a/lisp/gnus/nnwarchive.el
+++ b/lisp/gnus/nnwarchive.el
@@ -725,5 +725,5 @@
 
 (provide 'nnwarchive)
 
-;;; arch-tag: 1ab7a15c-777a-40e0-95c0-0c41b3963578
+;; arch-tag: 1ab7a15c-777a-40e0-95c0-0c41b3963578
 ;;; nnwarchive.el ends here
diff --git a/lisp/gnus/nnwfm.el b/lisp/gnus/nnwfm.el
index 51e5833d695..6c439d4cdd3 100644
--- a/lisp/gnus/nnwfm.el
+++ b/lisp/gnus/nnwfm.el
@@ -430,5 +430,5 @@
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: d813966a-4211-4557-ad11-d1ac2bc86536
+;; arch-tag: d813966a-4211-4557-ad11-d1ac2bc86536
 ;;; nnwfm.el ends here
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index ad442cfced9..85126e053e3 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -613,5 +613,5 @@ and close the connection."
 
 (provide 'pop3)
 
-;;; arch-tag: 2facc142-1d74-498e-82af-4659b64cac12
+;; arch-tag: 2facc142-1d74-498e-82af-4659b64cac12
 ;;; pop3.el ends here
diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el
index 4aedaa08b11..5d25e05479d 100644
--- a/lisp/gnus/qp.el
+++ b/lisp/gnus/qp.el
@@ -164,5 +164,5 @@ encode lines starting with \"From\"."
 
 (provide 'qp)
 
-;;; arch-tag: db89e52a-e4a1-4b69-926f-f434f04216ba
+;; arch-tag: db89e52a-e4a1-4b69-926f-f434f04216ba
 ;;; qp.el ends here
diff --git a/lisp/gnus/rfc1843.el b/lisp/gnus/rfc1843.el
index 6c0c2a513a5..ca8a1160a1c 100644
--- a/lisp/gnus/rfc1843.el
+++ b/lisp/gnus/rfc1843.el
@@ -194,5 +194,5 @@ ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
 
 (provide 'rfc1843)
 
-;;; arch-tag: 5149c301-a6ca-4731-9c9d-ba616e2cb687
+;; arch-tag: 5149c301-a6ca-4731-9c9d-ba616e2cb687
 ;;; rfc1843.el ends here
diff --git a/lisp/gnus/rfc2045.el b/lisp/gnus/rfc2045.el
index 06cfe86fcf9..1b79fc74791 100644
--- a/lisp/gnus/rfc2045.el
+++ b/lisp/gnus/rfc2045.el
@@ -41,5 +41,5 @@
 
 (provide 'rfc2045)
 
-;;; arch-tag: 9ca54127-97bc-432c-b6e2-8c59cadba306
+;; arch-tag: 9ca54127-97bc-432c-b6e2-8c59cadba306
 ;;; rfc2045.el ends here
diff --git a/lisp/gnus/rfc2104.el b/lisp/gnus/rfc2104.el
index 43bbae9fae7..e88faf72654 100644
--- a/lisp/gnus/rfc2104.el
+++ b/lisp/gnus/rfc2104.el
@@ -120,5 +120,5 @@
 
 (provide 'rfc2104)
 
-;;; arch-tag: cf671d5c-a45f-4a09-815e-704e59e43950
+;; arch-tag: cf671d5c-a45f-4a09-815e-704e59e43950
 ;;; rfc2104.el ends here
diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el
index 93282c0c235..498affd15b3 100644
--- a/lisp/gnus/rfc2231.el
+++ b/lisp/gnus/rfc2231.el
@@ -298,5 +298,5 @@ the result of this function."
 
 (provide 'rfc2231)
 
-;;; arch-tag: c3ab751d-d108-406a-b301-68882ad8cd63
+;; arch-tag: c3ab751d-d108-406a-b301-68882ad8cd63
 ;;; rfc2231.el ends here
diff --git a/lisp/gnus/score-mode.el b/lisp/gnus/score-mode.el
index 532399bb049..6e022eb5320 100644
--- a/lisp/gnus/score-mode.el
+++ b/lisp/gnus/score-mode.el
@@ -118,5 +118,5 @@ This mode is an extended emacs-lisp mode.
 
 (provide 'score-mode)
 
-;;; arch-tag: a74a416b-2505-4ad4-bc4e-a418c96b8845
+;; arch-tag: a74a416b-2505-4ad4-bc4e-a418c96b8845
 ;;; score-mode.el ends here
diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index 0a7c8e96ddb..c39a6bb3356 100644
--- a/lisp/gnus/sieve-manage.el
+++ b/lisp/gnus/sieve-manage.el
@@ -706,5 +706,5 @@ password is remembered in the buffer."
 
 (provide 'sieve-manage)
 
-;;; arch-tag: 321c4640-1371-4495-9baf-8ccb71dd5bd1
+;; arch-tag: 321c4640-1371-4495-9baf-8ccb71dd5bd1
 ;; sieve-manage.el ends here
diff --git a/lisp/gnus/sieve-mode.el b/lisp/gnus/sieve-mode.el
index 8dd94aee4c1..95d488f339c 100644
--- a/lisp/gnus/sieve-mode.el
+++ b/lisp/gnus/sieve-mode.el
@@ -214,5 +214,5 @@ Turning on Sieve mode runs `sieve-mode-hook'."
 
 (provide 'sieve-mode)
 
-;;; arch-tag: 3b8ab76d-065d-4c52-b1e8-ab2ec21f2ace
+;; arch-tag: 3b8ab76d-065d-4c52-b1e8-ab2ec21f2ace
 ;; sieve-mode.el ends here
diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el
index c32c44ae505..a0c3d262364 100644
--- a/lisp/gnus/sieve.el
+++ b/lisp/gnus/sieve.el
@@ -382,5 +382,5 @@ Server  : " server ":" (or port "2000") "
 
 (provide 'sieve)
 
-;;; arch-tag: 7f6a6d94-94e1-4654-ab9a-aee21b9b8a94
+;; arch-tag: 7f6a6d94-94e1-4654-ab9a-aee21b9b8a94
 ;; sieve.el ends here
diff --git a/lisp/gnus/smiley.el b/lisp/gnus/smiley.el
index 7937679e111..3847603ab9b 100644
--- a/lisp/gnus/smiley.el
+++ b/lisp/gnus/smiley.el
@@ -228,5 +228,5 @@ With arg, turn displaying on if and only if arg is positive."
 
 (provide 'smiley)
 
-;;; arch-tag: 5beb161b-4321-40af-8ac9-876afb8ee818
+;; arch-tag: 5beb161b-4321-40af-8ac9-876afb8ee818
 ;;; smiley.el ends here
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el
index 7a8947383e0..ddf39cc3e79 100644
--- a/lisp/gnus/smime.el
+++ b/lisp/gnus/smime.el
@@ -731,5 +731,5 @@ The following commands are available:
 
 (provide 'smime)
 
-;;; arch-tag: e3f9b938-5085-4510-8a11-6625269c9a9e
+;; arch-tag: e3f9b938-5085-4510-8a11-6625269c9a9e
 ;;; smime.el ends here
diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el
index 2f8590ab4b0..c4383d183b5 100644
--- a/lisp/gnus/spam-report.el
+++ b/lisp/gnus/spam-report.el
@@ -361,5 +361,5 @@ Process queued spam reports."
 
 (provide 'spam-report)
 
-;;; arch-tag: f6683295-ec89-4ab5-8803-8cc842293022
+;; arch-tag: f6683295-ec89-4ab5-8803-8cc842293022
 ;;; spam-report.el ends here.
diff --git a/lisp/gnus/spam-stat.el b/lisp/gnus/spam-stat.el
index bd6c6a25bc8..7b6df7048c7 100644
--- a/lisp/gnus/spam-stat.el
+++ b/lisp/gnus/spam-stat.el
@@ -673,5 +673,5 @@ COUNT defaults to 5"
 
 (provide 'spam-stat)
 
-;;; arch-tag: ff1d2200-8ddb-42fb-bb7b-1b5e20448554
+;; arch-tag: ff1d2200-8ddb-42fb-bb7b-1b5e20448554
 ;;; spam-stat.el ends here
diff --git a/lisp/gnus/spam-wash.el b/lisp/gnus/spam-wash.el
index 70192e06c1a..d9e18d254e7 100644
--- a/lisp/gnus/spam-wash.el
+++ b/lisp/gnus/spam-wash.el
@@ -71,5 +71,5 @@
 
 (provide 'spam-wash)
 
-;;; arch-tag: 3c7f94a7-c96d-4c77-bb59-950df12bc85f
+;; arch-tag: 3c7f94a7-c96d-4c77-bb59-950df12bc85f
 ;;; spam-wash.el ends here
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index f51453e644f..6b2a647eda7 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -2946,5 +2946,5 @@ installed through `spam-necessary-extra-headers'."
 
 (provide 'spam)
 
-;;; arch-tag: 07e6e0ca-ab0a-4412-b445-1f6c72a4f27f
+;; arch-tag: 07e6e0ca-ab0a-4412-b445-1f6c72a4f27f
 ;;; spam.el ends here
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el
index bffd2682f1a..fbacb91dbd4 100644
--- a/lisp/gnus/starttls.el
+++ b/lisp/gnus/starttls.el
@@ -299,5 +299,5 @@ GNUTLS requires a port number."
 
 (provide 'starttls)
 
-;;; arch-tag: 648b3bd8-63bd-47f5-904c-7c819aea2297
+;; arch-tag: 648b3bd8-63bd-47f5-904c-7c819aea2297
 ;;; starttls.el ends here
diff --git a/lisp/gnus/utf7.el b/lisp/gnus/utf7.el
index 269da5f6cfb..4eb15a95d03 100644
--- a/lisp/gnus/utf7.el
+++ b/lisp/gnus/utf7.el
@@ -232,5 +232,5 @@ Characters are in raw byte pairs in narrowed buffer."
 
 (provide 'utf7)
 
-;;; arch-tag: 96078b55-85c7-4161-aed2-932c24b282c7
+;; arch-tag: 96078b55-85c7-4161-aed2-932c24b282c7
 ;;; utf7.el ends here
diff --git a/lisp/gnus/webmail.el b/lisp/gnus/webmail.el
index 894b7d258bc..fc6f6b90766 100644
--- a/lisp/gnus/webmail.el
+++ b/lisp/gnus/webmail.el
@@ -1150,5 +1150,5 @@
 
 (provide 'webmail)
 
-;;; arch-tag: f75a4558-a8f6-46ec-b1c3-7a6434b3dd71
+;; arch-tag: f75a4558-a8f6-46ec-b1c3-7a6434b3dd71
 ;;; webmail.el ends here
diff --git a/lisp/gnus/yenc.el b/lisp/gnus/yenc.el
index a1cfa99ef00..7cf5281d139 100644
--- a/lisp/gnus/yenc.el
+++ b/lisp/gnus/yenc.el
@@ -137,5 +137,5 @@
 
 (provide 'yenc)
 
-;;; arch-tag: 74df17e8-6fa8-4071-9f7d-54d548d79d9a
+;; arch-tag: 74df17e8-6fa8-4071-9f7d-54d548d79d9a
 ;;; yenc.el ends here
diff --git a/lisp/gs.el b/lisp/gs.el
index cecee7b76ef..be44dd9f167 100644
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -214,5 +214,5 @@ the form \"WINDOW-ID PIXMAP-ID\".  Value is non-nil if successful."
 
 (provide 'gs)
 
-;;; arch-tag: 06ab51b8-4932-4cfe-9f60-b924a8edb3f0
+;; arch-tag: 06ab51b8-4932-4cfe-9f60-b924a8edb3f0
 ;;; gs.el ends here
diff --git a/lisp/help-at-pt.el b/lisp/help-at-pt.el
index 126afbf0062..cf9a07b0f56 100644
--- a/lisp/help-at-pt.el
+++ b/lisp/help-at-pt.el
@@ -352,5 +352,5 @@ different regions.  With numeric argument ARG, behaves like
 
 (provide 'help-at-pt)
 
-;;; arch-tag: d0b8b86d-d23f-45d0-a82d-208d6205a583
+;; arch-tag: d0b8b86d-d23f-45d0-a82d-208d6205a583
 ;;; help-at-pt.el ends here
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index fd02b73dda4..3e975df5035 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -198,5 +198,5 @@ and then returns."
 
 (provide 'help-macro)
 
-;;; arch-tag: 59fee949-1686-485a-8a05-83418073e257
+;; arch-tag: 59fee949-1686-485a-8a05-83418073e257
 ;;; help-macro.el ends here
diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el
index a1ad8ae2fc4..9eeb1dd1c60 100644
--- a/lisp/hippie-exp.el
+++ b/lisp/hippie-exp.el
@@ -1223,5 +1223,5 @@ string).  It returns t if a new completion is found, nil otherwise."
 
 (provide 'hippie-exp)
 
-;;; arch-tag: 5e6e00bf-b061-4a7a-9b46-de0ae105ab99
+;; arch-tag: 5e6e00bf-b061-4a7a-9b46-de0ae105ab99
 ;;; hippie-exp.el ends here
diff --git a/lisp/hl-line.el b/lisp/hl-line.el
index 28d64e2e876..b2b02a1cead 100644
--- a/lisp/hl-line.el
+++ b/lisp/hl-line.el
@@ -211,5 +211,5 @@ the line including the point by OVERLAY."
 
 (provide 'hl-line)
 
-;;; arch-tag: ac806940-0876-4959-8c89-947563ee2833
+;; arch-tag: ac806940-0876-4959-8c89-947563ee2833
 ;;; hl-line.el ends here
diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el
index 1ea7e0ba6be..d3a4da54e50 100644
--- a/lisp/ibuf-macs.el
+++ b/lisp/ibuf-macs.el
@@ -299,5 +299,5 @@ bound to the current value of the filter.
 
 (provide 'ibuf-macs)
 
-;;; arch-tag: 2748edce-82c9-4cd9-9d9d-bd73e43c20c5
+;; arch-tag: 2748edce-82c9-4cd9-9d9d-bd73e43c20c5
 ;;; ibuf-macs.el ends here
diff --git a/lisp/ielm.el b/lisp/ielm.el
index 5e1921e82f4..10c9d4c603c 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -582,5 +582,5 @@ Switches to the buffer `*ielm*', or creates it if it does not exist."
 
 (provide 'ielm)
 
-;;; arch-tag: ef60e4c0-9c4f-4bdb-8402-271313329790
+;; arch-tag: ef60e4c0-9c4f-4bdb-8402-271313329790
 ;;; ielm.el ends here
diff --git a/lisp/iimage.el b/lisp/iimage.el
index d1e42a1a160..73c8b93dd07 100644
--- a/lisp/iimage.el
+++ b/lisp/iimage.el
@@ -144,5 +144,5 @@ With numeric ARG, display the images if and only if ARG is positive."
 
 (provide 'iimage)
 
-;;; arch-tag: f6f8e29a-08f6-4a12-9496-51e67441ce65
+;; arch-tag: f6f8e29a-08f6-4a12-9496-51e67441ce65
 ;;; iimage.el ends here
diff --git a/lisp/image-file.el b/lisp/image-file.el
index b3733a69f1b..e5a07c2796f 100644
--- a/lisp/image-file.el
+++ b/lisp/image-file.el
@@ -204,5 +204,5 @@ Image files are those whose name has an extension in
 
 (provide 'image-file)
 
-;;; arch-tag: 04cafe36-f7ba-4c80-9f47-4cb656520ce1
+;; arch-tag: 04cafe36-f7ba-4c80-9f47-4cb656520ce1
 ;;; image-file.el ends here
diff --git a/lisp/indent.el b/lisp/indent.el
index c46bbd62bee..5a2d884f87e 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -577,5 +577,5 @@ Use \\[edit-tab-stops] to edit them interactively."
 (define-key ctl-x-map "\t" 'indent-rigidly)
 (define-key esc-map "i" 'tab-to-tab-stop)
 
-;;; arch-tag: f402b2a7-e44f-492f-b5b8-38996020b7c3
+;; arch-tag: f402b2a7-e44f-492f-b5b8-38996020b7c3
 ;;; indent.el ends here
diff --git a/lisp/info-look.el b/lisp/info-look.el
index 8aacee3ce79..a5d9754f1a8 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -983,5 +983,5 @@ Return nil if there is nothing appropriate in the buffer near point."
 
 (provide 'info-look)
 
-;;; arch-tag: 0f1e3ea3-32a2-4461-bbab-3cff93539a74
+;; arch-tag: 0f1e3ea3-32a2-4461-bbab-3cff93539a74
 ;;; info-look.el ends here
diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index 2d84b0f529b..261d34db7f5 100644
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -315,5 +315,5 @@ quite a while."
 
 (provide 'info-xref)
 
-;;; arch-tag: 69d4d528-69ed-4cc2-8eb4-c666a0c1d5ac
+;; arch-tag: 69d4d528-69ed-4cc2-8eb4-c666a0c1d5ac
 ;;; info-xref.el ends here
diff --git a/lisp/informat.el b/lisp/informat.el
index 81b05d7b61a..08d649fe9b8 100644
--- a/lisp/informat.el
+++ b/lisp/informat.el
@@ -506,5 +506,5 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
 
 (provide 'informat)
 
-;;; arch-tag: 581c440e-5be1-4f31-b005-2d5824bbf569
+;; arch-tag: 581c440e-5be1-4f31-b005-2d5824bbf569
 ;;; informat.el ends here
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 4b55f399cbe..82c4c434504 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1560,5 +1560,5 @@ See the documentation of `define-ccl-program' for the detail of CCL program."
 
 (provide 'ccl)
 
-;;; arch-tag: 836bcd27-63a1-4a56-b232-1145ecf823fb
+;; arch-tag: 836bcd27-63a1-4a56-b232-1145ecf823fb
 ;;; ccl.el ends here
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 9b63dabef3b..2652c5057b3 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -147,5 +147,5 @@
 
 (provide 'codepage)
 
-;;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0
+;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0
 ;;; codepage.el ends here
diff --git a/lisp/international/cp51932.el b/lisp/international/cp51932.el
index b8d01f20ef8..a648bfcefc4 100644
--- a/lisp/international/cp51932.el
+++ b/lisp/international/cp51932.el
@@ -469,4 +469,4 @@
         map)
   (define-translation-table 'cp51932-encode map))
 
-;;; arch-tag: d21c06e5-a548-4dda-8802-c2922ff19da3
+;; arch-tag: d21c06e5-a548-4dda-8802-c2922ff19da3
diff --git a/lisp/international/eucjp-ms.el b/lisp/international/eucjp-ms.el
index f8fee5bc453..e658d2e41a6 100644
--- a/lisp/international/eucjp-ms.el
+++ b/lisp/international/eucjp-ms.el
@@ -2084,4 +2084,4 @@
         map)
   (define-translation-table 'eucjp-ms-encode map))
 
-;;; arch-tag: c4191096-288a-4f13-9b2a-ee7a1f11eb4a
+;; arch-tag: c4191096-288a-4f13-9b2a-ee7a1f11eb4a
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 7fa9761ef07..0a885513edf 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -952,5 +952,5 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 ;;
 (provide 'fontset)
 
-;;; arch-tag: bb53e629-0234-403c-950e-551e61554849
+;; arch-tag: bb53e629-0234-403c-950e-551e61554849
 ;;; fontset.el ends here
diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el
index bc640b6a967..2d8937ccb0a 100644
--- a/lisp/international/isearch-x.el
+++ b/lisp/international/isearch-x.el
@@ -143,5 +143,5 @@
           (isearch-update)))
     (isearch-process-search-char last-char)))
 
-;;; arch-tag: 1a90a6cf-2cb2-477a-814a-9ff895852822
+;; arch-tag: 1a90a6cf-2cb2-477a-814a-9ff895852822
 ;;; isearch-x.el ends here
diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el
index a35a83f9676..c80ebbffb58 100644
--- a/lisp/international/iso-ascii.el
+++ b/lisp/international/iso-ascii.el
@@ -176,5 +176,5 @@
 
 (provide 'iso-ascii)
 
-;;; arch-tag: 687edf0d-f792-471e-b50e-be805938359a
+;; arch-tag: 687edf0d-f792-471e-b50e-be805938359a
 ;;; iso-ascii.el ends here
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index f516d650813..21150be759f 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -293,5 +293,5 @@ sequence VECTOR.  (VECTOR is normally one character long.)")
 
 (provide 'iso-transl)
 
-;;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61
+;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61
 ;;; iso-transl.el ends here
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el
index 063fdac3406..eaa389aa986 100644
--- a/lisp/international/ja-dic-cnv.el
+++ b/lisp/international/ja-dic-cnv.el
@@ -571,5 +571,5 @@ To get complete usage, invoke:
 ;; coding: iso-2022-7bit
 ;; End:
 
-;;; arch-tag: dec06fb0-8118-45b1-80d7-dc360b6fd3b2
+;; arch-tag: dec06fb0-8118-45b1-80d7-dc360b6fd3b2
 ;;; ja-dic-cnv.el ends here
diff --git a/lisp/international/ja-dic-utl.el b/lisp/international/ja-dic-utl.el
index 40bc8a2e372..8acee1227ba 100644
--- a/lisp/international/ja-dic-utl.el
+++ b/lisp/international/ja-dic-utl.el
@@ -224,5 +224,5 @@ LEIM is available from the same ftp directory as Emacs."))
 ;; coding: iso-2022-7bit
 ;; End:
 
-;;; arch-tag: df2218fa-469c-40f6-bace-7f89a053f9c0
+;; arch-tag: df2218fa-469c-40f6-bace-7f89a053f9c0
 ;;; ja-dic-utl.el ends here
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el
index c64ea9effc9..0840fba720f 100644
--- a/lisp/international/kinsoku.el
+++ b/lisp/international/kinsoku.el
@@ -185,5 +185,5 @@ the context of text formatting."
               (aref (char-category-set (preceding-char)) ?<))
           (kinsoku-shorter linebeg))))
 
-;;; arch-tag: e6b036bc-9e5b-4e9f-a22c-4ed04e37777e
+;; arch-tag: e6b036bc-9e5b-4e9f-a22c-4ed04e37777e
 ;;; kinsoku.el ends here
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index c3d8e3d4707..6af86962273 100644
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -660,5 +660,5 @@ and change the current conversion to the last one in the group."
 ;;
 (provide 'kkc)
 
-;;; arch-tag: 3cbfd56e-74e6-4f60-bb46-ba7c2d366fbf
+;; arch-tag: 3cbfd56e-74e6-4f60-bb46-ba7c2d366fbf
 ;;; kkc.el ends here
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index a2119ad62c3..2e1090cc77a 100644
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -3198,5 +3198,5 @@ isn't changed if the display can render Unicode characters."
 
 (provide 'latin1-disp)
 
-;;; arch-tag: 68b2872e-d667-4f48-8e2f-ec2ba2d29406
+;; arch-tag: 68b2872e-d667-4f48-8e2f-ec2ba2d29406
 ;;; latin1-disp.el ends here
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 68945984b1a..19057f57b13 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1297,5 +1297,5 @@ character)")
 
 (provide 'mule-diag)
 
-;;; arch-tag: cd3b607c-2893-45a0-a4fa-a6535754dbee
+;; arch-tag: cd3b607c-2893-45a0-a4fa-a6535754dbee
 ;;; mule-diag.el ends here
diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el
index 8773c911849..90822bfb5a7 100644
--- a/lisp/international/ogonek.el
+++ b/lisp/international/ogonek.el
@@ -501,5 +501,5 @@ followed by a non-Polish character, that is one not listed in the
 
 (provide 'ogonek)
 
-;;; arch-tag: 672d7744-28ac-412b-965e-06a27e50d1d7
+;; arch-tag: 672d7744-28ac-412b-965e-06a27e50d1d7
 ;;; ogonek.el ends here
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 94cd89eddde..4a498a1cf82 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -1207,5 +1207,5 @@ to store generated Quail packages."
 ;; coding: iso-2022-7bit
 ;; End:
 
-;;; arch-tag: 8ad478b2-a985-4da2-b47f-d8ee5d7c24a3
+;; arch-tag: 8ad478b2-a985-4da2-b47f-d8ee5d7c24a3
 ;;; titdic-cnv.el ends here
diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el
index e2fe6949cae..054e9be552d 100644
--- a/lisp/international/utf-7.el
+++ b/lisp/international/utf-7.el
@@ -126,5 +126,5 @@ ESC and SKIP-CHARS are adjusted for the normal and IMAP versions."
 
 (provide 'utf-7)
 
-;;; arch-tag: 975ee403-90a4-4286-97d2-4ed1323f4ef9
+;; arch-tag: 975ee403-90a4-4286-97d2-4ed1323f4ef9
 ;;; utf-7.el ends here
diff --git a/lisp/isearchb.el b/lisp/isearchb.el
index b6e2f6db8df..073841ae222 100644
--- a/lisp/isearchb.el
+++ b/lisp/isearchb.el
@@ -224,5 +224,5 @@ accessed via isearchb."
 
 (provide 'isearchb)
 
-;;; arch-tag: 9277523f-a624-4aa0-ba10-b89eeb7b6e99
+;; arch-tag: 9277523f-a624-4aa0-ba10-b89eeb7b6e99
 ;;; isearchb.el ends here
diff --git a/lisp/kermit.el b/lisp/kermit.el
index cfd575d4062..f8cc63d6694 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -150,5 +150,5 @@ command `kermit | tr -d '\\015''."
 
 (provide 'kermit)
 
-;;; arch-tag: 6633215d-6c47-4e66-9f27-16fba02a8dce
+;; arch-tag: 6633215d-6c47-4e66-9f27-16fba02a8dce
 ;;; kermit.el ends here
diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index 12a162c4e79..2b0a5f11f3f 100644
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -1268,5 +1268,5 @@ To customize possible responses, change the \"bindings\" in `kmacro-step-edit-ma
 
 (provide 'kmacro)
 
-;;; arch-tag: d3fe0b24-ae41-47de-a4d6-41a77d5559f0
+;; arch-tag: d3fe0b24-ae41-47de-a4d6-41a77d5559f0
 ;;; kmacro.el ends here
diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index d46487c4b3a..ecc8d82707f 100644
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -193,5 +193,5 @@ Return the length of resulting text."
 ;;
 (provide 'china-util)
 
-;;; arch-tag: 5a47b084-b9ac-420e-8191-70c5b3a14836
+;; arch-tag: 5a47b084-b9ac-420e-8191-70c5b3a14836
 ;;; china-util.el ends here
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 31f87622ea9..fd393686876 100644
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -268,5 +268,5 @@ converted to CNS)."))
 
 (provide 'chinese)
 
-;;; arch-tag: b82fcf7a-84f6-4e0b-b38c-1742dac0e09f
+;; arch-tag: b82fcf7a-84f6-4e0b-b38c-1742dac0e09f
 ;;; chinese.el ends here
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 2b16e1e631f..b93ea919eb5 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -194,5 +194,5 @@ If the argument is nil, we return the display table to its standard state."
 ;; coding: iso-2022-7bit
 ;; End:
 
-;;; arch-tag: f6d9dd5d-685c-45d6-a5d8-1e2178228b7e
+;; arch-tag: f6d9dd5d-685c-45d6-a5d8-1e2178228b7e
 ;;; cyril-util.el ends here
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 34b90f86c9d..03e8a1a601f 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -281,5 +281,5 @@ Support for Russian using koi8-r and the russian-computer input method.")
 
 (provide 'cyrillic)
 
-;;; arch-tag: bda71ae0-ba41-4cb6-a6e0-1dff542313d3
+;; arch-tag: bda71ae0-ba41-4cb6-a6e0-1dff542313d3
 ;;; cyrillic.el ends here
diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 9f92fab556c..570e008e9b5 100644
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -47,5 +47,5 @@ and selects the Czech tutorial."))
 
 (provide 'czech)
 
-;;; arch-tag: 45ac0d83-ca13-4b5e-9e82-821e44080c24
+;; arch-tag: 45ac0d83-ca13-4b5e-9e82-821e44080c24
 ;;; czech.el ends here
diff --git a/lisp/language/english.el b/lisp/language/english.el
index 92291ce7aa4..c17b3377d93 100644
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -69,5 +69,5 @@ Nothing special is needed to handle English.")
 (set-language-info-alist
  "ASCII" (cdr (assoc "English" language-info-alist)))
 
-;;; arch-tag: e440bdb0-91b0-4fb4-ae38-425780f8f745
+;; arch-tag: e440bdb0-91b0-4fb4-ae38-425780f8f745
 ;;; english.el ends here
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index a2187bdd669..55dca98e835 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -2078,5 +2078,5 @@ mark."
 
 ;;; ethio-util.el ends here
 
-;;; arch-tag: c8feb3d6-39bf-4b0a-b6ef-26f03fbc8140
+;; arch-tag: c8feb3d6-39bf-4b0a-b6ef-26f03fbc8140
 ;;; ethio-util.el ends here
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 0cbb30fe911..1ed9f7026d8 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -87,5 +87,5 @@
 
 (provide 'ethiopic)
 
-;;; arch-tag: e81329d9-1286-43ba-92fd-54ce5c7b213c
+;; arch-tag: e81329d9-1286-43ba-92fd-54ce5c7b213c
 ;;; ethiopic.el ends here
diff --git a/lisp/language/european.el b/lisp/language/european.el
index da3ae2b44ef..769d0fa937e 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -755,5 +755,5 @@ or nil if no characters are composed."
 
 (provide 'european)
 
-;;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2
+;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2
 ;;; european.el ends here
diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el
index 983a8921e77..2c4c2db97d5 100644
--- a/lisp/language/georgian.el
+++ b/lisp/language/georgian.el
@@ -50,5 +50,5 @@
 
 (provide 'georgian)
 
-;;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5
+;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5
 ;;; georgian.el ends here
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index e193b955d0c..4f6d95980fe 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -85,5 +85,5 @@
 
 (provide 'greek)
 
-;;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410
+;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410
 ;;; greek.el ends here
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 51910b16d92..343d90eb6a3 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -89,5 +89,5 @@ Right-to-left writing is not yet supported.")))
 
 (provide 'hebrew)
 
-;;; arch-tag: 3ca04f32-3f1e-498e-af46-8267498ba5d9
+;; arch-tag: 3ca04f32-3f1e-498e-af46-8267498ba5d9
 ;;; hebrew.el ends here
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index f96cf2a168b..b50bcf3dc73 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -1224,5 +1224,5 @@ Returns new end position."
 
 (provide 'ind-util)
 
-;;; arch-tag: 59aacd71-46c2-4cb3-bb26-e12bbad55545
+;; arch-tag: 59aacd71-46c2-4cb3-bb26-e12bbad55545
 ;;; ind-util.el ends here
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index fdd903376c5..87e973063a1 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -151,5 +151,5 @@ South Indian language Malayalam is supported in this language environment."))
 
 (provide 'indian)
 
-;;; arch-tag: 83aa8fc7-7ee2-4364-a6e5-498f5e3b8c2f
+;; arch-tag: 83aa8fc7-7ee2-4364-a6e5-498f5e3b8c2f
 ;;; indian.el ends here
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 005fc266283..ac6f5f9fc7f 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -324,5 +324,5 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading."
 ;;
 (provide 'japan-util)
 
-;;; arch-tag: b579595c-c9ad-4b57-9314-98cd8b214f89
+;; arch-tag: b579595c-c9ad-4b57-9314-98cd8b214f89
 ;;; japan-util.el ends here
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index d1ea493bc2b..2d7a3e41bcc 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -253,5 +253,5 @@ eucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>."
 
 (provide 'japanese)
 
-;;; arch-tag: 450f5537-9d53-4d5e-b731-4cf116d8cbc9
+;; arch-tag: 450f5537-9d53-4d5e-b731-4cf116d8cbc9
 ;;; japanese.el ends here
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index ce5b0b77403..5b0804abcb4 100644
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -140,5 +140,5 @@
 ;;
 (provide 'korea-util)
 
-;;; arch-tag: b17d0981-05da-4577-99f8-1db87fff8b44
+;; arch-tag: b17d0981-05da-4577-99f8-1db87fff8b44
 ;;; korea-util.el ends here
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index c6971662b61..725bf23c19e 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -79,5 +79,5 @@ The following key bindings are available while using Korean input methods:
 
 (provide 'korean)
 
-;;; arch-tag: ca7c7348-5ca3-4623-887a-7fd33d725d0e
+;; arch-tag: ca7c7348-5ca3-4623-887a-7fd33d725d0e
 ;;; korean.el ends here
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 82e413bae04..83554582929 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -520,5 +520,5 @@ syllable.  In that case, FROM and TO are indexes to STR."
 ;;
 (provide 'lao-util)
 
-;;; arch-tag: 1f828781-3cb8-4695-88af-8f33222338ce
+;; arch-tag: 1f828781-3cb8-4695-88af-8f33222338ce
 ;;; lao-util.el ends here
diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index e79b20a4438..84e75506aa7 100644
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -53,5 +53,5 @@
 
 (provide 'lao)
 
-;;; arch-tag: ba540fd9-6352-4449-a9cd-669afd21fa57
+;; arch-tag: ba540fd9-6352-4449-a9cd-669afd21fa57
 ;;; lao.el ends here
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 65af2e4dc35..04132cfee00 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -55,5 +55,5 @@ and Italian.")))
 
 (provide 'misc-lang)
 
-;;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074
+;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074
 ;;; misc-lang.el ends here
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 8738253d01d..8b4ef3e3b04 100644
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -54,5 +54,5 @@ An environment for generic Latin-10 encoding is also available."))
 
 (provide 'romanian)
 
-;;; arch-tag: a0bf93ee-2f02-4678-a477-c08acc35366b
+;; arch-tag: a0bf93ee-2f02-4678-a477-c08acc35366b
 ;;; romanian.el ends here
diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
index f1bf0c3f453..8e1a1bcaf3a 100644
--- a/lisp/language/slovak.el
+++ b/lisp/language/slovak.el
@@ -48,5 +48,5 @@ and selects the Slovak tutorial."))
 
 (provide 'slovak)
 
-;;; arch-tag: 1bae098a-33b2-4426-8c29-59e44fe05484
+;; arch-tag: 1bae098a-33b2-4426-8c29-59e44fe05484
 ;;; slovak.el ends here
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index be5ce10ad08..4b37eeceb4a 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -283,5 +283,5 @@ The commands affected are \\[forward-word], \\[backward-word], \\[kill-word], \\
 ;;
 (provide 'thai-util)
 
-;;; arch-tag: 59425d6a-8cf9-4e06-a6ab-8ab7dc7a7a97
+;; arch-tag: 59425d6a-8cf9-4e06-a6ab-8ab7dc7a7a97
 ;;; thai-util.el ends here
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 2ee1a8f8271..532cd2f96c2 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -85,5 +85,5 @@ This is the same as `thai-tis620' with the addition of no-break-space."
 
 (provide 'thai)
 
-;;; arch-tag: c7eb0e91-4db0-4619-81f8-8762e7d51e15
+;; arch-tag: c7eb0e91-4db0-4619-81f8-8762e7d51e15
 ;;; thai.el ends here
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 5dc948ed90e..8063c56c087 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -433,5 +433,5 @@ before writing buffer in Unicode.  See also
 
 (provide 'tibet-util)
 
-;;; arch-tag: 7a7333e8-1584-446c-b39c-a02b9def265d
+;; arch-tag: 7a7333e8-1584-446c-b39c-a02b9def265d
 ;;; tibet-util.el ends here
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index 4de0ab96ae2..f094401f54b 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -611,5 +611,5 @@ This also matches some punctuation characters which need conversion.")
 
 (provide 'tibetan)
 
-;;; arch-tag: 8d37c8d7-f95d-450f-9ec2-819e61fc79a7
+;; arch-tag: 8d37c8d7-f95d-450f-9ec2-819e61fc79a7
 ;;; tibetan.el ends here
diff --git a/lisp/language/utf-8-lang.el b/lisp/language/utf-8-lang.el
index 7b106ab9248..7cddeccc1c6 100644
--- a/lisp/language/utf-8-lang.el
+++ b/lisp/language/utf-8-lang.el
@@ -53,5 +53,5 @@ encoded in UTF-8."))
 
 (provide 'utf-8-lang)
 
-;;; arch-tag: dfa339e1-296f-4b1e-9fe8-2b65279ec813
+;; arch-tag: dfa339e1-296f-4b1e-9fe8-2b65279ec813
 ;;; utf-8-lang.el ends here
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index 16341a9af2d..b77f5ea2944 100644
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -298,5 +298,5 @@ positions (integers or markers) specifying the stretch of the region."
 ;;;
 (provide 'viet-util)
 
-;;; arch-tag: 082a4d3b-168f-45b4-b3e1-82bfa1b5a194
+;; arch-tag: 082a4d3b-168f-45b4-b3e1-82bfa1b5a194
 ;;; viet-util.el ends here
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 2049f030590..5d99e579156 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -112,5 +112,5 @@ Telex, VIQR is the default setting.")))
 
 (provide 'vietnamese)
 
-;;; arch-tag: 5bd4f1aa-2d4e-4f33-b7d8-0679c6a19ee6
+;; arch-tag: 5bd4f1aa-2d4e-4f33-b7d8-0679c6a19ee6
 ;;; vietnamese.el ends here
diff --git a/lisp/ledit.el b/lisp/ledit.el
index 9981b81e838..d15b3f6edd8 100644
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -158,5 +158,5 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
 
 (provide 'ledit)
 
-;;; arch-tag: f0f1ca13-8d31-478c-ae1b-b448c55a8faf
+;; arch-tag: f0f1ca13-8d31-478c-ae1b-b448c55a8faf
 ;;; ledit.el ends here
diff --git a/lisp/locate.el b/lisp/locate.el
index 2522add1742..416ef3a468b 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -699,5 +699,5 @@ the database on the command line."
 
 (provide 'locate)
 
-;;; arch-tag: 60c4d098-b5d5-4b3c-a3e0-51a2e9f43898
+;; arch-tag: 60c4d098-b5d5-4b3c-a3e0-51a2e9f43898
 ;;; locate.el ends here
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 9e9de8c4bb9..45914ce5a70 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -328,5 +328,5 @@ The characters tab, linefeed, space, return and formfeed are not affected."
 
 (provide 'lpr)
 
-;;; arch-tag: 21c3f821-ebec-4ca9-ac67-a81e4b75c62a
+;; arch-tag: 21c3f821-ebec-4ca9-ac67-a81e4b75c62a
 ;;; lpr.el ends here
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 854f47a59c3..2ce3c9dfd6b 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -628,5 +628,5 @@ All ls time options, namely c, t and u, are handled."
 
 (provide 'ls-lisp)
 
-;;; arch-tag: e55f399b-05ec-425c-a6d5-f5e349c35ab4
+;; arch-tag: e55f399b-05ec-425c-a6d5-f5e349c35ab4
 ;;; ls-lisp.el ends here
diff --git a/lisp/macros.el b/lisp/macros.el
index 23d2738af0d..313d46f48b3 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -316,5 +316,5 @@ and then select the region of un-tablified names and use
 
 (provide 'macros)
 
-;;; arch-tag: 346ed1a5-1220-4bc8-b533-961ee704361f
+;; arch-tag: 346ed1a5-1220-4bc8-b533-961ee704361f
 ;;; macros.el ends here
diff --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el
index f8b869a7bf1..d6045d03039 100644
--- a/lisp/mail/binhex.el
+++ b/lisp/mail/binhex.el
@@ -329,5 +329,5 @@ If HEADER-ONLY is non-nil only decode header and return filename."
 
 (provide 'binhex)
 
-;;; arch-tag: 8476badd-1e76-4f1d-a640-f9a38c72eed8
+;; arch-tag: 8476badd-1e76-4f1d-a640-f9a38c72eed8
 ;;; binhex.el ends here
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index d58165519e9..53bab654f89 100644
--- a/lisp/mail/blessmail.el
+++ b/lisp/mail/blessmail.el
@@ -67,5 +67,5 @@
 (write-region (point-min) (point-max) "blessmail")
 (kill-emacs)
 
-;;; arch-tag: c3329fe2-f945-41a9-8b00-b4b038ff182f
+;; arch-tag: c3329fe2-f945-41a9-8b00-b4b038ff182f
 ;;; blessmail.el ends here
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 9b52b1dcbbd..dfc14c02164 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -2662,5 +2662,5 @@ been weeded out."
 
 (provide 'feedmail)
 
-;;; arch-tag: ec27b380-11c0-4dfd-8436-f636cf2bb992
+;; arch-tag: ec27b380-11c0-4dfd-8436-f636cf2bb992
 ;;; feedmail.el ends here
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 09f7e258616..8edaa1a1f1a 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -766,5 +766,5 @@ key		binding
 
 (provide 'footnote)
 
-;;; arch-tag: 9bcfb6d7-2161-4caf-8793-700f62400398
+;; arch-tag: 9bcfb6d7-2161-4caf-8793-700f62400398
 ;;; footnote.el ends here
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el
index 5b292961b98..a6d148c05a5 100644
--- a/lisp/mail/hashcash.el
+++ b/lisp/mail/hashcash.el
@@ -377,4 +377,4 @@ Prefix arg sets default accept amount temporarily."
 
 (provide 'hashcash)
 
-;;; arch-tag: 0e7fe983-a124-4392-9788-0dbcbd2c4d62
+;; arch-tag: 0e7fe983-a124-4392-9788-0dbcbd2c4d62
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index c423a7fb82f..8de182f308c 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -2175,5 +2175,5 @@ place.  It affects how `mail-extract-address-components' works."
 
 (provide 'mail-extr)
 
-;;; arch-tag: 7785fade-1073-4ed6-b4f6-28db34a7982d
+;; arch-tag: 7785fade-1073-4ed6-b4f6-28db34a7982d
 ;;; mail-extr.el ends here
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index 436520bdbfb..130e0bf4d8f 100644
--- a/lisp/mail/mail-hist.el
+++ b/lisp/mail/mail-hist.el
@@ -294,5 +294,5 @@ received mail."
 
 (provide 'mail-hist)
 
-;;; arch-tag: 9ff9a07c-9dca-482d-ba87-54f42778559d
+;; arch-tag: 9ff9a07c-9dca-482d-ba87-54f42778559d
 ;;; mail-hist.el ends here
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index f9f9ad80895..22ae570a69e 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -371,5 +371,5 @@ If 4th arg LIST is non-nil, return a list of all such fields."
 
 (provide 'mail-utils)
 
-;;; arch-tag: b24aec2f-fd65-4ceb-9e39-3cc2827036fd
+;; arch-tag: b24aec2f-fd65-4ceb-9e39-3cc2827036fd
 ;;; mail-utils.el ends here
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index a40a009892a..df1814d1341 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -553,5 +553,5 @@ See `mail-directory-stream'."
 
 (provide 'mailalias)
 
-;;; arch-tag: 1d6a0f87-eb34-4d45-8816-60c1b952cf46
+;; arch-tag: 1d6a0f87-eb34-4d45-8816-60c1b952cf46
 ;;; mailalias.el ends here
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index b225f4de396..fbb69a8f490 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -192,5 +192,5 @@ A key of nil has as its value a list of defaulted headers to ignore."
 
 (provide 'mailheader)
 
-;;; arch-tag: 6e7aa221-80b5-4b3d-b46f-fd66ab567be0
+;; arch-tag: 6e7aa221-80b5-4b3d-b46f-fd66ab567be0
 ;;; mailheader.el ends here
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index 8d57de6ede7..6423cd02b72 100644
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -105,5 +105,5 @@ site-init."
 
 (provide 'mailpost)
 
-;;; arch-tag: 1f8ca085-60a6-4eac-8efb-69ffec2fa124
+;; arch-tag: 1f8ca085-60a6-4eac-8efb-69ffec2fa124
 ;;; mailpost.el ends here
diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el
index 69eab5b8445..4b2e50a839b 100644
--- a/lisp/mail/metamail.el
+++ b/lisp/mail/metamail.el
@@ -193,5 +193,5 @@ redisplayed as output is inserted."
 
 (provide 'metamail)
 
-;;; arch-tag: 52c0cb6f-d800-4776-9789-f0275cb5490e
+;; arch-tag: 52c0cb6f-d800-4776-9789-f0275cb5490e
 ;;; metamail.el ends here
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index 142bbd7b1fb..eabae65c20c 100644
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -418,5 +418,5 @@ nil."
 
 (provide 'mspools)
 
-;;; arch-tag: 8990b3ee-68c8-4892-98f1-51a735c8bac6
+;; arch-tag: 8990b3ee-68c8-4892-98f1-51a735c8bac6
 ;;; mspools.el ends here
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index a273bf2b62e..97220fa6005 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -412,5 +412,5 @@ mail-sending package is used for editing and sending the message."
 
 (provide 'reporter)
 
-;;; arch-tag: 33612ff4-fbbc-4be2-b183-560ce9e0199b
+;; arch-tag: 33612ff4-fbbc-4be2-b183-560ce9e0199b
 ;;; reporter.el ends here
diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el
index acf9d843c97..d64dffd2416 100644
--- a/lisp/mail/rfc2368.el
+++ b/lisp/mail/rfc2368.el
@@ -138,5 +138,5 @@ calling this function."
 
 (provide 'rfc2368)
 
-;;; arch-tag: ea804934-ad96-4f69-957b-857a76e4fd95
+;; arch-tag: ea804934-ad96-4f69-957b-857a76e4fd95
 ;;; rfc2368.el ends here
diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index c641253665b..a06e8dceee0 100644
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -319,5 +319,5 @@
 
 (provide 'rfc822)
 
-;;; arch-tag: 5d388a24-e173-40fb-9b8e-85269de44b37
+;; arch-tag: 5d388a24-e173-40fb-9b8e-85269de44b37
 ;;; rfc822.el ends here
diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el
index 339abbebbf3..48bf7adb159 100644
--- a/lisp/mail/rmail-spam-filter.el
+++ b/lisp/mail/rmail-spam-filter.el
@@ -644,5 +644,5 @@ automatically, no user input is required."
 
 (provide 'rmail-spam-filter)
 
-;;; arch-tag: 03e1d45d-b72f-4dd7-8f04-e7fd78249746
+;; arch-tag: 03e1d45d-b72f-4dd7-8f04-e7fd78249746
 ;;; rmail-spam-fitler ends here
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e36b9885841..30cb10d3dd0 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4284,5 +4284,5 @@ encoded string (and the same mask) will decode the string."
 
 (provide 'rmail)
 
-;;; arch-tag: cff0a950-57fe-4f73-a86e-91ff75afd06c
+;; arch-tag: cff0a950-57fe-4f73-a86e-91ff75afd06c
 ;;; rmail.el ends here
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 8ee8e0c06eb..955786353e9 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -161,5 +161,5 @@ This functions runs the normal hook `rmail-edit-mode-hook'.
 
 (provide 'rmailedit)
 
-;;; arch-tag: 93c22709-a14a-46c1-ab91-52c3f5a0ec12
+;; arch-tag: 93c22709-a14a-46c1-ab91-52c3f5a0ec12
 ;;; rmailedit.el ends here
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index cc92b53c1d3..e4a995a3a94 100644
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -288,5 +288,5 @@ With prefix argument N moves forward N messages with these labels."
                               (- (buffer-size) omax)))))
     keyword))
 
-;;; arch-tag: b26b3392-99ca-4e1d-933a-dab59b04e9a8
+;; arch-tag: b26b3392-99ca-4e1d-933a-dab59b04e9a8
 ;;; rmailkwd.el ends here
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el
index eb21e9d71ad..c5c9dff6a45 100644
--- a/lisp/mail/rmailmsc.el
+++ b/lisp/mail/rmailmsc.el
@@ -65,5 +65,5 @@ If FILE-NAME is empty, remove any existing inbox list."
   (setq rmail-inbox-list (rmail-parse-file-inboxes))
   (rmail-show-message rmail-current-message))
 
-;;; arch-tag: 74ed1d50-2c25-4cbd-b5ae-d29ed8aba6e4
+;; arch-tag: 74ed1d50-2c25-4cbd-b5ae-d29ed8aba6e4
 ;;; rmailmsc.el ends here
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 482091f716e..e67842f1d94 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -418,5 +418,5 @@ FILE-NAME defaults, interactively, from the Subject field of the message."
   (if rmail-delete-after-output
       (rmail-delete-forward)))
 
-;;; arch-tag: 447117c6-1a9a-4b88-aa43-3101b043e3a4
+;; arch-tag: 447117c6-1a9a-4b88-aa43-3101b043e3a4
 ;;; rmailout.el ends here
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index abb79ed5d04..34f0b14df60 100644
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -248,5 +248,5 @@ Arguments are MSG and FIELD."
 
 (provide 'rmailsort)
 
-;;; arch-tag: 0d90896b-0c35-46ac-b240-38be5ada2360
+;; arch-tag: 0d90896b-0c35-46ac-b240-38be5ada2360
 ;;; rmailsort.el ends here
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 14cb278102b..727da4e5856 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1704,5 +1704,5 @@ KEYWORDS is a comma-separated list of labels."
 
 (provide 'rmailsum)
 
-;;; arch-tag: 556079ee-75c1-47f5-9884-2e0a0bc6c5a1
+;; arch-tag: 556079ee-75c1-47f5-9884-2e0a0bc6c5a1
 ;;; rmailsum.el ends here
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 07df9d0afde..c4e31972fe5 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -1025,5 +1025,5 @@ many continuation lines."
 
 (provide 'smtpmail)
 
-;;; arch-tag: a76992df-6d71-43b7-9e72-4bacc6c05466
+;; arch-tag: a76992df-6d71-43b7-9e72-4bacc6c05466
 ;;; smtpmail.el ends here
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 39a1cecd449..f8f52c03bc2 100644
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -401,5 +401,5 @@ address, and postmaster of the mail relay used."
 
 (provide 'uce)
 
-;;; arch-tag: 44b68c87-9b29-47bd-822c-3feee3883221
+;; arch-tag: 44b68c87-9b29-47bd-822c-3feee3883221
 ;;; uce.el ends here
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index d7a7c7b78a1..d6eb5d6d4b5 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -317,5 +317,5 @@ following the containing message."
 
 (provide 'undigest)
 
-;;; arch-tag: 3a28b9fb-c1f5-43ef-9278-285f3e4b874d
+;; arch-tag: 3a28b9fb-c1f5-43ef-9278-285f3e4b874d
 ;;; undigest.el ends here
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index d1989a85862..404da44f21c 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -229,4 +229,4 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
 
 ;;; unrmail.el ends here
 
-;;; arch-tag: 14c6290d-60b2-456f-8909-5c2387de6acb
+;; arch-tag: 14c6290d-60b2-456f-8909-5c2387de6acb
diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el
index ca42eb5117b..49a4f0f0a0f 100644
--- a/lisp/mail/vms-pmail.el
+++ b/lisp/mail/vms-pmail.el
@@ -121,5 +121,5 @@ If neither file exists, fails quietly."
 
 (provide 'vms-pmail)
 
-;;; arch-tag: 336850fc-7812-4663-8e4d-b9c13f47dce1
+;; arch-tag: 336850fc-7812-4663-8e4d-b9c13f47dce1
 ;;; vms-pmail.el ends here
diff --git a/lisp/master.el b/lisp/master.el
index 75e06c49835..5633314eabd 100644
--- a/lisp/master.el
+++ b/lisp/master.el
@@ -161,5 +161,5 @@ See `recenter'."
 
 (provide 'master)
 
-;;; arch-tag: dca08daa-8127-45ae-b77e-b135160dce98
+;; arch-tag: dca08daa-8127-45ae-b77e-b135160dce98
 ;;; master.el ends here
diff --git a/lisp/md4.el b/lisp/md4.el
index 13435097b71..194a119b5a1 100644
--- a/lisp/md4.el
+++ b/lisp/md4.el
@@ -224,5 +224,5 @@ integer is represented as a pair of two 16 bits integers (cons high low)."
 
 (provide 'md4)
 
-;;; arch-tag: 99d706fe-089b-42ea-9507-67ae41091e6e
+;; arch-tag: 99d706fe-089b-42ea-9507-67ae41091e6e
 ;;; md4.el ends here
diff --git a/lisp/midnight.el b/lisp/midnight.el
index dea8b3fe2df..55c02cba269 100644
--- a/lisp/midnight.el
+++ b/lisp/midnight.el
@@ -235,5 +235,5 @@ first argument to `run-at-time'."
 
 (provide 'midnight)
 
-;;; arch-tag: a5979be9-2890-46a3-ba84-791f0a4a6e80
+;; arch-tag: a5979be9-2890-46a3-ba84-791f0a4a6e80
 ;;; midnight.el ends here
diff --git a/lisp/misc.el b/lisp/misc.el
index c4ea7153927..019fb00caa4 100644
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -110,5 +110,5 @@ With argument, do this that many times."
 
 (provide 'misc)
 
-;;; arch-tag: 908f7884-c19e-4388-920c-9cfa425e449b
+;; arch-tag: 908f7884-c19e-4388-920c-9cfa425e449b
 ;;; misc.el ends here
diff --git a/lisp/mouse-copy.el b/lisp/mouse-copy.el
index 8f9d0aedfdb..67c94992983 100644
--- a/lisp/mouse-copy.el
+++ b/lisp/mouse-copy.el
@@ -225,5 +225,5 @@ by johnh@ficus.cs.ucla.edu."
 
 (provide 'mouse-copy)
 
-;;; arch-tag: 3d50293b-c089-4273-b412-4fc96a5f26ff
+;; arch-tag: 3d50293b-c089-4273-b412-4fc96a5f26ff
 ;;; mouse-copy.el ends here
diff --git a/lisp/mouse-drag.el b/lisp/mouse-drag.el
index 58d97ca4fc9..b553a99ec35 100644
--- a/lisp/mouse-drag.el
+++ b/lisp/mouse-drag.el
@@ -342,5 +342,5 @@ To test this function, evaluate:
 
 (provide 'mouse-drag)
 
-;;; arch-tag: e47354ff-82f5-42c4-b3dc-88dd9c04b770
+;; arch-tag: e47354ff-82f5-42c4-b3dc-88dd9c04b770
 ;;; mouse-drag.el ends here
diff --git a/lisp/net/dig.el b/lisp/net/dig.el
index 16755439bd8..c271a8147b4 100644
--- a/lisp/net/dig.el
+++ b/lisp/net/dig.el
@@ -192,5 +192,5 @@ nil for domain/class/type queries that results in no data."
 
 (provide 'dig)
 
-;;; arch-tag: 1d61726e-9400-4013-9ae7-4035e0c7f7d6
+;; arch-tag: 1d61726e-9400-4013-9ae7-4035e0c7f7d6
 ;;; dig.el ends here
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index 0ba4d14ce02..0beb15f7365 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -365,5 +365,5 @@ display a button."
   "Display a button for the JPEG DATA."
   (eudc-bob-display-jpeg data nil))
 
-;;; arch-tag: 8f1853df-c9b6-4c5a-bdb1-d94dbd651fb3
+;; arch-tag: 8f1853df-c9b6-4c5a-bdb1-d94dbd651fb3
 ;;; eudc-bob.el ends here
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index 146e4d19626..73047c874cc 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -221,5 +221,5 @@ This function can only be called from a directory query result buffer."
        (overlay-get (car (overlays-at (point))) 'eudc-record)
        (eudc-insert-record-at-point-into-bbdb)))
 
-;;; arch-tag: 8cbda7dc-3163-47e6-921c-6ec5083df2d7
+;; arch-tag: 8cbda7dc-3163-47e6-921c-6ec5083df2d7
 ;;; eudc-export.el ends here
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 72be4c49e4f..fac455e46bf 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -196,5 +196,5 @@ These are the special commands of this mode:
     ""
     eudc-hotlist-menu))
 
-;;; arch-tag: 9b633ab3-6a6e-4b46-b12e-d96739a7e0e8
+;; arch-tag: 9b633ab3-6a6e-4b46-b12e-d96739a7e0e8
 ;;; eudc-hotlist.el ends here
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 97c103fdfcb..5f277d9f169 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -407,5 +407,5 @@ Otherwise records must match queries exactly."
 
 (provide 'eudc-vars)
 
-;;; arch-tag: 80050575-b838-4246-8ebc-b2d7c5a2e482
+;; arch-tag: 80050575-b838-4246-8ebc-b2d7c5a2e482
 ;;; eudc-vars.el ends here
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index b69f947cbd5..9fc5d0b2f27 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1297,5 +1297,5 @@ This does nothing except loading eudc by autoload side-effect."
 
 (provide 'eudc)
 
-;;; arch-tag: e18872b6-db83-400b-869d-be54e9a4160c
+;; arch-tag: e18872b6-db83-400b-869d-be54e9a4160c
 ;;; eudc.el ends here
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index 23332e6a273..48fa6f00aea 100644
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -244,5 +244,5 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
 
 (provide 'eudcb-bbdb)
 
-;;; arch-tag: 38276208-75de-4dbc-ba6f-8db684c32e0a
+;; arch-tag: 38276208-75de-4dbc-ba6f-8db684c32e0a
 ;;; eudcb-bbdb.el ends here
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index e2d393f711a..113af2619ea 100644
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -209,5 +209,5 @@ attribute names are returned. Default to `person'"
 
 (provide 'eudcb-ldap)
 
-;;; arch-tag: 0f254dc0-7378-4fd4-ae26-18666184e96b
+;; arch-tag: 0f254dc0-7378-4fd4-ae26-18666184e96b
 ;;; eudcb-ldap.el ends here
diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el
index 184fdefafb0..cb63c0ba55d 100644
--- a/lisp/net/eudcb-ph.el
+++ b/lisp/net/eudcb-ph.el
@@ -245,5 +245,5 @@ depending on RETURN-RESPONSE."
 
 (provide 'eudcb-ph)
 
-;;; arch-tag: 4365bbf5-af20-453e-b5b6-2e7118ebfcdb
+;; arch-tag: 4365bbf5-af20-453e-b5b6-2e7118ebfcdb
 ;;; eudcb-ph.el ends here
diff --git a/lisp/net/hmac-def.el b/lisp/net/hmac-def.el
index 6b7cb7ddecc..89e8214626c 100644
--- a/lisp/net/hmac-def.el
+++ b/lisp/net/hmac-def.el
@@ -82,5 +82,5 @@ If BIT is non-nil, truncate output to specified bits."
 
 (provide 'hmac-def)
 
-;;; arch-tag: 645adcef-b835-4900-a10a-11f636c982b9
+;; arch-tag: 645adcef-b835-4900-a10a-11f636c982b9
 ;;; hmac-def.el ends here
diff --git a/lisp/net/hmac-md5.el b/lisp/net/hmac-md5.el
index 50a2d2742b7..914364780e9 100644
--- a/lisp/net/hmac-md5.el
+++ b/lisp/net/hmac-md5.el
@@ -81,5 +81,5 @@
 
 (provide 'hmac-md5)
 
-;;; arch-tag: 0ab3f4f6-3d4b-4167-a9fa-635b7fed7f27
+;; arch-tag: 0ab3f4f6-3d4b-4167-a9fa-635b7fed7f27
 ;;; hmac-md5.el ends here
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index 9e3d0a966a9..2ae3ce555e4 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -3005,5 +3005,5 @@ Return nil if no complete line has arrived."
 
 (provide 'imap)
 
-;;; arch-tag: 27369ed6-33e4-482f-96f1-8bb906ba70f7
+;; arch-tag: 27369ed6-33e4-482f-96f1-8bb906ba70f7
 ;;; imap.el ends here
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index d0bbe32c65a..42535f6363f 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -619,5 +619,5 @@ an alist of attribute/value pairs."
 
 (provide 'ldap)
 
-;;; arch-tag: 47913a76-6155-42e6-ac58-6d28b5d50eb0
+;; arch-tag: 47913a76-6155-42e6-ac58-6d28b5d50eb0
 ;;; ldap.el ends here
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index a34fe0815c3..f64d79cfd12 100644
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -849,5 +849,5 @@ from SEARCH-STRING.  With argument, prompt for whois server."
 
 (provide 'net-utils)
 
-;;; arch-tag: 97119e91-9edb-4376-838b-bf7058fa1314
+;; arch-tag: 97119e91-9edb-4376-838b-bf7058fa1314
 ;;; net-utils.el ends here
diff --git a/lisp/net/netrc.el b/lisp/net/netrc.el
index de82ae7473d..e2fbd7430e4 100644
--- a/lisp/net/netrc.el
+++ b/lisp/net/netrc.el
@@ -210,5 +210,5 @@ MODE can be \"login\" or \"password\", suitable for passing to
 
 (provide 'netrc)
 
-;;; arch-tag: af9929cc-2d12-482f-936e-eb4366f9fa55
+;; arch-tag: af9929cc-2d12-482f-936e-eb4366f9fa55
 ;;; netrc.el ends here
diff --git a/lisp/net/ntlm.el b/lisp/net/ntlm.el
index 2418338228b..3479851732c 100644
--- a/lisp/net/ntlm.el
+++ b/lisp/net/ntlm.el
@@ -536,5 +536,5 @@ into a Unicode string.  PASSWD is truncated to 128 bytes if longer."
 
 (provide 'ntlm)
 
-;;; arch-tag: 348ace18-f8e2-4176-8fe9-d9ab4e96f296
+;; arch-tag: 348ace18-f8e2-4176-8fe9-d9ab4e96f296
 ;;; ntlm.el ends here
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index d71d243621f..c09a767fc93 100644
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -546,5 +546,5 @@ TYPE dictates what will be inserted, options are:
 
 (provide 'quickurl)
 
-;;; arch-tag: a8183ea5-80c2-4082-a7d1-b0fdf2da467e
+;; arch-tag: a8183ea5-80c2-4082-a7d1-b0fdf2da467e
 ;;; quickurl.el ends here
diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el
index 3f632c6ff95..b04beb295d9 100644
--- a/lisp/net/rlogin.el
+++ b/lisp/net/rlogin.el
@@ -320,5 +320,5 @@ Delete ARG characters forward, or send a C-d to process if at end of buffer."
 
 (provide 'rlogin)
 
-;;; arch-tag: 6e20eabf-feda-40fa-ab40-0d156db447e4
+;; arch-tag: 6e20eabf-feda-40fa-ab40-0d156db447e4
 ;;; rlogin.el ends here
diff --git a/lisp/net/sasl-cram.el b/lisp/net/sasl-cram.el
index 911c8fe1805..e637f0982c5 100644
--- a/lisp/net/sasl-cram.el
+++ b/lisp/net/sasl-cram.el
@@ -48,5 +48,5 @@
 
 (provide 'sasl-cram)
 
-;;; arch-tag: 46cb281b-975a-4fe0-a39f-3018691b1b05
+;; arch-tag: 46cb281b-975a-4fe0-a39f-3018691b1b05
 ;;; sasl-cram.el ends here
diff --git a/lisp/net/sasl-digest.el b/lisp/net/sasl-digest.el
index 85417dff31e..c3c9e7f78e9 100644
--- a/lisp/net/sasl-digest.el
+++ b/lisp/net/sasl-digest.el
@@ -155,5 +155,5 @@ charset algorithm cipher-opts auth-param)."
 
 (provide 'sasl-digest)
 
-;;; arch-tag: 786e02ed-1bc4-4b3c-bf34-96c27e31084d
+;; arch-tag: 786e02ed-1bc4-4b3c-bf34-96c27e31084d
 ;;; sasl-digest.el ends here
diff --git a/lisp/net/sasl-ntlm.el b/lisp/net/sasl-ntlm.el
index 699fd125270..fcc1bbd7397 100644
--- a/lisp/net/sasl-ntlm.el
+++ b/lisp/net/sasl-ntlm.el
@@ -64,5 +64,5 @@ challenge stored in the 2nd element of STEP.  Called from 'sasl-next-step."
 
 (provide 'sasl-ntlm)
 
-;;; arch-tag: 1d9164c1-1df0-418f-b7ab-360157fd05dc
+;; arch-tag: 1d9164c1-1df0-418f-b7ab-360157fd05dc
 ;;; sasl-ntlm.el ends here
diff --git a/lisp/net/sasl.el b/lisp/net/sasl.el
index 000bca51040..4b6616d3303 100644
--- a/lisp/net/sasl.el
+++ b/lisp/net/sasl.el
@@ -269,5 +269,5 @@ It contain at least 64 bits of entropy."
 
 (provide 'sasl)
 
-;;; arch-tag: 8b3326fa-4978-4fda-93e2-cb2c6255f887
+;; arch-tag: 8b3326fa-4978-4fda-93e2-cb2c6255f887
 ;;; sasl.el ends here
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index 69793380910..1bb9426c3a3 100644
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -267,5 +267,5 @@ Normally input is edited in Emacs and sent a line at a time."
 
 (provide 'telnet)
 
-;;; arch-tag: 98218821-d04a-48b6-9058-57d0d4677a56
+;; arch-tag: 98218821-d04a-48b6-9058-57d0d4677a56
 ;;; telnet.el ends here
diff --git a/lisp/net/tls.el b/lisp/net/tls.el
index 7dc563af995..64a0460e08c 100644
--- a/lisp/net/tls.el
+++ b/lisp/net/tls.el
@@ -295,5 +295,5 @@ match `%s'. Connect anyway? " host))))))
 
 (provide 'tls)
 
-;;; arch-tag: 5596d1c4-facc-4bc4-94a9-9863b928d7ac
+;; arch-tag: 5596d1c4-facc-4bc4-94a9-9863b928d7ac
 ;;; tls.el ends here
diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index 71be05c1ab1..894fef4a43b 100644
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -205,5 +205,5 @@ pass to the OPERATION."
 ;;   Furthermore, there are no backup files on FTP hosts.
 ;;   Worth further investigations.
 
-;;; arch-tag: 759fb338-5c63-4b99-bd36-b4d59db91cff
+;; arch-tag: 759fb338-5c63-4b99-bd36-b4d59db91cff
 ;;; tramp-ftp.el ends here
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 0f1408b8c99..429b3579c2f 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1030,5 +1030,5 @@ Returns nil if an error message has appeared."
 ;;   regular again.
 ;; * Make it multi-hop capable.
 
-;;; arch-tag: fcc9dbec-7503-4d73-b638-3c8aa59575f5
+;; arch-tag: fcc9dbec-7503-4d73-b638-3c8aa59575f5
 ;;; tramp-smb.el ends here
diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el
index 0d12772de6d..baae917f32c 100644
--- a/lisp/net/tramp-uu.el
+++ b/lisp/net/tramp-uu.el
@@ -87,7 +87,7 @@
 
 (provide 'tramp-uu)
 
-;;; arch-tag: 7153f2c6-8be5-4cd2-8c06-0fbcf5190ef6
+;; arch-tag: 7153f2c6-8be5-4cd2-8c06-0fbcf5190ef6
 ;;; tramp-uu.el ends here
 
 ;; Local Variables:
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index fe59a60e56b..e6b73a4c735 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -42,7 +42,7 @@
 
 (provide 'trampver)
 
-;;; arch-tag: 443576ca-f8f1-4bb1-addc-5c70861e93b1
+;; arch-tag: 443576ca-f8f1-4bb1-addc-5c70861e93b1
 ;;; trampver.el ends here
 
 ;; Local Variables:
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index f5f0c32520d..bac87c5fb39 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -482,5 +482,5 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
 
 (provide 'webjump)
 
-;;; arch-tag: f1d20156-0a6f-488b-bd91-f69ee8b6d5cc
+;; arch-tag: f1d20156-0a6f-488b-bd91-f69ee8b6d5cc
 ;;; webjump.el ends here
diff --git a/lisp/obsolete/auto-show.el b/lisp/obsolete/auto-show.el
index fcd8480404c..9ea5d357bfb 100644
--- a/lisp/obsolete/auto-show.el
+++ b/lisp/obsolete/auto-show.el
@@ -48,5 +48,5 @@ to auto-show from your init file and code."
 
 (provide 'auto-show)
 
-;;; arch-tag: 49587cbf-95cc-4061-b564-274aaec37469
+;; arch-tag: 49587cbf-95cc-4061-b564-274aaec37469
 ;;; auto-show.el ends here
diff --git a/lisp/obsolete/awk-mode.el b/lisp/obsolete/awk-mode.el
index 6c20b9bffa6..3ac91e91357 100644
--- a/lisp/obsolete/awk-mode.el
+++ b/lisp/obsolete/awk-mode.el
@@ -122,5 +122,5 @@ Turning on AWK mode runs `awk-mode-hook'."
 
 (provide 'awk-mode)
 
-;;; arch-tag: 14ebc02a-b3c5-4e76-8034-6ca9ac0af0e6
+;; arch-tag: 14ebc02a-b3c5-4e76-8034-6ca9ac0af0e6
 ;;; awk-mode.el ends here
diff --git a/lisp/obsolete/bg-mouse.el b/lisp/obsolete/bg-mouse.el
index a7ac2410ced..63c174d9216 100644
--- a/lisp/obsolete/bg-mouse.el
+++ b/lisp/obsolete/bg-mouse.el
@@ -304,5 +304,5 @@ X and Y are 0-based character positions on the screen."
 
 (provide 'bg-mouse)
 
-;;; arch-tag: b3d06605-2971-44b1-be2c-e49c24e1a8d3
+;; arch-tag: b3d06605-2971-44b1-be2c-e49c24e1a8d3
 ;;; bg-mouse.el ends here
diff --git a/lisp/obsolete/float.el b/lisp/obsolete/float.el
index c3efcf85223..eb84c111f3d 100644
--- a/lisp/obsolete/float.el
+++ b/lisp/obsolete/float.el
@@ -456,5 +456,5 @@ are recognized."
 
 (provide 'float)
 
-;;; arch-tag: cc0c89c6-5718-49af-978e-585f6b14e347
+;; arch-tag: cc0c89c6-5718-49af-978e-585f6b14e347
 ;;; float.el ends here
diff --git a/lisp/obsolete/hscroll.el b/lisp/obsolete/hscroll.el
index d22fa3dc1f7..4f1afc872f9 100644
--- a/lisp/obsolete/hscroll.el
+++ b/lisp/obsolete/hscroll.el
@@ -102,5 +102,5 @@ Also see `automatic-hscrolling'."
 
 (provide 'hscroll)
 
-;;; arch-tag: 48377520-e5ca-401d-b360-3881b2d5a05a
+;; arch-tag: 48377520-e5ca-401d-b360-3881b2d5a05a
 ;;; hscroll.el ends here
diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el
index 7467c7a2aa4..1da68eef524 100644
--- a/lisp/obsolete/iso-insert.el
+++ b/lisp/obsolete/iso-insert.el
@@ -629,5 +629,5 @@
 
 (provide 'iso-insert)
 
-;;; arch-tag: eb5f97bd-a034-4851-92ff-ab1f1bf92814
+;; arch-tag: eb5f97bd-a034-4851-92ff-ab1f1bf92814
 ;;; iso-insert.el ends here
diff --git a/lisp/obsolete/iso-swed.el b/lisp/obsolete/iso-swed.el
index 77fa26608c9..a015c42693c 100644
--- a/lisp/obsolete/iso-swed.el
+++ b/lisp/obsolete/iso-swed.el
@@ -149,5 +149,5 @@
 
 (provide 'iso-swed)
 
-;;; arch-tag: 6b3dc269-660c-44b6-a25f-680b921eaf2c
+;; arch-tag: 6b3dc269-660c-44b6-a25f-680b921eaf2c
 ;;; iso-swed.el ends here
diff --git a/lisp/obsolete/keyswap.el b/lisp/obsolete/keyswap.el
index 071f0c673ad..cb76d9cc48f 100644
--- a/lisp/obsolete/keyswap.el
+++ b/lisp/obsolete/keyswap.el
@@ -39,5 +39,5 @@
   (aset the-table ?\^h ?\177)
   (setq keyboard-translate-table the-table))
 
-;;; arch-tag: 67cf7009-e23e-421c-9648-078e7277297c
+;; arch-tag: 67cf7009-e23e-421c-9648-078e7277297c
 ;;; keyswap.el ends here
diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el
index 07bd2d387f6..1b792cf0388 100644
--- a/lisp/obsolete/mlsupport.el
+++ b/lisp/obsolete/mlsupport.el
@@ -426,5 +426,5 @@
 
 (provide 'mlsupport)
 
-;;; arch-tag: b0ad09bc-8cb2-4be0-8888-2e874839bcbc
+;; arch-tag: b0ad09bc-8cb2-4be0-8888-2e874839bcbc
 ;;; mlsupport.el ends here
diff --git a/lisp/obsolete/ooutline.el b/lisp/obsolete/ooutline.el
index 40ba035058a..b7b3aad8e06 100644
--- a/lisp/obsolete/ooutline.el
+++ b/lisp/obsolete/ooutline.el
@@ -583,5 +583,5 @@ Stop at the first and last subheadings of a superior heading."
 
 (provide 'outline)
 
-;;; arch-tag: 14ed00e1-bd40-4db8-86e5-3b82ce326e45
+;; arch-tag: 14ed00e1-bd40-4db8-86e5-3b82ce326e45
 ;;; ooutline.el ends here
diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el
index 5d4b0f6a63e..c08e57bbde3 100644
--- a/lisp/obsolete/options.el
+++ b/lisp/obsolete/options.el
@@ -147,5 +147,5 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
 
 (provide 'options)
 
-;;; arch-tag: d18211a1-f3fb-48c9-a449-d5acde406a3c
+;; arch-tag: d18211a1-f3fb-48c9-a449-d5acde406a3c
 ;;; options.el ends here
diff --git a/lisp/obsolete/profile.el b/lisp/obsolete/profile.el
index 38d18435d37..0900669e207 100644
--- a/lisp/obsolete/profile.el
+++ b/lisp/obsolete/profile.el
@@ -290,5 +290,5 @@ DEF is (symbol-function FUN)."
 
 (provide 'profile)
 
-;;; arch-tag: 816f97e8-efff-4da2-9a95-7bc392f58b19
+;; arch-tag: 816f97e8-efff-4da2-9a95-7bc392f58b19
 ;;; profile.el ends here
diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el
index fe564366e72..2c80fe44e70 100644
--- a/lisp/obsolete/rnews.el
+++ b/lisp/obsolete/rnews.el
@@ -978,5 +978,5 @@ Mail and USENET news headers are not rotated."
 
 (provide 'rnews)
 
-;;; arch-tag: c032a20b-cafb-466c-b3fa-5be404a18f8c
+;; arch-tag: c032a20b-cafb-466c-b3fa-5be404a18f8c
 ;;; rnews.el ends here
diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el
index 34061d44bf2..f331f0a1a6e 100644
--- a/lisp/obsolete/rnewspost.el
+++ b/lisp/obsolete/rnewspost.el
@@ -443,5 +443,5 @@ original message into it."
 
 (provide 'rnewspost)
 
-;;; arch-tag: 18f7b2af-cf9a-49e4-878b-71eb49913e00
+;; arch-tag: 18f7b2af-cf9a-49e4-878b-71eb49913e00
 ;;; rnewspost.el ends here
diff --git a/lisp/obsolete/rsz-mini.el b/lisp/obsolete/rsz-mini.el
index afbc5383008..0f33ca937b4 100644
--- a/lisp/obsolete/rsz-mini.el
+++ b/lisp/obsolete/rsz-mini.el
@@ -81,5 +81,5 @@
 
 (provide 'rsz-mini)
 
-;;; arch-tag: 3cb85d51-ab33-4e46-8362-dd87a5d06c99
+;; arch-tag: 3cb85d51-ab33-4e46-8362-dd87a5d06c99
 ;;; rsz-mini.el ends here
diff --git a/lisp/obsolete/sc.el b/lisp/obsolete/sc.el
index 26486577aa4..1417ff6cdb5 100644
--- a/lisp/obsolete/sc.el
+++ b/lisp/obsolete/sc.el
@@ -13,5 +13,5 @@
 
 (message "The name `sc' works but is obsolete; please use `supercite' instead")
 
-;;; arch-tag: 31e8ae19-689e-4b7d-9161-6d7dd60c6ece
+;; arch-tag: 31e8ae19-689e-4b7d-9161-6d7dd60c6ece
 ;;; sc.el ends here
diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el
index 026d1ca6077..4a711e116b6 100644
--- a/lisp/obsolete/scribe.el
+++ b/lisp/obsolete/scribe.el
@@ -324,5 +324,5 @@ preceding text is of the form @Command."
 
 (provide 'scribe)
 
-;;; arch-tag: 64f454c4-7544-4ea2-9d14-f0b668f2cdc6
+;; arch-tag: 64f454c4-7544-4ea2-9d14-f0b668f2cdc6
 ;;; scribe.el ends here
diff --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el
index 906c4b92ab5..34256031643 100644
--- a/lisp/obsolete/swedish.el
+++ b/lisp/obsolete/swedish.el
@@ -159,5 +159,5 @@ Leaves point just after the word that looks Swedish."
 
 (provide 'swedish)
 
-;;; arch-tag: a117019d-acac-4ac4-8eac-0dbd49a41d32
+;; arch-tag: a117019d-acac-4ac4-8eac-0dbd49a41d32
 ;;; swedish.el ends here
diff --git a/lisp/obsolete/uncompress.el b/lisp/obsolete/uncompress.el
index 1ca86c20120..9bc644d5015 100644
--- a/lisp/obsolete/uncompress.el
+++ b/lisp/obsolete/uncompress.el
@@ -111,5 +111,5 @@ It then selects a major mode from the uncompressed file name and contents."
 
 (provide 'uncompress)
 
-;;; arch-tag: 626658d4-fcce-499a-990d-d165f2ed7da3
+;; arch-tag: 626658d4-fcce-499a-990d-d165f2ed7da3
 ;;; uncompress.el ends here
diff --git a/lisp/obsolete/x-menu.el b/lisp/obsolete/x-menu.el
index dfb0b17baa1..7be31570c7e 100644
--- a/lisp/obsolete/x-menu.el
+++ b/lisp/obsolete/x-menu.el
@@ -149,5 +149,5 @@ available to the user.  This also creates the menu itself."
 
 (provide 'x-menu)
 
-;;; arch-tag: 889f6d49-c01b-49e7-aaef-b0c6966c2961
+;; arch-tag: 889f6d49-c01b-49e7-aaef-b0c6966c2961
 ;;; x-menu.el ends here
diff --git a/lisp/password-cache.el b/lisp/password-cache.el
index e937c45a8b6..01757bd8658 100644
--- a/lisp/password-cache.el
+++ b/lisp/password-cache.el
@@ -132,5 +132,5 @@ The password is removed by a timer after `password-cache-expiry' seconds."
 
 (provide 'password-cache)
 
-;;; arch-tag: ab160494-16c8-4c68-a4a1-73eebf6686e5
+;; arch-tag: ab160494-16c8-4c68-a4a1-73eebf6686e5
 ;;; password-cache.el ends here
diff --git a/lisp/patcomp.el b/lisp/patcomp.el
index 41c0a9eadec..b542dc27f46 100644
--- a/lisp/patcomp.el
+++ b/lisp/patcomp.el
@@ -19,5 +19,5 @@ It uses the command line arguments to specify the files to compile."
   (let ((load-path (list (expand-file-name "lisp"))))
     (batch-byte-compile)))
 
-;;; arch-tag: cb299b78-1d6c-4c02-945b-12fa2e856d6f
+;; arch-tag: cb299b78-1d6c-4c02-945b-12fa2e856d6f
 ;;; patcomp.el ends here
diff --git a/lisp/paths.el b/lisp/paths.el
index dfa7e510b29..ea6fdb0abe8 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -195,5 +195,5 @@ the terminal-initialization file to be loaded.")
     (convert-standard-filename "~/.abbrev_defs"))
   "*Default name of file to read abbrevs from.")
 
-;;; arch-tag: bae27ffb-9944-4c87-b569-30d4635a99e1
+;; arch-tag: bae27ffb-9944-4c87-b569-30d4635a99e1
 ;;; paths.el ends here
diff --git a/lisp/pcmpl-cvs.el b/lisp/pcmpl-cvs.el
index a1e980d6341..f416e470e3d 100644
--- a/lisp/pcmpl-cvs.el
+++ b/lisp/pcmpl-cvs.el
@@ -186,5 +186,5 @@ operation character applies, as displayed by 'cvs -n update'."
     (setq pcomplete-stub nondir)
     (pcomplete-uniqify-list entries)))
 
-;;; arch-tag: d2aeac43-4bf5-4509-a496-74b863c6642b
+;; arch-tag: d2aeac43-4bf5-4509-a496-74b863c6642b
 ;;; pcmpl-cvs.el ends here
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 4db911f0499..3c73753c71c 100644
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -308,5 +308,5 @@
 ;;;###autoload
 (defalias 'pcomplete/gdb 'pcomplete/xargs)
 
-;;; arch-tag: 06d2b429-dcb1-4a57-84e1-f70d87781183
+;; arch-tag: 06d2b429-dcb1-4a57-84e1-f70d87781183
 ;;; pcmpl-gnu.el ends here
diff --git a/lisp/pcmpl-linux.el b/lisp/pcmpl-linux.el
index ae6ec7dc12a..69d48a7bde0 100644
--- a/lisp/pcmpl-linux.el
+++ b/lisp/pcmpl-linux.el
@@ -106,5 +106,5 @@
        (pcomplete-uniqify-list points)
        (cons "swap" (pcmpl-linux-mounted-directories))))))
 
-;;; arch-tag: bb0961a6-a623-463d-92c6-497c317293b1
+;; arch-tag: bb0961a6-a623-463d-92c6-497c317293b1
 ;;; pcmpl-linux.el ends here
diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el
index 89cd8eaaf4f..452530ec409 100644
--- a/lisp/pcmpl-rpm.el
+++ b/lisp/pcmpl-rpm.el
@@ -327,5 +327,5 @@ You can use \\[eshell-report-bug] to do so."
        (t
         (error "You must select a mode: -q, -i, -U, --verify, etc"))))))
 
-;;; arch-tag: 4e64b490-fecf-430e-b2b9-70a8ad64b8c1
+;; arch-tag: 4e64b490-fecf-430e-b2b9-70a8ad64b8c1
 ;;; pcmpl-rpm.el ends here
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 3ca88afd306..b16e775ff48 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -1204,5 +1204,5 @@ Returns the resultant list."
 ; (defalias 'pc-match-beginning 'pcomplete-match-beginning)
 ; (defalias 'pc-match-end 'pcomplete-match-end)
 
-;;; arch-tag: ae32ef2d-dbed-4244-8b0f-cf5a2a3b07a4
+;; arch-tag: ae32ef2d-dbed-4244-8b0f-cf5a2a3b07a4
 ;;; pcomplete.el ends here
diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el
index f5eb2f14870..7740ce7b24b 100644
--- a/lisp/pgg-def.el
+++ b/lisp/pgg-def.el
@@ -96,5 +96,5 @@ Whether the passphrase is cached at all is controlled by
 
 (provide 'pgg-def)
 
-;;; arch-tag: c425f3ab-ed75-4055-bb46-431a418c94b7
+;; arch-tag: c425f3ab-ed75-4055-bb46-431a418c94b7
 ;;; pgg-def.el ends here
diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 85a4e17d592..f481ca70d37 100644
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -405,5 +405,5 @@ passphrase cache or user."
 
 (provide 'pgg-gpg)
 
-;;; arch-tag: 2aa5d5d8-93a0-4865-9312-33e29830e000
+;; arch-tag: 2aa5d5d8-93a0-4865-9312-33e29830e000
 ;;; pgg-gpg.el ends here
diff --git a/lisp/pgg-parse.el b/lisp/pgg-parse.el
index 813b111419d..be14e2217dd 100644
--- a/lisp/pgg-parse.el
+++ b/lisp/pgg-parse.el
@@ -520,5 +520,5 @@
 
 (provide 'pgg-parse)
 
-;;; arch-tag: 16c2eb82-1313-4a7c-a70f-420709b5b43e
+;; arch-tag: 16c2eb82-1313-4a7c-a70f-420709b5b43e
 ;;; pgg-parse.el ends here
diff --git a/lisp/pgg-pgp5.el b/lisp/pgg-pgp5.el
index 599beb153d4..44a85ad199c 100644
--- a/lisp/pgg-pgp5.el
+++ b/lisp/pgg-pgp5.el
@@ -256,5 +256,5 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 
 (provide 'pgg-pgp5)
 
-;;; arch-tag: 3dbd1073-6b3a-466c-9f55-5c587ffa6d7b
+;; arch-tag: 3dbd1073-6b3a-466c-9f55-5c587ffa6d7b
 ;;; pgg-pgp5.el ends here
diff --git a/lisp/pgg.el b/lisp/pgg.el
index 3de9b5e20a4..c50a64415ca 100644
--- a/lisp/pgg.el
+++ b/lisp/pgg.el
@@ -599,5 +599,5 @@ within the region."
 
 (provide 'pgg)
 
-;;; arch-tag: 9cc705dd-1e6a-4c90-8dce-c3561f9a2cf4
+;; arch-tag: 9cc705dd-1e6a-4c90-8dce-c3561f9a2cf4
 ;;; pgg.el ends here
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 735c956306a..c1cd01e75be 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -516,5 +516,5 @@ in progress because it is an animated attempt."
 
 (provide '5x5)
 
-;;; arch-tag: ec4dabd5-572d-41ea-b48c-ec5ce0d68fa9
+;; arch-tag: ec4dabd5-572d-41ea-b48c-ec5ce0d68fa9
 ;;; 5x5.el ends here
diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index 3f72dc18fab..5320c87237f 100644
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -193,5 +193,5 @@ You can specify the one's name by NAME; the default value is \"Sarah\"."
 
 (provide 'animate)
 
-;;; arch-tag: 275289a3-6ac4-41da-b527-a1147045392f
+;; arch-tag: 275289a3-6ac4-41da-b527-a1147045392f
 ;;; animate.el ends here
diff --git a/lisp/play/bruce.el b/lisp/play/bruce.el
index 251f8ef9218..d9abdc00a09 100644
--- a/lisp/play/bruce.el
+++ b/lisp/play/bruce.el
@@ -148,5 +148,5 @@
 
 (provide 'bruce)
 
-;;; arch-tag: b83ded51-4ccb-41ef-8bd6-3b521e81dd9b
+;; arch-tag: b83ded51-4ccb-41ef-8bd6-3b521e81dd9b
 ;;; bruce.el ends here
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index d0e7ce6dd93..1e363d127d8 100644
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -169,5 +169,5 @@ Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie."
 
 (provide 'cookie1)
 
-;;; arch-tag: 4a8a8712-df6a-4f34-b030-108a1b47f9f2
+;; arch-tag: 4a8a8712-df6a-4f34-b030-108a1b47f9f2
 ;;; cookie1.el ends here
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index 57b19111ac3..79b0bb42e6b 100644
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -1070,5 +1070,5 @@ if it can't, it signals an error."
 ;;;          (delete-backward-char 1)
 ;;;          (insert ")\n"))))))
 
-;;; arch-tag: 8f094d88-ffe1-4f99-afe3-a5e81dd939d9
+;; arch-tag: 8f094d88-ffe1-4f99-afe3-a5e81dd939d9
 ;;; decipher.el ends here
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index fb44cf095cb..73e58133ecc 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -103,5 +103,5 @@ Default is 2."
 
 (provide 'dissociate)
 
-;;; arch-tag: 90d197d1-409b-45c5-a0b5-fbfb2e06334f
+;; arch-tag: 90d197d1-409b-45c5-a0b5-fbfb2e06334f
 ;;; dissociate.el ends here
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 1a8c7835446..89adc179e8f 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -3359,5 +3359,5 @@ File not found")))
 
 (provide 'dunnet)
 
-;;; arch-tag: 4cc8e47c-d9e1-4ef4-936b-578e7f529558
+;; arch-tag: 4cc8e47c-d9e1-4ef4-936b-578e7f529558
 ;;; dunnet.el ends here
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 163ce301b83..6f937cd9e8f 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -328,5 +328,5 @@ and choose the directory as the fortune-file."
 ;;; Provide ourselves.
 (provide 'fortune)
 
-;;; arch-tag: a1e4cb8a-3792-40e7-86a7-fc75ce094bcc
+;; arch-tag: a1e4cb8a-3792-40e7-86a7-fc75ce094bcc
 ;;; fortune.el ends here
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index 1187da9580a..5854855634a 100644
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -596,5 +596,5 @@ FILE is created there."
 
 (provide 'gamegrid)
 
-;;; arch-tag: a96c2ff4-1c12-427e-bd3d-faeaf174cd46
+;; arch-tag: a96c2ff4-1c12-427e-bd3d-faeaf174cd46
 ;;; gamegrid.el ends here
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el
index d87102b8014..9d7220af303 100644
--- a/lisp/play/gametree.el
+++ b/lisp/play/gametree.el
@@ -619,5 +619,5 @@ shogi, etc.) players, it is a slightly modified version of Outline mode.
 
 (provide 'gametree)
 
-;;; arch-tag: aaa30943-9ae4-4cc1-813d-a46f96b7e4f1
+;; arch-tag: aaa30943-9ae4-4cc1-813d-a46f96b7e4f1
 ;;; gametree.el ends here
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 428a100954f..8a16956becc 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -1213,5 +1213,5 @@ If the game is finished, this command requests for another game."
 
 (provide 'gomoku)
 
-;;; arch-tag: b1b8205e-77fc-4597-b373-3ea2c04311eb
+;; arch-tag: b1b8205e-77fc-4597-b373-3ea2c04311eb
 ;;; gomoku.el ends here
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index 0fe05054586..7ceb7907fdf 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1325,5 +1325,5 @@ end
 (provide 'handwrite)
 
 
-;;; arch-tag: f2285ae9-e41b-4c96-8343-87dce41e44b7
+;; arch-tag: f2285ae9-e41b-4c96-8343-87dce41e44b7
 ;;; handwrite.el ends here
diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 0dffa050449..51afa4602ae 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -447,5 +447,5 @@ BITS must be of length nrings.  Start at START-TIME."
 
 (provide 'hanoi)
 
-;;; arch-tag: 7a901659-4346-495c-8883-14cbf540610c
+;; arch-tag: 7a901659-4346-495c-8883-14cbf540610c
 ;;; hanoi.el ends here
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 55ad6017885..16a1f33ee17 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1709,5 +1709,5 @@ Use \\[describe-mode] for more info."
 
 (provide 'landmark)
 
-;;; arch-tag: ae5031be-96e6-459e-a3df-1df53117d3f2
+;; arch-tag: ae5031be-96e6-459e-a3df-1df53117d3f2
 ;;; landmark.el ends here
diff --git a/lisp/play/life.el b/lisp/play/life.el
index f1982652941..66251d893fe 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -304,5 +304,5 @@ generations (this defaults to 1)."
 
 (provide 'life)
 
-;;; arch-tag: e9373544-755e-42f5-a9a1-4d4c422bb97a
+;; arch-tag: e9373544-755e-42f5-a9a1-4d4c422bb97a
 ;;; life.el ends here
diff --git a/lisp/play/meese.el b/lisp/play/meese.el
index de27f567cea..115befa6c35 100644
--- a/lisp/play/meese.el
+++ b/lisp/play/meese.el
@@ -34,5 +34,5 @@
 (add-hook 'find-file-hook 'protect-innocence-hook)
 (provide 'meese)
 
-;;; arch-tag: 47af12d2-6a7d-4e2e-a1ea-eae75a77e3f0
+;; arch-tag: 47af12d2-6a7d-4e2e-a1ea-eae75a77e3f0
 ;;; meese.el ends here
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index 5197627d8fa..31249e79766 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -141,5 +141,5 @@
 
 (provide 'morse)
 
-;;; arch-tag: 3331e6c1-9a9e-453f-abfd-163a9c3f93a6
+;; arch-tag: 3331e6c1-9a9e-453f-abfd-163a9c3f93a6
 ;;; morse.el ends here
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index e6f12daab65..98bf305fbe7 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -518,5 +518,5 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
 
 (provide 'mpuz)
 
-;;; arch-tag: 2781d6ba-89e7-43b5-85c7-5d3a2e73feb1
+;; arch-tag: 2781d6ba-89e7-43b5-85c7-5d3a2e73feb1
 ;;; mpuz.el ends here
diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index de49b918f27..93181d44265 100644
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -460,5 +460,5 @@ pong-mode keybindings:\\<pong-mode-map>
 
 (provide 'pong)
 
-;;; arch-tag: 1fdf0fc5-13e2-4de4-aae4-09bdd5af99f3
+;; arch-tag: 1fdf0fc5-13e2-4de4-aae4-09bdd5af99f3
 ;;; pong.el ends here
diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 3b66782f3aa..c84b6e70118 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -414,5 +414,5 @@ Snake mode keybindings:
 
 (provide 'snake)
 
-;;; arch-tag: 512ffc92-cfac-4287-9a4e-92890701a5c8
+;; arch-tag: 512ffc92-cfac-4287-9a4e-92890701a5c8
 ;;; snake.el ends here
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index 05eca45379d..6efecc8564a 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -457,5 +457,5 @@ Seen in info on text lines."
 
 (provide 'solitaire)
 
-;;; arch-tag: 1b18ee1c-1e79-4a5b-8658-9560b82e63dd
+;; arch-tag: 1b18ee1c-1e79-4a5b-8658-9560b82e63dd
 ;;; solitaire.el ends here
diff --git a/lisp/play/spook.el b/lisp/play/spook.el
index 3de28774b0e..29a4416d874 100644
--- a/lisp/play/spook.el
+++ b/lisp/play/spook.el
@@ -78,5 +78,5 @@
 
 (provide 'spook)
 
-;;; arch-tag: c682b61f-92b6-4492-9c0d-2367e562449c
+;; arch-tag: c682b61f-92b6-4492-9c0d-2367e562449c
 ;;; spook.el ends here
diff --git a/lisp/play/studly.el b/lisp/play/studly.el
index 2bb4cb53846..e8854fecf73 100644
--- a/lisp/play/studly.el
+++ b/lisp/play/studly.el
@@ -68,5 +68,5 @@
 
 (provide 'studly)
 
-;;; arch-tag: 0dbf5a60-d2e6-48c2-86ae-77fc8575ac67
+;; arch-tag: 0dbf5a60-d2e6-48c2-86ae-77fc8575ac67
 ;;; studly.el ends here
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 11b081243b6..832cba57255 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -656,5 +656,5 @@ tetris-mode keybindings:
 
 (provide 'tetris)
 
-;;; arch-tag: fb780d53-3ff0-49f0-8e19-f7f13cf2d49e
+;; arch-tag: fb780d53-3ff0-49f0-8e19-f7f13cf2d49e
 ;;; tetris.el ends here
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 9fe3ddf6315..2dc12e5712b 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -130,5 +130,5 @@ If called interactively, display a list of matches."
 
 (provide 'yow)
 
-;;; arch-tag: d13db89b-84f1-4141-a5ce-261d1733a65c
+;; arch-tag: d13db89b-84f1-4141-a5ce-261d1733a65c
 ;;; yow.el ends here
diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index a2979bfeef1..b8b413540b9 100644
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -691,5 +691,5 @@ If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).")
 ;;;;;;;;;;;;;;;
 (provide 'zone)
 
-;;; arch-tag: 7092503d-74a9-4325-a55c-a026ede58cea
+;; arch-tag: 7092503d-74a9-4325-a55c-a026ede58cea
 ;;; zone.el ends here
diff --git a/lisp/progmodes/ada-prj.el b/lisp/progmodes/ada-prj.el
index be2d320351d..92972e6c61d 100644
--- a/lisp/progmodes/ada-prj.el
+++ b/lisp/progmodes/ada-prj.el
@@ -688,5 +688,5 @@ AFTER-TEXT is inserted just after the widget."
 
 (provide 'ada-prj)
 
-;;; arch-tag: 65978c77-816e-49c6-896e-6905605d1b4c
+;; arch-tag: 65978c77-816e-49c6-896e-6905605d1b4c
 ;;; ada-prj.el ends here
diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el
index e36861c55e0..82abe1401ce 100644
--- a/lisp/progmodes/ada-stmt.el
+++ b/lisp/progmodes/ada-stmt.el
@@ -482,5 +482,5 @@ Invoke right after `ada-function-spec' or `ada-procedure-spec'."
 
 (provide 'ada-stmt)
 
-;;; arch-tag: 94f51555-cc0e-44e5-8865-8788aae8ecd3
+;; arch-tag: 94f51555-cc0e-44e5-8865-8788aae8ecd3
 ;;; ada-stmt.el ends here
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 969ad7d667f..3b0c3cc63e2 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -2675,5 +2675,5 @@ Used in `antlr-mode'.  Also a useful function in `java-mode-hook'."
 
 ;;; Local IspellPersDict: .ispell_antlr
 
-;;; arch-tag: 5de2be79-3d13-4560-8fbc-f7d0234dcb5c
+;; arch-tag: 5de2be79-3d13-4560-8fbc-f7d0234dcb5c
 ;;; antlr-mode.el ends here
diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el
index 051c34524a0..8f4dfcfcbec 100644
--- a/lisp/progmodes/asm-mode.el
+++ b/lisp/progmodes/asm-mode.el
@@ -253,5 +253,5 @@ repeatedly until you are satisfied with the kind of comment."
 
 (provide 'asm-mode)
 
-;;; arch-tag: 210e695f-f338-4376-8913-a4c5c72ac848
+;; arch-tag: 210e695f-f338-4376-8913-a4c5c72ac848
 ;;; asm-mode.el ends here
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el
index def9f05072d..a208eff227b 100644
--- a/lisp/progmodes/autoconf.el
+++ b/lisp/progmodes/autoconf.el
@@ -110,5 +110,5 @@ searching backwards at another AC_... command."
 
 (provide 'autoconf-mode)
 
-;;; arch-tag: 4f44778f-2ab3-49a1-a103-f0acb9df2de4
+;; arch-tag: 4f44778f-2ab3-49a1-a103-f0acb9df2de4
 ;;; autoconf.el ends here
diff --git a/lisp/progmodes/cap-words.el b/lisp/progmodes/cap-words.el
index 8a3a9c11e30..aa621426a41 100644
--- a/lisp/progmodes/cap-words.el
+++ b/lisp/progmodes/cap-words.el
@@ -92,5 +92,5 @@ Obsoletes `c-forward-into-nomenclature'."
 
 (provide 'cap-words)
 
-;;; arch-tag: 46513b64-fe5a-4c0b-902c-ed235c22975f
+;; arch-tag: 46513b64-fe5a-4c0b-902c-ed235c22975f
 ;;; cap-words.el ends here
diff --git a/lisp/progmodes/cc-align.el b/lisp/progmodes/cc-align.el
index 7fde9f62162..c67620157fb 100644
--- a/lisp/progmodes/cc-align.el
+++ b/lisp/progmodes/cc-align.el
@@ -1294,5 +1294,5 @@ For other semicolon contexts, no determination is made."
 
 (cc-provide 'cc-align)
 
-;;; arch-tag: 4d71ed28-bf51-4509-a148-f39669669a2e
+;; arch-tag: 4d71ed28-bf51-4509-a148-f39669669a2e
 ;;; cc-align.el ends here
diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el
index 8833f279dde..46f6701b76a 100644
--- a/lisp/progmodes/cc-awk.el
+++ b/lisp/progmodes/cc-awk.el
@@ -1097,5 +1097,5 @@ comment at the start of cc-engine.el for more info."
 
 (cc-provide 'cc-awk)                    ; Changed from 'awk-mode, ACM 2002/5/21
 
-;;; arch-tag: c4836289-3aa4-4a59-9934-9ccc2bacccf3
+;; arch-tag: c4836289-3aa4-4a59-9934-9ccc2bacccf3
 ;;; awk-mode.el ends here
diff --git a/lisp/progmodes/cc-bytecomp.el b/lisp/progmodes/cc-bytecomp.el
index 4ac6091798c..ce9ab4a419a 100644
--- a/lisp/progmodes/cc-bytecomp.el
+++ b/lisp/progmodes/cc-bytecomp.el
@@ -436,5 +436,5 @@ exclude any functions that have been bound during compilation with
 
 (provide 'cc-bytecomp)
 
-;;; arch-tag: 2d71b3ad-57b0-4b13-abd3-ab836e08f975
+;; arch-tag: 2d71b3ad-57b0-4b13-abd3-ab836e08f975
 ;;; cc-bytecomp.el ends here
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 2ac501bcacb..cb940616194 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -4531,5 +4531,5 @@ normally bound to C-o.  See `c-context-line-break' for the details."
 
 (cc-provide 'cc-cmds)
 
-;;; arch-tag: bf0611dc-d1f4-449e-9e45-4ec7c6936677
+;; arch-tag: bf0611dc-d1f4-449e-9e45-4ec7c6936677
 ;;; cc-cmds.el ends here
diff --git a/lisp/progmodes/cc-compat.el b/lisp/progmodes/cc-compat.el
index 4700db5e3b3..eabbea90d33 100644
--- a/lisp/progmodes/cc-compat.el
+++ b/lisp/progmodes/cc-compat.el
@@ -165,5 +165,5 @@ This is in addition to c-continued-statement-offset.")
 
 (cc-provide 'cc-compat)
 
-;;; arch-tag: 564dab2f-e6ad-499c-a4a3-fedec3ecc192
+;; arch-tag: 564dab2f-e6ad-499c-a4a3-fedec3ecc192
 ;;; cc-compat.el ends here
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index dadd741f0fc..2c5511be1a2 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -2099,5 +2099,5 @@ quoted."
 
 (cc-provide 'cc-defs)
 
-;;; arch-tag: 3bb2629d-dd84-4ff0-ad39-584be0fe3cda
+;; arch-tag: 3bb2629d-dd84-4ff0-ad39-584be0fe3cda
 ;;; cc-defs.el ends here
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 2007f8ef919..d5a31032ddf 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -9217,5 +9217,5 @@ Cannot combine absolute offsets %S and %S in `add' method"
 
 (cc-provide 'cc-engine)
 
-;;; arch-tag: 149add18-4673-4da5-ac47-6805e4eae089
+;; arch-tag: 149add18-4673-4da5-ac47-6805e4eae089
 ;;; cc-engine.el ends here
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 60045a0adec..e1c86188001 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -2311,5 +2311,5 @@ need for `pike-font-lock-extra-types'.")
 ;; 2006-07-10:  awk-font-lock-keywords has been moved back to cc-awk.el.
 (cc-provide 'cc-fonts)
 
-;;; arch-tag: 2f65f405-735f-4da5-8d4b-b957844c5203
+;; arch-tag: 2f65f405-735f-4da5-8d4b-b957844c5203
 ;;; cc-fonts.el ends here
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 07b8a9e4e46..ed3efc66ec2 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -3058,5 +3058,5 @@ evaluated and should not be quoted."
 
 (cc-provide 'cc-langs)
 
-;;; arch-tag: 1ab57482-cfc2-4c5b-b628-3539c3098822
+;; arch-tag: 1ab57482-cfc2-4c5b-b628-3539c3098822
 ;;; cc-langs.el ends here
diff --git a/lisp/progmodes/cc-menus.el b/lisp/progmodes/cc-menus.el
index 5a7c0f2c6a2..12f3c5de1a1 100644
--- a/lisp/progmodes/cc-menus.el
+++ b/lisp/progmodes/cc-menus.el
@@ -424,5 +424,5 @@ Example:
 
 (cc-provide 'cc-menus)
 
-;;; arch-tag: f6b60933-91f0-4145-ab44-70ca6d1b919b
+;; arch-tag: f6b60933-91f0-4145-ab44-70ca6d1b919b
 ;;; cc-menus.el ends here
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 1ed3eca7e2f..3fee14bf565 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -1578,5 +1578,5 @@ Key bindings:
 
 (cc-provide 'cc-mode)
 
-;;; arch-tag: 7825e5c4-fd09-439f-a04d-4c13208ba3d7
+;; arch-tag: 7825e5c4-fd09-439f-a04d-4c13208ba3d7
 ;;; cc-mode.el ends here
diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el
index de61feb39d3..7e3cf5e9305 100644
--- a/lisp/progmodes/cc-styles.el
+++ b/lisp/progmodes/cc-styles.el
@@ -653,5 +653,5 @@ any reason to call this function directly."
 
 (cc-provide 'cc-styles)
 
-;;; arch-tag: c764f61a-96ba-484a-a68f-101c0e9d5d2c
+;; arch-tag: c764f61a-96ba-484a-a68f-101c0e9d5d2c
 ;;; cc-styles.el ends here
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 8b7b9cd24ee..8fb02cab0c2 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -1667,5 +1667,5 @@ It treats escaped EOLs as whitespace.")
 
 (cc-provide 'cc-vars)
 
-;;; arch-tag: d62e9a55-c9fe-409b-b5b6-050b6aa202c9
+;; arch-tag: d62e9a55-c9fe-409b-b5b6-050b6aa202c9
 ;;; cc-vars.el ends here
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 0e900a2a1e8..13d610d555c 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -398,5 +398,5 @@ Optional arg DISPLAY non-nil means show messages in the echo area."
       ;; Cleanup.
       (kill-buffer outbuf))))
 
-;;; arch-tag: 4f20253c-71ef-4e6d-a774-19087060910e
+;; arch-tag: 4f20253c-71ef-4e6d-a774-19087060910e
 ;;; cmacexp.el ends here
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 8352c4eef60..46544e204df 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -8894,5 +8894,5 @@ do extra unwind via `cperl-unwind-to-safe'."
 
 (provide 'cperl-mode)
 
-;;; arch-tag: 42e5b19b-e187-4537-929f-1a7408980ce6
+;; arch-tag: 42e5b19b-e187-4537-929f-1a7408980ce6
 ;;; cperl-mode.el ends here
diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index 4160b0f7728..6acebafe716 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -833,5 +833,5 @@ BRANCH should be either nil (false branch), t (true branch) or 'both."
 
 (provide 'cpp)
 
-;;; arch-tag: fb7d433d-745d-495a-96f0-86908ab63f74
+;; arch-tag: fb7d433d-745d-495a-96f0-86908ab63f74
 ;;; cpp.el ends here
diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el
index 82c8c290630..aa7bb16814b 100644
--- a/lisp/progmodes/cwarn.el
+++ b/lisp/progmodes/cwarn.el
@@ -381,5 +381,5 @@ The mode is turned if some feature is enabled for the current
 
 ;;}}}
 
-;;; arch-tag: 225fb5e2-0838-4eb1-88ce-3811c5e4d738
+;; arch-tag: 225fb5e2-0838-4eb1-88ce-3811c5e4d738
 ;;; cwarn.el ends here
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 0f19ea3327c..e13a0487308 100644
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -2218,5 +2218,5 @@ otherwise return nil."
 
 (run-hooks 'dcl-mode-load-hook)         ; for your customizations
 
-;;; arch-tag: e00d421b-f26c-483e-a8bd-af412ea7764a
+;; arch-tag: e00d421b-f26c-483e-a8bd-af412ea7764a
 ;;; dcl-mode.el ends here
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index d98bb62c0ba..ca5f12c2863 100644
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1984,5 +1984,5 @@ no args, if that value is non-nil."
 
   (run-mode-hooks 'delphi-mode-hook))
 
-;;; arch-tag: 410e192d-e9b5-4397-ad62-12340fc3fa41
+;; arch-tag: 410e192d-e9b5-4397-ad62-12340fc3fa41
 ;;; delphi.el ends here
diff --git a/lisp/progmodes/ebnf-abn.el b/lisp/progmodes/ebnf-abn.el
index f2d8271be01..c1ab556b645 100644
--- a/lisp/progmodes/ebnf-abn.el
+++ b/lisp/progmodes/ebnf-abn.el
@@ -665,5 +665,5 @@ See documentation for variable `ebnf-abn-lex'."
 
 (provide 'ebnf-abn)
 
-;;; arch-tag: 8d1b3c4d-4226-4393-b9ae-b7ccf07cf779
+;; arch-tag: 8d1b3c4d-4226-4393-b9ae-b7ccf07cf779
 ;;; ebnf-abn.el ends here
diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el
index d9db3c2a6c3..fc4bbf909f5 100644
--- a/lisp/progmodes/ebnf-bnf.el
+++ b/lisp/progmodes/ebnf-bnf.el
@@ -606,5 +606,5 @@ See documentation for variable `ebnf-bnf-lex'."
 (provide 'ebnf-bnf)
 
 
-;;; arch-tag: 3b1834d3-8367-475b-80d5-8e0bbd00ce50
+;; arch-tag: 3b1834d3-8367-475b-80d5-8e0bbd00ce50
 ;;; ebnf-bnf.el ends here
diff --git a/lisp/progmodes/ebnf-dtd.el b/lisp/progmodes/ebnf-dtd.el
index 2f651a70a76..69a89837260 100644
--- a/lisp/progmodes/ebnf-dtd.el
+++ b/lisp/progmodes/ebnf-dtd.el
@@ -1351,5 +1351,5 @@ See documentation for variable `ebnf-dtd-lex'."
 
 (provide 'ebnf-dtd)
 
-;;; arch-tag: c21bb640-135f-4afa-8712-fa11d86301c4
+;; arch-tag: c21bb640-135f-4afa-8712-fa11d86301c4
 ;;; ebnf-dtd.el ends here
diff --git a/lisp/progmodes/ebnf-ebx.el b/lisp/progmodes/ebnf-ebx.el
index 8d94c2de1e8..f4838151587 100644
--- a/lisp/progmodes/ebnf-ebx.el
+++ b/lisp/progmodes/ebnf-ebx.el
@@ -670,5 +670,5 @@ See documentation for variable `ebnf-ebx-lex'."
 
 (provide 'ebnf-ebx)
 
-;;; arch-tag: bfe2f95b-66bc-4dc6-8b7e-b7831e68f5fb
+;; arch-tag: bfe2f95b-66bc-4dc6-8b7e-b7831e68f5fb
 ;;; ebnf-ebx.el ends here
diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el
index 4beb198e24a..026516b1d74 100644
--- a/lisp/progmodes/ebnf-iso.el
+++ b/lisp/progmodes/ebnf-iso.el
@@ -613,5 +613,5 @@ See documentation for variable `ebnf-iso-lex'."
 (provide 'ebnf-iso)
 
 
-;;; arch-tag: 03315eef-8f64-404a-bf9d-256d42442ee3
+;; arch-tag: 03315eef-8f64-404a-bf9d-256d42442ee3
 ;;; ebnf-iso.el ends here
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el
index 698807edfde..1c7968e8e9c 100644
--- a/lisp/progmodes/ebnf-otz.el
+++ b/lisp/progmodes/ebnf-otz.el
@@ -698,5 +698,5 @@
 (provide 'ebnf-otz)
 
 
-;;; arch-tag: 7ef2249d-9e8b-4bc1-999f-95d784690636
+;; arch-tag: 7ef2249d-9e8b-4bc1-999f-95d784690636
 ;;; ebnf-otz.el ends here
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index d78d944a76a..25b722ef09e 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -514,5 +514,5 @@ See documentation for variable `ebnf-yac-lex'."
 (provide 'ebnf-yac)
 
 
-;;; arch-tag: 8a96989c-0b1d-42ba-a020-b2901f9a2a4d
+;; arch-tag: 8a96989c-0b1d-42ba-a020-b2901f9a2a4d
 ;;; ebnf-yac.el ends here
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 27eaeb187f4..267829b7659 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -6403,5 +6403,5 @@ killed after process termination."
 
 (provide 'ebnf2ps)
 
-;;; arch-tag: 148bc8af-5398-468b-b922-eeb7afef3e4f
+;; arch-tag: 148bc8af-5398-468b-b922-eeb7afef3e4f
 ;;; ebnf2ps.el ends here
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index eaeabe58aae..c8fea81949a 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -4498,5 +4498,5 @@ EVENT is the mouse event."
 ;;; eval:(put 'ebrowse-for-all-trees 'lisp-indent-hook 1)
 ;;; End:
 
-;;; arch-tag: 4fa3c8bf-1771-479b-bcd7-b029c7c9677b
+;; arch-tag: 4fa3c8bf-1771-479b-bcd7-b029c7c9677b
 ;;; ebrowse.el ends here
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 7b2d78ca2ff..7346c77de5a 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -2195,5 +2195,5 @@ escape character."
 
 (provide 'f90)
 
-;;; arch-tag: fceac97c-c147-44bd-aec0-172d4b560ef8
+;; arch-tag: fceac97c-c147-44bd-aec0-172d4b560ef8
 ;;; f90.el ends here
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index a2e4be4b8be..c057cccffa7 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3457,5 +3457,5 @@ so they have been disabled."))
 
 (provide 'gud)
 
-;;; arch-tag: 6d990948-df65-461a-be39-1c7fb83ac4c4
+;; arch-tag: 6d990948-df65-461a-be39-1c7fb83ac4c4
 ;;; gud.el ends here
diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el
index f10b6f01a5a..d9df015ea0d 100644
--- a/lisp/progmodes/icon.el
+++ b/lisp/progmodes/icon.el
@@ -689,5 +689,5 @@ Returns nil if line starts inside a string, t if in a comment."
 
 (provide 'icon)
 
-;;; arch-tag: 8abf8c99-e7df-44af-a58f-ef5ed2ee52cb
+;; arch-tag: 8abf8c99-e7df-44af-a58f-ef5ed2ee52cb
 ;;; icon.el ends here
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index ca94af2394d..cac6fe72ad0 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -664,5 +664,5 @@ See variable `lisp-describe-sym-command'."
 
 (provide 'inf-lisp)
 
-;;; arch-tag: 5b74abc3-a085-4b91-8ab8-8da6899d3b92
+;; arch-tag: 5b74abc3-a085-4b91-8ab8-8da6899d3b92
 ;;; inf-lisp.el ends here
diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index c5a0054669e..65aa80c44bd 100644
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -178,5 +178,5 @@
 ;;;               "m4_syscmd" "m4_sysval" "m4_traceoff" "m4_traceon" "m4_translit"
 ;;;               "m4_m4_undefine" "m4_undivert"))
 
-;;; arch-tag: 87811d86-94c1-474b-9666-587f6da74af1
+;; arch-tag: 87811d86-94c1-474b-9666-587f6da74af1
 ;;; m4-mode.el ends here
diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el
index d87fdbbfde2..361df4d5013 100644
--- a/lisp/progmodes/mantemp.el
+++ b/lisp/progmodes/mantemp.el
@@ -204,5 +204,5 @@ but operates on the region."
 
 (provide 'mantemp)
 
-;;; arch-tag: 49794712-3b1b-4baa-9785-39556cb52c94
+;; arch-tag: 49794712-3b1b-4baa-9785-39556cb52c94
 ;;; mantemp.el ends here
diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index f2530a7f502..9d226cefbd4 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -564,5 +564,5 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
 
 (provide 'modula2)
 
-;;; arch-tag: a21df1cb-5ece-4709-9219-1e7cd2d85d90
+;; arch-tag: a21df1cb-5ece-4709-9219-1e7cd2d85d90
 ;;; modula2.el ends here
diff --git a/lisp/progmodes/octave-hlp.el b/lisp/progmodes/octave-hlp.el
index 6c68671491b..314a3446075 100644
--- a/lisp/progmodes/octave-hlp.el
+++ b/lisp/progmodes/octave-hlp.el
@@ -135,5 +135,5 @@ The files specified by `octave-help-files' are searched."
 
 (provide 'octave-hlp)
 
-;;; arch-tag: df5ef8fa-76c9-44e5-9835-cb5a502c6282
+;; arch-tag: df5ef8fa-76c9-44e5-9835-cb5a502c6282
 ;;; octave-hlp.el ends here
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 02c81f46ff3..203b4575a8d 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -1197,5 +1197,5 @@ Use line numbers if `ps-run-error-line-numbers' is not nil"
 
 (provide 'ps-mode)
 
-;;; arch-tag: dce13d2d-69fb-4ec4-9d5d-6dd29c3f0e6e
+;; arch-tag: dce13d2d-69fb-4ec4-9d5d-6dd29c3f0e6e
 ;;; ps-mode.el ends here
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 9c2c48f6eda..93b4c5ee3de 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -1658,5 +1658,5 @@ If not nil and not t, move to limit of search and return nil."
 
 (provide 'simula)
 
-;;; arch-tag: 488c1bb0-eebf-4f06-93df-1df603f06255
+;; arch-tag: 488c1bb0-eebf-4f06-93df-1df603f06255
 ;;; simula.el ends here
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 525973fd583..3d7e7d7880e 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -2991,5 +2991,5 @@ parameters and command options."
 
 (provide 'sql)
 
-;;; arch-tag: 7e1fa1c4-9ca2-402e-87d2-83a5eccb7ac3
+;; arch-tag: 7e1fa1c4-9ca2-402e-87d2-83a5eccb7ac3
 ;;; sql.el ends here
diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 750ff21304f..b5d26d74e25 100644
--- a/lisp/progmodes/xscheme.el
+++ b/lisp/progmodes/xscheme.el
@@ -1235,5 +1235,5 @@ the remaining input.")
 
 (provide 'xscheme)
 
-;;; arch-tag: cfc14adc-2917-409e-ad16-432e8d0017de
+;; arch-tag: cfc14adc-2917-409e-ad16-432e8d0017de
 ;;; xscheme.el ends here
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 9ec27c31a5a..4d3574fb4be 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -446,5 +446,5 @@ BITMAP-STRING is a string representing bits by hexadecimal digits."
 
 (provide 'ps-bdf)
 
-;;; arch-tag: 9b875ba8-565a-4ecf-acaa-30cee732c898
+;; arch-tag: 9b875ba8-565a-4ecf-acaa-30cee732c898
 ;;; ps-bdf.el ends here
diff --git a/lisp/rect.el b/lisp/rect.el
index aceea3369ce..b73f1a034de 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -391,5 +391,5 @@ rectangle which were empty."
 
 (provide 'rect)
 
-;;; arch-tag: 178847b3-1f50-4b03-83de-a6e911cc1d16
+;; arch-tag: 178847b3-1f50-4b03-83de-a6e911cc1d16
 ;;; rect.el ends here
diff --git a/lisp/register.el b/lisp/register.el
index e25f5329a69..30bfa6596cd 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -323,5 +323,5 @@ START and END are buffer positions giving two corners of rectangle."
                   (extract-rectangle start end))))
 
 (provide 'register)
-;;; arch-tag: ce14dd68-8265-475f-9341-5d4ec5a53035
+;; arch-tag: ce14dd68-8265-475f-9341-5d4ec5a53035
 ;;; register.el ends here
diff --git a/lisp/repeat.el b/lisp/repeat.el
index fdeec47f7c4..452da947e7e 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -389,5 +389,5 @@ recently executed command not bound to an input event\"."
 
 (provide 'repeat)
 
-;;; arch-tag: cd569600-a1ad-4fa7-9062-bb91dfeaf1db
+;; arch-tag: cd569600-a1ad-4fa7-9062-bb91dfeaf1db
 ;;; repeat.el ends here
diff --git a/lisp/reposition.el b/lisp/reposition.el
index f19111cc8e5..666e2cea151 100644
--- a/lisp/reposition.el
+++ b/lisp/reposition.el
@@ -195,5 +195,5 @@ first comment line visible (if point is in a comment)."
 
 (provide 'reposition)
 
-;;; arch-tag: 79487039-3bd7-4ab5-a3e8-ecf3b4919010
+;; arch-tag: 79487039-3bd7-4ab5-a3e8-ecf3b4919010
 ;;; reposition.el ends here
diff --git a/lisp/resume.el b/lisp/resume.el
index 8d9232b2f26..4b515fe1a89 100644
--- a/lisp/resume.el
+++ b/lisp/resume.el
@@ -126,5 +126,5 @@
 
 (provide 'resume)
 
-;;; arch-tag: c90b2761-4803-4e58-a0ae-c4721368b628
+;; arch-tag: c90b2761-4803-4e58-a0ae-c4721368b628
 ;;; resume.el ends here
diff --git a/lisp/rot13.el b/lisp/rot13.el
index c0f486622a3..6be9d9de086 100644
--- a/lisp/rot13.el
+++ b/lisp/rot13.el
@@ -111,5 +111,5 @@ See also `toggle-rot13-mode'."
 
 (provide 'rot13)
 
-;;; arch-tag: ad5b9ca8-946c-4414-996f-e9b1bf9ec79f
+;; arch-tag: ad5b9ca8-946c-4414-996f-e9b1bf9ec79f
 ;;; rot13.el ends here
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 6b77a912dcf..10bf7ca8738 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -763,5 +763,5 @@ Optional argument PROPS specifies other text properties to apply."
 ;; coding: iso-latin-1
 ;; End:
 
-;;; arch-tag: b2f24546-5605-44c4-b67b-c9a4eeba3ee8
+;; arch-tag: b2f24546-5605-44c4-b67b-c9a4eeba3ee8
 ;;; ruler-mode.el ends here
diff --git a/lisp/s-region.el b/lisp/s-region.el
index 1510ef8b804..d5e5e733bfd 100644
--- a/lisp/s-region.el
+++ b/lisp/s-region.el
@@ -122,5 +122,5 @@ to global keymap."
 
 (provide 's-region)
 
-;;; arch-tag: a471e912-18d7-4247-a29b-2100bca180ff
+;; arch-tag: a471e912-18d7-4247-a29b-2100bca180ff
 ;;; s-region.el ends here
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 74bdab3e512..bc290f3e4b8 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -310,5 +310,5 @@ may have changed\) back to `save-place-alist'."
 
 (provide 'saveplace) ; why not...
 
-;;; arch-tag: 3c2ef47b-0a22-4558-b116-118c9ef454a0
+;; arch-tag: 3c2ef47b-0a22-4558-b116-118c9ef454a0
 ;;; saveplace.el ends here
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 7d4a3327e95..0658f40cc6c 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -118,5 +118,5 @@ apply to all visible windows in the same frame."
 
 (provide 'scroll-all)
 
-;;; arch-tag: db20089a-b157-45df-b5d4-2430e60acdd8
+;; arch-tag: db20089a-b157-45df-b5d4-2430e60acdd8
 ;;; scroll-all.el ends here
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 5fce4731c91..0ee43b7fb39 100644
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -360,5 +360,5 @@ EVENT should be a scroll bar click."
 
 (provide 'scroll-bar)
 
-;;; arch-tag: 6f1d01d0-0b1e-4bf8-86db-d491e0f399f3
+;; arch-tag: 6f1d01d0-0b1e-4bf8-86db-d491e0f399f3
 ;;; scroll-bar.el ends here
diff --git a/lisp/select.el b/lisp/select.el
index 34f63d7dd1b..a283a6633b1 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -457,5 +457,5 @@ This function returns the string \"emacs\"."
 
 (provide 'select)
 
-;;; arch-tag: bb634f97-8a3b-4b0a-b940-f6e09982328c
+;; arch-tag: bb634f97-8a3b-4b0a-b940-f6e09982328c
 ;;; select.el ends here
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 8d6f294efcf..b7d9ea347bd 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -836,5 +836,5 @@ look for files that have been changed and need to be copied to other systems."
 
 (provide 'shadowfile)
 
-;;; arch-tag: e2f4cdd7-2bab-4def-9130-9e69b412b79e
+;; arch-tag: e2f4cdd7-2bab-4def-9130-9e69b412b79e
 ;;; shadowfile.el ends here
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 6d06c72764c..df42534c1c1 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -564,5 +564,5 @@ symmetrical ones, and the same character twice for the others."
 
 (provide 'skeleton)
 
-;;; arch-tag: ccad7bd5-eb5d-40de-9ded-900197215c3e
+;; arch-tag: ccad7bd5-eb5d-40de-9ded-900197215c3e
 ;;; skeleton.el ends here
diff --git a/lisp/sort.el b/lisp/sort.el
index 2fb6ec54508..fe9d913bc8b 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -561,5 +561,5 @@ From a program takes two point or marker arguments, BEG and END."
 
 (provide 'sort)
 
-;;; arch-tag: fbac12be-2a7b-4c8a-9665-264d61f70bd9
+;; arch-tag: fbac12be-2a7b-4c8a-9665-264d61f70bd9
 ;;; sort.el ends here
diff --git a/lisp/soundex.el b/lisp/soundex.el
index 9048605ed77..bb564f364f6 100644
--- a/lisp/soundex.el
+++ b/lisp/soundex.el
@@ -74,5 +74,5 @@ and Searching\", Addison-Wesley (1973), pp. 391-392."
 
 (provide 'soundex)
 
-;;; arch-tag: b2615a98-feb7-430e-a717-171086738953
+;; arch-tag: b2615a98-feb7-430e-a717-171086738953
 ;;; soundex.el ends here
diff --git a/lisp/strokes.el b/lisp/strokes.el
index 228d662954c..8c275d27f43 100644
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1754,5 +1754,5 @@ Store XPM in buffer BUFNAME if supplied \(default is ` *strokes-xpm*'\)"
 (run-hooks 'strokes-load-hook)
 (provide 'strokes)
 
-;;; arch-tag: 8377f60e-43fb-467a-bbcd-2774f91f833e
+;; arch-tag: 8377f60e-43fb-467a-bbcd-2774f91f833e
 ;;; strokes.el ends here
diff --git a/lisp/talk.el b/lisp/talk.el
index a578675c26d..7eff99f4ff0 100644
--- a/lisp/talk.el
+++ b/lisp/talk.el
@@ -129,5 +129,5 @@ Select the first of these windows, displaying the first of the buffers."
 
 (provide 'talk)
 
-;;; arch-tag: 7ab0ad88-1788-4886-a44c-ae685e6f8a1a
+;; arch-tag: 7ab0ad88-1788-4886-a44c-ae685e6f8a1a
 ;;; talk.el ends here
diff --git a/lisp/tempo.el b/lisp/tempo.el
index cb5ba3b6e6f..75751367683 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -765,5 +765,5 @@ space bar, and looks something like this:
 
 (provide 'tempo)
 
-;;; arch-tag: b3c0ee36-db3b-47bc-875f-091b4e27a063
+;; arch-tag: b3c0ee36-db3b-47bc-875f-091b4e27a063
 ;;; tempo.el ends here
diff --git a/lisp/term.el b/lisp/term.el
index 77474557d8d..135f74d4f52 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -4282,5 +4282,5 @@ the process.  Any more args are arguments to PROGRAM."
 
 (provide 'term)
 
-;;; arch-tag: eee16bc8-2cd7-4147-9534-a5694752f716
+;; arch-tag: eee16bc8-2cd7-4147-9534-a5694752f716
 ;;; term.el ends here
diff --git a/lisp/term/apollo.el b/lisp/term/apollo.el
index c47de919b0c..fc75a3e5599 100644
--- a/lisp/term/apollo.el
+++ b/lisp/term/apollo.el
@@ -3,5 +3,5 @@
   "Terminal initialization function for apollo."
   (tty-run-terminal-initialization (selected-frame) "vt100"))
 
-;;; arch-tag: c72f446f-e6b7-4749-90a4-bd68632adacf
+;; arch-tag: c72f446f-e6b7-4749-90a4-bd68632adacf
 ;;; apollo.el ends here
diff --git a/lisp/term/bobcat.el b/lisp/term/bobcat.el
index 974476f6798..e7723b0706d 100644
--- a/lisp/term/bobcat.el
+++ b/lisp/term/bobcat.el
@@ -6,5 +6,5 @@
   (keyboard-translate ?\177 ?\^h)
   (keyboard-translate ?\^h ?\177))
 
-;;; arch-tag: 754e4520-0a3e-4e6e-8ca5-9481b1f85cf7
+;; arch-tag: 754e4520-0a3e-4e6e-8ca5-9481b1f85cf7
 ;;; bobcat.el ends here
diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 0c7d9446992..bcc8834394b 100644
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -729,5 +729,5 @@ list.  You can (and should) also run it whenever the value of
 ;; characters to arrive at our display code verbatim.
 (standard-display-8bit 127 255)
 
-;;; arch-tag: eea04c06-7311-4b5a-b531-3c1be1b070af
+;; arch-tag: eea04c06-7311-4b5a-b531-3c1be1b070af
 ;;; internal.el ends here
diff --git a/lisp/term/linux.el b/lisp/term/linux.el
index fdd8e2229ac..14736749786 100644
--- a/lisp/term/linux.el
+++ b/lisp/term/linux.el
@@ -19,5 +19,5 @@
   ;; The arg only matters in that it is not t or nil.
   (set-input-meta-mode 'iso-latin-1))
 
-;;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f
+;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f
 ;;; linux.el ends here
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index e3bb01eded9..5c301792728 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -245,5 +245,5 @@ are fixed-pitch."
 
 ;; ---------------------------------------------------------------------------
 
-;;; arch-tag: 5cbdb455-b495-427b-95d0-e417d77d00b4
+;; arch-tag: 5cbdb455-b495-427b-95d0-e417d77d00b4
 ;;; pc-win.el ends here
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index 3486aebf016..35f77eea97c 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -197,5 +197,5 @@ X and Y are 0-based character positions on the frame."
   (get-window-with-predicate (lambda (w)
                                (coordinates-in-window-p (cons x y) w))))
 
-;;; arch-tag: ec644ed4-cac4-43b8-b3db-cfe83e9098d7
+;; arch-tag: ec644ed4-cac4-43b8-b3db-cfe83e9098d7
 ;;; sup-mouse.el ends here
diff --git a/lisp/term/tty-colors.el b/lisp/term/tty-colors.el
index c314d4fada7..41f8e76ab0a 100644
--- a/lisp/term/tty-colors.el
+++ b/lisp/term/tty-colors.el
@@ -1043,5 +1043,5 @@ A color is considered gray if the 3 components of its RGB value are equal."
       (setq colors (cdr colors)))
     count))
 
-;;; arch-tag: 84d5c3ef-ae22-4754-99ac-e6350c0967ae
+;; arch-tag: 84d5c3ef-ae22-4754-99ac-e6350c0967ae
 ;;; tty-colors.el ends here
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el
index 10a15619f84..3f396d5e5d1 100644
--- a/lisp/term/vt100.el
+++ b/lisp/term/vt100.el
@@ -57,5 +57,5 @@ With negative argument, switch to 80-column mode."
  (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l"))
  (set-frame-width terminal-frame (if vt100-wide-mode 132 80)))
 
-;;; arch-tag: 9ff41f24-a7c9-4dee-9cf2-fbaa951eb840
+;; arch-tag: 9ff41f24-a7c9-4dee-9cf2-fbaa951eb840
 ;;; vt100.el ends here
diff --git a/lisp/term/vt102.el b/lisp/term/vt102.el
index 67a90a8242c..1f9bb00efab 100644
--- a/lisp/term/vt102.el
+++ b/lisp/term/vt102.el
@@ -4,5 +4,5 @@
   "Terminal initialization function for vt102."
   (tty-run-terminal-initialization (selected-frame) "vt100"))
 
-;;; arch-tag: 6e839cfc-125a-4574-82f1-c23a51f7c50f
+;; arch-tag: 6e839cfc-125a-4574-82f1-c23a51f7c50f
 ;;; vt102.el ends here
diff --git a/lisp/term/vt125.el b/lisp/term/vt125.el
index 82a7047fef1..b5a31e8a0f6 100644
--- a/lisp/term/vt125.el
+++ b/lisp/term/vt125.el
@@ -4,5 +4,5 @@
   "Terminal initialization function for vt125."
   (tty-run-terminal-initialization (selected-frame) "vt100"))
 
-;;; arch-tag: 1d92d70f-dd55-4a1d-9088-e215a4883801
+;; arch-tag: 1d92d70f-dd55-4a1d-9088-e215a4883801
 ;;; vt125.el ends here
diff --git a/lisp/terminal.el b/lisp/terminal.el
index dcccf5236c4..80fea721393 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -1346,5 +1346,5 @@ in the directory specified by `te-terminfo-directory'."
 
 (provide 'terminal)
 
-;;; arch-tag: 0ae1d7d7-90ef-4566-a531-6e7ff8c79b2f
+;; arch-tag: 0ae1d7d7-90ef-4566-a531-6e7ff8c79b2f
 ;;; terminal.el ends here
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index e44ec22ee6a..81c5a80c3e8 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -5546,5 +5546,5 @@ The event, EV, is the mouse event."
 ;; Don't hesitate to ask me any questions.
 
 
-;;; arch-tag: 3e63b881-aaaa-4b83-a072-220d4661a8a3
+;; arch-tag: 3e63b881-aaaa-4b83-a072-220d4661a8a3
 ;;; artist.el ends here
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 20e69e2d68e..d7aa455ef8f 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -237,5 +237,5 @@ named by variable `unread-bib-file'."
 
 (provide 'bib-mode)
 
-;;; arch-tag: e3a97958-3c2c-487f-9557-fafc3c98452d
+;; arch-tag: e3a97958-3c2c-487f-9557-fafc3c98452d
 ;;; bib-mode.el ends here
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index 24a54e8a564..959d11f11fe 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -503,5 +503,5 @@ the range of text to assign text property SYMBOL with value VALUE."
       (message "Warning: invalid <x-display> parameter %s" param))
     (list start end 'display prop)))
 
-;;; arch-tag: 05cae488-3fea-45cd-ac29-5b02cb64e42b
+;; arch-tag: 05cae488-3fea-45cd-ac29-5b02cb64e42b
 ;;; enriched.el ends here
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 7b69249c9b9..5eb74e49c8f 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -3809,5 +3809,5 @@ Both should not be used to define a buffer-local dictionary."
 ; LocalWords:  uuencoded unidiff sc nn VM SGML eval IspellPersDict unsplitable
 ; LocalWords:  lns XEmacs HTML casechars Multibyte
 
-;;; arch-tag: 4941b9f9-3b7c-4a76-a4ed-5fa8b6010ef5
+;; arch-tag: 4941b9f9-3b7c-4a76-a4ed-5fa8b6010ef5
 ;;; ispell.el ends here
diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el
index d4c23b6c748..2170f8a6960 100644
--- a/lisp/textmodes/makeinfo.el
+++ b/lisp/textmodes/makeinfo.el
@@ -291,5 +291,5 @@ line LINE of the window, or centered if LINE is nil."
 ;;; Place `provide' at end of file.
 (provide 'makeinfo)
 
-;;; arch-tag: 5f810713-3de2-4e20-8030-4bc3dd0d9604
+;; arch-tag: 5f810713-3de2-4e20-8030-4bc3dd0d9604
 ;;; makeinfo.el ends here
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index db5eceefe63..9570dac9aad 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -804,5 +804,5 @@ to the same line in the pages buffer."
 
 (provide 'page-ext)
 
-;;; arch-tag: 2f311550-c6e0-4458-9c12-7f039c058bdb
+;; arch-tag: 2f311550-c6e0-4458-9c12-7f039c058bdb
 ;;; page-ext.el ends here
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index ee7b2e17dca..e12723ca36f 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -164,5 +164,5 @@ thus showing a page other than the one point was originally in."
 ;;; Place `provide' at end of file.
 (provide 'page)
 
-;;; arch-tag: e8d7a0bd-8655-4b6e-b852-f2ee25316a1d
+;; arch-tag: e8d7a0bd-8655-4b6e-b852-f2ee25316a1d
 ;;; page.el ends here
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 3638d46d852..d3abbd1cbfc 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -775,5 +775,5 @@ Runs `picture-mode-exit-hook' at the end."
 
 (provide 'picture)
 
-;;; arch-tag: e452d08d-a470-4fbf-896e-ea276698d1ca
+;; arch-tag: e452d08d-a470-4fbf-896e-ea276698d1ca
 ;;; picture.el ends here
diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el
index 0335613c862..ec3e54851b8 100644
--- a/lisp/textmodes/po.el
+++ b/lisp/textmodes/po.el
@@ -133,5 +133,5 @@ Called through `file-coding-system-alist', before the file is visited for real."
 
 (provide 'po)
 
-;;; arch-tag: 56748a57-d64c-4200-8f6b-c3a70496eb8c
+;; arch-tag: 56748a57-d64c-4200-8f6b-c3a70496eb8c
 ;;; po.el ends here
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index 69565d1a31c..3bef5f7e281 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -753,5 +753,5 @@ Please send bug reports and suggestions to
 (provide 'refbib)
 (provide 'refer-to-bibtex)
 
-;;; arch-tag: 664afee2-6e76-4408-ba56-981d8a179586
+;; arch-tag: 664afee2-6e76-4408-ba56-981d8a179586
 ;;; refbib.el ends here
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 9e5720d79f4..f1dff20c0dc 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -398,5 +398,5 @@ found on the last `refer-find-entry' or `refer-find-next-entry'."
         (setq refer-bib-files files))
     files))
 
-;;; arch-tag: 151f641b-e79b-462b-9a29-a95c3793f300
+;; arch-tag: 151f641b-e79b-462b-9a29-a95c3793f300
 ;;; refer.el ends here
diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el
index 1a62cf949c8..49d0d594d1d 100644
--- a/lisp/textmodes/reftex-auc.el
+++ b/lisp/textmodes/reftex-auc.el
@@ -225,5 +225,5 @@ of ENTRY-LIST is a list of cons cells (\"MACRONAME\" . LEVEL).  See
 (defun reftex-notice-new-section ()
   (reftex-notice-new 1 'force))
 
-;;; arch-tag: 4a798e68-3405-421c-a09b-0269aac64ab4
+;; arch-tag: 4a798e68-3405-421c-a09b-0269aac64ab4
 ;;; reftex-auc.el ends here
diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index e160db307dc..4d52a7d6e7f 100644
--- a/lisp/textmodes/reftex-cite.el
+++ b/lisp/textmodes/reftex-cite.el
@@ -1176,5 +1176,5 @@ The sequence in the new file is the same as it was in the old database."
              (length entries))))
 
 
-;;; arch-tag: d53d0a5a-ab32-4b52-a846-2a7c3527cd89
+;; arch-tag: d53d0a5a-ab32-4b52-a846-2a7c3527cd89
 ;;; reftex-cite.el ends here
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index f0c21379586..a2d713fd094 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -485,5 +485,5 @@ Calling this function several times find successive citation locations."
       (move-marker reftex-global-search-marker nil)
       (error "All files processed"))))
 
-;;; arch-tag: d2f52b56-744e-44ad-830d-1fc193b90eda
+;; arch-tag: d2f52b56-744e-44ad-830d-1fc193b90eda
 ;;; reftex-dcr.el ends here
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index ee5f6f85c4d..9f1a1853287 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -467,5 +467,5 @@ With no argument, this command toggles
 (add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil 
                 'reftex-isearch-minor-mode)
 
-;;; arch-tag: 2dbf7633-92c8-4340-8656-7aa019d0f80d
+;; arch-tag: 2dbf7633-92c8-4340-8656-7aa019d0f80d
 ;;; reftex-global.el ends here
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index 1f69e3fbb9b..fc93e240ad2 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -2106,5 +2106,5 @@ Does not do a save-excursion."
    ["Save and Return" reftex-index-phrases-save-and-return t]))
 
 
-;;; arch-tag: 4b2362af-c156-42c1-8932-ea2823e205c1
+;; arch-tag: 4b2362af-c156-42c1-8932-ea2823e205c1
 ;;; reftex-index.el ends here
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el
index 50584f17046..ef151cf4e57 100644
--- a/lisp/textmodes/reftex-parse.el
+++ b/lisp/textmodes/reftex-parse.el
@@ -1070,5 +1070,5 @@ of master file."
               nrest (- nrest i))))
     string))
 
-;;; arch-tag: 6a8168f7-abb9-4576-99dc-fcbc7ba901a3
+;; arch-tag: 6a8168f7-abb9-4576-99dc-fcbc7ba901a3
 ;;; reftex-parse.el ends here
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index 0cdc7811a8d..91c835c4163 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -848,5 +848,5 @@ Optional prefix argument OTHER-WINDOW goes to the label in another window."
 
 
 
-;;; arch-tag: 52f14032-fb76-4d31-954f-750c72415675
+;; arch-tag: 52f14032-fb76-4d31-954f-750c72415675
 ;;; reftex-ref.el ends here
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el
index aadef03fbcb..66d87b7bf15 100644
--- a/lisp/textmodes/reftex-sel.el
+++ b/lisp/textmodes/reftex-sel.el
@@ -739,5 +739,5 @@ Useful for large TOC's."
       do (define-key reftex-select-bib-map (car x) (cdr x)))
   
 
-;;; arch-tag: 842078ff-0586-4e0b-957e-536e08218464
+;; arch-tag: 842078ff-0586-4e0b-957e-536e08218464
 ;;; reftex-sel.el ends here
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el
index 31ca3c0cf6c..7b4857cc3fc 100644
--- a/lisp/textmodes/reftex-toc.el
+++ b/lisp/textmodes/reftex-toc.el
@@ -1100,5 +1100,5 @@ always show the current section in connection with the option
    ["Help" reftex-toc-show-help t]))
 
 
-;;; arch-tag: 92400ce2-0b86-4c89-a606-4ed71acea17e
+;; arch-tag: 92400ce2-0b86-4c89-a606-4ed71acea17e
 ;;; reftex-toc.el ends here
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el
index 6d119fc2ffa..971d317a52f 100644
--- a/lisp/textmodes/reftex-vars.el
+++ b/lisp/textmodes/reftex-vars.el
@@ -1909,5 +1909,5 @@ construct:  \\bbb [xxx] {aaa}."
 
 (provide 'reftex-vars)
 
-;;; arch-tag: 9591ea34-ef39-4431-90b7-c115eaf5e16f
+;; arch-tag: 9591ea34-ef39-4431-90b7-c115eaf5e16f
 ;;; reftex-vars.el ends here
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 8a8f9249175..3f6244bf4c8 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -2597,5 +2597,5 @@ With optional NODE, go directly to that node."
 
 ;;;============================================================================
 
-;;; arch-tag: 49e0da4e-bd5e-4cfc-a717-fb444fccb9e6
+;; arch-tag: 49e0da4e-bd5e-4cfc-a717-fb444fccb9e6
 ;;; reftex.el ends here
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index 01eff7616a7..d021369a3f2 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -176,5 +176,5 @@ for example, \"word\"."
 
 (provide 'spell)
 
-;;; arch-tag: 7eabb848-9c76-431a-bcdb-0e0592d2db04
+;; arch-tag: 7eabb848-9c76-431a-bcdb-0e0592d2db04
 ;;; spell.el ends here
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index e3285105463..0586c6023f0 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -2060,5 +2060,5 @@ chapter."
 ;; Place `provide' at end of file.
 (provide 'texnfo-upd)
 
-;;; arch-tag: d21613a5-c32f-43f4-8af4-bfb1e7455842
+;; arch-tag: d21613a5-c32f-43f4-8af4-bfb1e7455842
 ;;; texnfo-upd.el ends here
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index 7ba11290d1b..cd1fe55bdac 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -180,5 +180,5 @@ The argument NLINES says how many lines to center."
            (setq nlines (1+ nlines))
            (forward-line -1)))))
 
-;;; arch-tag: a07ccaad-da13-4d7b-9c61-cd04f5926aab
+;; arch-tag: a07ccaad-da13-4d7b-9c61-cd04f5926aab
 ;;; text-mode.el ends here
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index a84279fa765..6ed1a015d56 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -355,5 +355,5 @@ further questions)."
 ;; coding: iso-latin-2
 ;; End:
 
-;;; arch-tag: fc9b05a6-7355-4639-8170-dcf57853ba22
+;; arch-tag: fc9b05a6-7355-4639-8170-dcf57853ba22
 ;;; tildify.el ends here
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index 2cc74efbd19..b4ddfa59e2b 100644
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -642,5 +642,5 @@ on, this also realigns the two buffers."
 
 (provide 'two-column)
 
-;;; arch-tag: 2021b5ab-d3a4-4a8c-a21c-1936b0f9e6b1
+;; arch-tag: 2021b5ab-d3a4-4a8c-a21c-1936b0f9e6b1
 ;;; two-column.el ends here
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index 06560e04f9d..c00d62d3f61 100644
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -63,5 +63,5 @@ which specify the range to operate on."
 
 (provide 'underline)
 
-;;; arch-tag: e7b48582-c3ea-4386-987a-87415f3c372a
+;; arch-tag: e7b48582-c3ea-4386-987a-87415f3c372a
 ;;; underline.el ends here
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index bb7e025e303..cdc0857a638 100644
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -776,5 +776,5 @@ The first character of DD is space if the value is less than 10."
 
 (provide 'time-stamp)
 
-;;; arch-tag: 8a12c5c3-25d6-4a71-adc5-24b0e025a1e7
+;; arch-tag: 8a12c5c3-25d6-4a71-adc5-24b0e025a1e7
 ;;; time-stamp.el ends here
diff --git a/lisp/time.el b/lisp/time.el
index d889a7c7531..3db8e97a45e 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -576,5 +576,5 @@ For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"."
 
 (provide 'time)
 
-;;; arch-tag: b9c1623f-b5cb-48e4-b650-482a4d23c5a6
+;; arch-tag: b9c1623f-b5cb-48e4-b650-482a4d23c5a6
 ;;; time.el ends here
diff --git a/lisp/timezone.el b/lisp/timezone.el
index 3c51fff7874..89a66bc719e 100644
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -398,5 +398,5 @@ The Gregorian date Sunday, December 31, 1 BC is imaginary."
 
 (provide 'timezone)
 
-;;; arch-tag: e23d5bc6-f32d-48ba-8996-323e9d654b3f
+;; arch-tag: e23d5bc6-f32d-48ba-8996-323e9d654b3f
 ;;; timezone.el ends here
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el
index 0fe716d579b..a224b4375bc 100644
--- a/lisp/tool-bar.el
+++ b/lisp/tool-bar.el
@@ -290,5 +290,5 @@ holds a keymap."
 
 
 (provide 'tool-bar)
-;;; arch-tag: 15f30f0a-d0d7-4d50-bbb7-f48fd0c8582f
+;; arch-tag: 15f30f0a-d0d7-4d50-bbb7-f48fd0c8582f
 ;;; tool-bar.el ends here
diff --git a/lisp/type-break.el b/lisp/type-break.el
index 8c4a4e888cf..15c29fc12ff 100644
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -1274,5 +1274,5 @@ With optional non-nil ALL, force redisplay of all mode-lines."
 (if type-break-mode
     (type-break-mode 1))
 
-;;; arch-tag: 943a2eb3-07e6-420b-993f-96e4796f5fd0
+;; arch-tag: 943a2eb3-07e6-420b-993f-96e4796f5fd0
 ;;; type-break.el ends here
diff --git a/lisp/url/url-cid.el b/lisp/url/url-cid.el
index 8bdbe1179cc..8aac46dad66 100644
--- a/lisp/url/url-cid.el
+++ b/lisp/url/url-cid.el
@@ -62,5 +62,5 @@
    (t
     (message "Unable to handle CID URL: %s" url))))
 
-;;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5
+;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5
 ;;; url-cid.el ends here
diff --git a/lisp/url/url-dired.el b/lisp/url/url-dired.el
index 79394eed2a8..7dfe2075a06 100644
--- a/lisp/url/url-dired.el
+++ b/lisp/url/url-dired.el
@@ -92,5 +92,5 @@ Example:  (add-minor-mode 'view-minor-mode \" View\" view-mode-map)"
 
 (provide 'url-dired)
 
-;;; arch-tag: 2694f21a-43e1-4391-b3cb-cf6e5349f15f
+;; arch-tag: 2694f21a-43e1-4391-b3cb-cf6e5349f15f
 ;;; url-dired.el ends here
diff --git a/lisp/url/url-ftp.el b/lisp/url/url-ftp.el
index d66f58e31bc..fd8a80d83e1 100644
--- a/lisp/url/url-ftp.el
+++ b/lisp/url/url-ftp.el
@@ -43,5 +43,5 @@
 
 (provide 'url-ftp)
 
-;;; arch-tag: 9c3e70c4-350f-4d4a-bb51-a1e9b459e7dc
+;; arch-tag: 9c3e70c4-350f-4d4a-bb51-a1e9b459e7dc
 ;;; url-ftp.el ends here
diff --git a/lisp/url/url-imap.el b/lisp/url/url-imap.el
index e267c52c012..c5dc33c7f8d 100644
--- a/lisp/url/url-imap.el
+++ b/lisp/url/url-imap.el
@@ -79,5 +79,5 @@
              )))
     (current-buffer)))
 
-;;; arch-tag: 034991ff-5425-48ea-b911-c96c90e6f47d
+;; arch-tag: 034991ff-5425-48ea-b911-c96c90e6f47d
 ;;; url-imap.el ends here
diff --git a/lisp/url/url-irc.el b/lisp/url/url-irc.el
index 759ea91914f..d791bec037d 100644
--- a/lisp/url/url-irc.el
+++ b/lisp/url/url-irc.el
@@ -92,5 +92,5 @@ PASSWORD - What password to use"
 
 (provide 'url-irc)
 
-;;; arch-tag: 2e5eecf8-9eb3-436b-9fbd-c26f2fb2bf3e
+;; arch-tag: 2e5eecf8-9eb3-436b-9fbd-c26f2fb2bf3e
 ;;; url-irc.el ends here
diff --git a/lisp/url/url-misc.el b/lisp/url/url-misc.el
index 61e3198ec2c..f39e1584e74 100644
--- a/lisp/url/url-misc.el
+++ b/lisp/url/url-misc.el
@@ -117,5 +117,5 @@
 
 (provide 'url-misc)
 
-;;; arch-tag: 8c544e1b-d8bc-40a6-b319-f1f37fef65a0
+;; arch-tag: 8c544e1b-d8bc-40a6-b319-f1f37fef65a0
 ;;; url-misc.el ends here
diff --git a/lisp/url/url-ns.el b/lisp/url/url-ns.el
index 5f36b77fe80..b8b3287e64c 100644
--- a/lisp/url/url-ns.el
+++ b/lisp/url/url-ns.el
@@ -104,5 +104,5 @@
 
 (provide 'url-ns)
 
-;;; arch-tag: 69520992-cf97-40b4-9ad1-c866d3cae5bf
+;; arch-tag: 69520992-cf97-40b4-9ad1-c866d3cae5bf
 ;;; url-ns.el ends here
diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el
index 9a1f992be9d..4f20c57939c 100644
--- a/lisp/url/url-proxy.el
+++ b/lisp/url/url-proxy.el
@@ -78,5 +78,5 @@
   
 (provide 'url-proxy)
 
-;;; arch-tag: 4ff8882e-e498-42b7-abc5-acb449cdbc62
+;; arch-tag: 4ff8882e-e498-42b7-abc5-acb449cdbc62
 ;;; url-proxy.el ends here
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 4f9c341b9d5..e91561185c5 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -400,5 +400,5 @@ This should be set, e.g. by mail user agents rendering HTML to avoid
 
 (provide 'url-vars)
 
-;;; arch-tag: 29205e5f-c5ce-433c-8d5d-38cbaed64b49
+;; arch-tag: 29205e5f-c5ce-433c-8d5d-38cbaed64b49
 ;;; url-vars.el ends here
diff --git a/lisp/userlock.el b/lisp/userlock.el
index ed9ccb115d0..7369fe4224b 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -161,5 +161,5 @@ to get the latest version of the file, then make the change again.")
       (set-buffer standard-output)
       (help-mode))))
 
-;;; arch-tag: a61c5b60-e1c8-44fd-894a-c617f4dfc639
+;; arch-tag: a61c5b60-e1c8-44fd-894a-c617f4dfc639
 ;;; userlock.el ends here
diff --git a/lisp/view.el b/lisp/view.el
index f2fdbbe0c59..3ca3de51db1 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -1100,5 +1100,5 @@ If TIMES is negative, search backwards."
 
 (provide 'view)
 
-;;; arch-tag: 6d0ace36-1d12-4de3-8de3-1fa3231636d7
+;; arch-tag: 6d0ace36-1d12-4de3-8de3-1fa3231636d7
 ;;; view.el ends here
diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index cb8c13bb039..1bc85e37e11 100644
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -266,5 +266,5 @@ the old one."
   (define-key m "/" 'vms-magic-right-square-brace)
   (define-key m ":" 'vms-magic-colon))
 
-;;; arch-tag: c178494e-2c37-4d02-99b7-e47e615656cf
+;; arch-tag: c178494e-2c37-4d02-99b7-e47e615656cf
 ;;; vms-patch.el ends here
diff --git a/lisp/vt-control.el b/lisp/vt-control.el
index 37ac377980b..3eaf27b13b8 100644
--- a/lisp/vt-control.el
+++ b/lisp/vt-control.el
@@ -107,5 +107,5 @@
 
 (provide 'vt-control)
 
-;;; arch-tag: d4fed1bf-2524-4ba1-a4fe-86bca3d928a2
+;; arch-tag: d4fed1bf-2524-4ba1-a4fe-86bca3d928a2
 ;;; vt-control.el ends here
diff --git a/lisp/vt100-led.el b/lisp/vt100-led.el
index 8be2dce22d4..f9b50afa3df 100644
--- a/lisp/vt100-led.el
+++ b/lisp/vt100-led.el
@@ -68,5 +68,5 @@ Element 0 is not used.")
 
 (provide 'vt100-led)
 
-;;; arch-tag: 346e6480-5e31-4234-aafe-257cea4a36d1
+;; arch-tag: 346e6480-5e31-4234-aafe-257cea4a36d1
 ;;; vt100-led.el ends here
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index cfedd008932..a0558b7dcf7 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -489,5 +489,5 @@ to include Sed, which is used by leim/Makefile.in to do the job."
   (delete-matching-lines "^$\\|^;")
   (save-buffers-kill-emacs t))
 
-;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14
+;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14
 ;;; w32-fns.el ends here
diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el
index 03ecf5355b1..9e639319680 100644
--- a/lisp/w32-vars.el
+++ b/lisp/w32-vars.el
@@ -157,5 +157,5 @@ This is in addition to the primary selection."
 
 (provide 'w32-vars)
 
-;;; arch-tag: ee2394fb-9db7-4c15-a8f0-66b47f4a2bb1
+;; arch-tag: ee2394fb-9db7-4c15-a8f0-66b47f4a2bb1
 ;;; w32-vars.el ends here
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 7e89f002b37..373becd3b59 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3799,5 +3799,5 @@ example:
 
 (provide 'wid-edit)
 
-;;; arch-tag: a076e75e-18a1-4b46-8be5-3f317bcbc707
+;; arch-tag: a076e75e-18a1-4b46-8be5-3f317bcbc707
 ;;; wid-edit.el ends here
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 113c661b05e..e753a9601ec 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -570,5 +570,5 @@ Default MODIFIER is 'shift."
 
 (provide 'windmove)
 
-;;; arch-tag: 56267432-bf1a-4296-a9a0-85c6bd9f2375
+;; arch-tag: 56267432-bf1a-4296-a9a0-85c6bd9f2375
 ;;; windmove.el ends here
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 7e5368f322a..dd914581533 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -756,5 +756,5 @@ FORMAT is 32 (not used).  MESSAGE is the data part of an XClientMessageEvent."
 
 (provide 'x-dnd)
 
-;;; arch-tag: b621fb7e-50da-4323-850b-5fc71ae64621
+;; arch-tag: b621fb7e-50da-4323-850b-5fc71ae64621
 ;;; x-dnd.el ends here