Add arch taglines

33 files changed, 33 insertions, 0 deletions

diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el
index 1885580945..31248018c4 100644
--- a/lisp/term/AT386.el
+++ b/lisp/term/AT386.el
@@ -57,4 +57,5 @@
   (define-key function-key-map "\eN" [27]) ; ALT map
   )
 
+;;; arch-tag: abec1b03-582f-49f8-b8cb-e2fd52ea4bd7
 ;;; AT386.el ends here
diff --git a/lisp/term/apollo.el b/lisp/term/apollo.el
index 3a2961811a..1d04fd3524 100644
--- a/lisp/term/apollo.el
+++ b/lisp/term/apollo.el
@@ -2,4 +2,5 @@
 
 (load "term/vt100" nil t)
 
+;;; arch-tag: c72f446f-e6b7-4749-90a4-bd68632adacf
 ;;; apollo.el ends here
diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index 7291b877d5..abcbb4904f 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -296,4 +296,5 @@ X and Y are 0-based character positions on the screen."
 
 (provide 'bg-mouse)
 
+;;; arch-tag: b3d06605-2971-44b1-be2c-e49c24e1a8d3
 ;;; bg-mouse.el ends here
diff --git a/lisp/term/bobcat.el b/lisp/term/bobcat.el
index 85f211e39f..85f816570e 100644
--- a/lisp/term/bobcat.el
+++ b/lisp/term/bobcat.el
@@ -2,4 +2,5 @@
 ;;; HP terminals usually encourage using ^H as the rubout character
 (load "term/keyswap" nil t)
 
+;;; arch-tag: 754e4520-0a3e-4e6e-8ca5-9481b1f85cf7
 ;;; bobcat.el ends here
diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 8b22a0e02c..87a78d2e9a 100644
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -728,4 +728,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
 ;;; internal.el ends here
diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el
index 199f724e0c..e73c3e1996 100644
--- a/lisp/term/iris-ansi.el
+++ b/lisp/term/iris-ansi.el
@@ -322,4 +322,5 @@
 (define-key function-key-map "\e[196q" [C-delete])
 (define-key function-key-map "\e[197q" [M-delete])
 
+;;; arch-tag: b1d0e73a-bb7d-47be-9fb2-6fb126469a1b
 ;;; iris-ansi.el ends here
diff --git a/lisp/term/keyswap.el b/lisp/term/keyswap.el
index e9b4519543..d636a22bb9 100644
--- a/lisp/term/keyswap.el
+++ b/lisp/term/keyswap.el
@@ -38,4 +38,5 @@
   (aset the-table ?\^h ?\177)
   (setq keyboard-translate-table the-table))
 
+;;; arch-tag: 67cf7009-e23e-421c-9648-078e7277297c
 ;;; keyswap.el ends here
diff --git a/lisp/term/linux.el b/lisp/term/linux.el
index 2b4e7abc6d..80bfe83a4e 100644
--- a/lisp/term/linux.el
+++ b/lisp/term/linux.el
@@ -12,4 +12,5 @@
   ;; The third arg only matters in that it is not t or nil.
   (set-input-mode (nth 0 value) (nth 1 value) 'iso-latin-1 (nth 3 value)))
 
+;;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f
 ;;; linux.el ends here
diff --git a/lisp/term/lk201.el b/lisp/term/lk201.el
index 920b3e1b91..1f8d9ca77a 100644
--- a/lisp/term/lk201.el
+++ b/lisp/term/lk201.el
@@ -68,4 +68,5 @@
 (define-key function-key-map "\eOx" [kp-8])
 (define-key function-key-map "\eOy" [kp-9])
 
+;;; arch-tag: 7ffb4444-6a23-43e1-b457-43cf4f673c0d
 ;;; lk201.el ends here
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index f9712a5a52..9a61a8057b 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1017,4 +1017,5 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
   "The list of X colors from the `rgb.txt' file.
 XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 
+;;; arch-tag: 71dfcd14-cde8-4d66-b05c-85ec94fb23a6
 ;;; mac-win.el ends here
diff --git a/lisp/term/news.el b/lisp/term/news.el
index 4d7bc17b58..a6f7481c42 100644
--- a/lisp/term/news.el
+++ b/lisp/term/news.el
@@ -70,4 +70,5 @@
   (define-key news-fkey-prefix "x" [kp-8])
   )
 
