From cafef6ab6bc8cc8fd5f3374150a3c2e88845f9e4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 16 Dec 1996 01:39:18 +0000
Subject: [PATCH] (register-name-alist): Use defvar.

---
 lisp/dos-fns.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index 2d7ad746c77..00d4a36d0e1 100644
--- a/lisp/dos-fns.el
+++ b/lisp/dos-fns.el
@@ -81,7 +81,7 @@ with a definition that really does change some file names."
 (defvar msdos-shells '("command.com" "4dos.com" "ndos.com")
   "*List of shells that use `/c' instead of `-c' and a backslashed command.")
 
-(defconst register-name-alist
+(defvar register-name-alist
   '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5)
     (cflag . 6) (flags . 7)
     (al . (0 . 0)) (bl . (1 . 0)) (cl . (2 . 0)) (dl . (3 . 0))
-- 
2.39.5