[Emacs-diffs] Changes to emacs/lisp/emulation/edt-mapper.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/10/25 23:25:10

Index: emulation/edt-mapper.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/edt-mapper.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- emulation/edt-mapper.el     21 Oct 2007 17:22:03 -0000      1.21
+++ emulation/edt-mapper.el     25 Oct 2007 23:25:08 -0000      1.22
@@ -118,12 +118,6 @@
 ;;;  Decide Emacs Variant, GNU Emacs or XEmacs (aka Lucid Emacs).
 ;;;  Determine Window System, and X Server Vendor (if appropriate).
 ;;;
-(defconst (featurep 'xemacs) (string-match "XEmacs" emacs-version)
-  "Non-nil if we are running XEmacs version 19, or higher.")
-
-(defconst edt-emacs-variant (if (featurep 'xemacs) "xemacs" "gnu")
-  "Indicates Emacs variant:  GNU Emacs or XEmacs \(aka Lucid Emacs\).")
-
 (defconst edt-window-system (if (featurep 'xemacs) (console-type) 
window-system)
   "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
 
@@ -514,7 +508,7 @@
 ;;;  Save the key mapping file
 ;;;
 (let ((file (concat
-            "~/.edt-" edt-emacs-variant
+            "~/.edt-" (if (featurep 'xemacs) "xemacs" "gnu")
             (if edt-term (concat "-" edt-term))
             (if edt-xserver (concat "-" edt-xserver))
             (if edt-window-system (concat "-" (upcase (symbol-name 
edt-window-system))))