diff options
| author | Eli Zaretskii <[email protected]> | 2006-12-15 16:24:04 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2006-12-15 16:24:04 +0000 |
| commit | 6687ffc7be95eba9d7c25f51c1f7eb685ab54e16 (patch) | |
| tree | 1d960176b7676204973cb40348c3487023cfe3c5 /lisp | |
| parent | 09e5121dcb5c59c85f21689bbf0114bfe45b07c5 (diff) | |
Replace `/' with a `-', to fix a problem on Cygwin.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/edt-mapper.el | 12 | ||||
| -rw-r--r-- | lisp/emulation/edt.el | 12 |
2 files changed, 16 insertions, 8 deletions
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 <[email protected]> -;; Maintainer: Kevin Gallagher <[email protected]> +;; Author: Kevin Gallagher <[email protected]> +;; Maintainer: Kevin Gallagher <[email protected]> ;; 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 <[email protected]> -;; Maintainer: Kevin Gallagher <[email protected]> +;; Author: Kevin Gallagher <[email protected]> +;; Maintainer: Kevin Gallagher <[email protected]> ;; 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.") |