+;;; arch-tag: bfe141a0-623b-4b42-b753-5d9353776c5e
 ;;; news.el ends here
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index 0e40d51daf..663e3ea3e6 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -240,4 +240,5 @@ are fixed-pitch."
 
 ;; ---------------------------------------------------------------------------
 
+;;; arch-tag: 5cbdb455-b495-427b-95d0-e417d77d00b4
 ;;; pc-win.el ends here
diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el
index 5bd89efe26..7839ebba95 100644
--- a/lisp/term/rxvt.el
+++ b/lisp/term/rxvt.el
@@ -172,4 +172,5 @@ for the currently selected frame."
 ;; This recomputes all the default faces given the colors we've just set up.
 (tty-set-up-initial-frame-faces)
 
+;;; arch-tag: 20cf2fb6-6318-4bab-9dbf-1d15048f2257
 ;;; rxvt.el ends here
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 95fa4b5344..8d9bfb67cf 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -679,4 +679,5 @@ just close the window, and wait for reopening."
 (provide 'sun-mouse)
 (provide 'term/sun-mouse)		; have to (require 'term/sun-mouse)
 
+;;; arch-tag: 6e879372-b899-4509-833f-d7f6250e309a
 ;;; sun-mouse.el ends here
diff --git a/lisp/term/sun.el b/lisp/term/sun.el
index ed211ee8fc..e0564d44ec 100644
--- a/lisp/term/sun.el
+++ b/lisp/term/sun.el
@@ -274,4 +274,5 @@
   (sun-mouse-handler))			; Now, execute this mouse blip.
 (define-key ctl-x-map "\C-@" 'sun-mouse-once)
 
+;;; arch-tag: db761d47-fd7d-42b4-aae1-04fa116b6ba6
 ;;; sun.el ends here
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index 9ef05b42f6..1ae0b25a73 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -196,4 +196,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
 ;;; sup-mouse.el ends here
diff --git a/lisp/term/tty-colors.el b/lisp/term/tty-colors.el
index 627fc89e11..4fe39bce61 100644
--- a/lisp/term/tty-colors.el
+++ b/lisp/term/tty-colors.el
@@ -1047,4 +1047,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
 ;;; tty-colors.el ends here
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el
index 67864a6d8e..425ac20092 100644
--- a/lisp/term/tvi970.el
+++ b/lisp/term/tvi970.el
@@ -123,4 +123,5 @@ With a negative argument, select numeric keypad mode."
 
 (tvi970-set-keypad-mode 1)
 
+;;; arch-tag: c1334cf0-1462-41c3-a963-c077d175f8f0
 ;;; tvi970.el ends here
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el
index cc33087ea5..aa73722b15 100644
--- a/lisp/term/vt100.el
+++ b/lisp/term/vt100.el
@@ -53,4 +53,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
 ;;; vt100.el ends here
diff --git a/lisp/term/vt102.el b/lisp/term/vt102.el
index 4a2462aa81..887f63837e 100644
--- a/lisp/term/vt102.el
+++ b/lisp/term/vt102.el
@@ -2,4 +2,5 @@
 
 (load "term/vt100" nil t)
 
+;;; arch-tag: 6e839cfc-125a-4574-82f1-c23a51f7c50f
 ;;; vt102.el ends here
diff --git a/lisp/term/vt125.el b/lisp/term/vt125.el
index bd5ecadf5c..458e0dafc2 100644
--- a/lisp/term/vt125.el
+++ b/lisp/term/vt125.el
@@ -2,4 +2,5 @@
 
 (load "term/vt100" nil t)
 
+;;; arch-tag: 1d92d70f-dd55-4a1d-9088-e215a4883801
 ;;; vt125.el ends here
diff --git a/lisp/term/vt200.el b/lisp/term/vt200.el
index e77c910ac5..0ff0a30f56 100644
--- a/lisp/term/vt200.el
+++ b/lisp/term/vt200.el
@@ -6,4 +6,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: 0f78f583-9f32-4237-b106-28bcfff21d89
 ;;; vt200.el ends here
diff --git a/lisp/term/vt201.el b/lisp/term/vt201.el
index 5f1c6c8716..d7deeaf11c 100644
--- a/lisp/term/vt201.el
+++ b/lisp/term/vt201.el
@@ -6,4 +6,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: a6abb38f-60ea-449e-a9e9-3fb8572c52ae
 ;;; vt201.el ends here
diff --git a/lisp/term/vt220.el b/lisp/term/vt220.el
index eaa6243de6..7ea1e3b57f 100644
--- a/lisp/term/vt220.el
+++ b/lisp/term/vt220.el
@@ -6,4 +6,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871
 ;;; vt220.el ends here
diff --git a/lisp/term/vt240.el b/lisp/term/vt240.el
index 0884097758..05f0bebe50 100644
--- a/lisp/term/vt240.el
+++ b/lisp/term/vt240.el
@@ -6,4 +6,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: d9f88e9c-02dc-49ff-871c-a415f08e4eb7
 ;;; vt240.el ends here
diff --git a/lisp/term/vt300.el b/lisp/term/vt300.el
index cd290f3f07..871ed234bc 100644
--- a/lisp/term/vt300.el
+++ b/lisp/term/vt300.el
@@ -4,4 +4,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: 876831c9-a6f2-444a-b033-706e6fbc149f
 ;;; vt300.el ends here
diff --git a/lisp/term/vt320.el b/lisp/term/vt320.el
index fdbcdb2bbc..c99b8672fc 100644
--- a/lisp/term/vt320.el
+++ b/lisp/term/vt320.el
@@ -4,4 +4,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: f9f4c954-0b9e-45f9-b450-a320d32abd9c
 ;;; vt320.el ends here
diff --git a/lisp/term/vt400.el b/lisp/term/vt400.el
index 7034d6d55e..666266e2bf 100644
--- a/lisp/term/vt400.el
+++ b/lisp/term/vt400.el
@@ -4,4 +4,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5
 ;;; vt400.el ends here
diff --git a/lisp/term/vt420.el b/lisp/term/vt420.el
index b5ce8ee10c..9ed5fbe135 100644
--- a/lisp/term/vt420.el
+++ b/lisp/term/vt420.el
@@ -4,4 +4,5 @@
 ;; Make F11 an escape key.
 (define-key function-key-map "\e[23~" [?\e])
 
+;;; arch-tag: df2f897c-3a12-4b3c-9259-df089f96c160
 ;;; vt420.el ends here
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 27f72f9412..f43d8b235d 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -1255,4 +1255,5 @@ font dialog to get the matching FONTS. Otherwise use a pop-up menu
 	(if (null font)
 	    (error "Font not found")))))
 
+;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166
 ;;; w32-win.el ends here
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el
index 8bb12e6d75..edcbe1259f 100644
--- a/lisp/term/wyse50.el
+++ b/lisp/term/wyse50.el
@@ -148,4 +148,5 @@ M-r	M-x move-to-window-line, Funct up-arrow or down-arrow are similar
 		      (send-string-to-terminal
 		       (concat "\ea23R" (1+ (frame-width)) "C\eG0")))))
 
+;;; arch-tag: b6a05d37-eead-4cf6-b997-0f956c68881c
 ;;; wyse50.el ends here
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index ac5d14d114..d6260cb0bf 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2456,4 +2456,5 @@ order until succeed.")
 ;; Turn on support for mouse wheels.
 (mouse-wheel-mode 1)
 
+;;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
 ;;; x-win.el ends here
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 372b5f65ff..d66646876b 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -236,4 +236,5 @@ versions of xterm."
 ;; This recomputes all the default faces given the colors we've just set up.
 (tty-set-up-initial-frame-faces)
 
+;;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
 ;;; xterm.el ends here