[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/edt-mapper.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/edt-mapper.el,v |
Date: |
Thu, 25 Oct 2007 23:25:11 +0000 |
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))))