From 6687ffc7be95eba9d7c25f51c1f7eb685ab54e16 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 15 Dec 2006 16:24:04 +0000 Subject: Replace `/' with a `-', to fix a problem on Cygwin. --- lisp/emulation/edt-mapper.el | 12 ++++++++---- lisp/emulation/edt.el | 12 ++++++++---- 2 files changed, 16 insertions(+), 8 deletions(-) (limited to 'lisp') diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el index cee60c6ec8..53bb8e63d3 100644 --- a/lisp/emulation/edt-mapper.el +++ b/lisp/emulation/edt-mapper.el @@ -3,8 +3,8 @@ ;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, ;; 2005, 2006 Free Software Foundation, Inc. -;; Author: Kevin Gallagher -;; Maintainer: Kevin Gallagher +;; Author: Kevin Gallagher +;; Maintainer: Kevin Gallagher ;; Keywords: emulations ;; This file is part of GNU Emacs. @@ -129,8 +129,12 @@ (defconst edt-xserver (if (eq edt-window-system 'x) (if edt-x-emacs-p - (replace-in-string (x-server-vendor) "[ _]" "-") - (subst-char-in-string ? ?- (x-server-vendor))) + ;; The Cygwin window manager has a `/' in its + ;; name, which breaks the generated file name of + ;; the custom key map file. Replace `/' with a + ;; `-' to work around that. + (replace-in-string (x-server-vendor) "[ /]" "-") + (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor)))) nil) "Indicates X server vendor name, if applicable.") diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index ae131dc50e..89d017a1ca 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -3,8 +3,8 @@ ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003, ;; 2004, 2005, 2006 Free Software Foundation, Inc. -;; Author: Kevin Gallagher -;; Maintainer: Kevin Gallagher +;; Author: Kevin Gallagher +;; Maintainer: Kevin Gallagher ;; Keywords: emulations ;; This file is part of GNU Emacs. @@ -339,8 +339,12 @@ This means that an edt-user.el file was found in the user's `load-path'.") (defconst edt-xserver (if (eq edt-window-system 'x) (if edt-x-emacs19-p - (replace-in-string (x-server-vendor) "[ _]" "-") - (subst-char-in-string ? ?- (x-server-vendor))) + ;; The Cygwin window manager has a `/' in its + ;; name, which breaks the generated file name of + ;; the custom key map file. Replace `/' with a + ;; `-' to work around that. + (replace-in-string (x-server-vendor) "[ /]" "-") + (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor)))) nil) "Indicates X server vendor name, if applicable.") -- cgit v1.2.3