Mercurial > emacs

comparison lisp/emulation/edt.el @ 90729:6588c6259dfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 545-562) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - erc-iswitchb: Temporarily enable iswitchb mode * gnus--rel--5.10 (patch 172-176) - Merge from emacs--devo--0 - Update from CVS - Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice. Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
author Miles Bader <miles@gnu.org>
date Sat, 16 Dec 2006 01:29:26 +0000
parents c5406394f567 11fae7eadf2d
children 95d0cdf160ea
comparison
equal deleted inserted replaced
90728:a65a92d83186 90729:6588c6259dfb
1 ;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19 1 ;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
2 2
3 ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003, 3 ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003,
4 ;; 2004, 2005, 2006 Free Software Foundation, Inc. 4 ;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Author: Kevin Gallagher <kevingal@onramp.net> 6 ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7 ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> 7 ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
8 ;; Keywords: emulations 8 ;; Keywords: emulations
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
337 (defconst edt-window-system (if edt-gnu-emacs19-p window-system (console-type)) 337 (defconst edt-window-system (if edt-gnu-emacs19-p window-system (console-type))
338 "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).") 338 "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
339 339
340 (defconst edt-xserver (if (eq edt-window-system 'x) 340 (defconst edt-xserver (if (eq edt-window-system 'x)
341 (if edt-x-emacs19-p 341 (if edt-x-emacs19-p
342 (replace-in-string (x-server-vendor) "[ _]" "-") 342 ;; The Cygwin window manager has a `/' in its
343 (subst-char-in-string ? ?- (x-server-vendor))) 343 ;; name, which breaks the generated file name of
344 ;; the custom key map file. Replace `/' with a
345 ;; `-' to work around that.
346 (replace-in-string (x-server-vendor) "[ /]" "-")
347 (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor))))
344 nil) 348 nil)
345 "Indicates X server vendor name, if applicable.") 349 "Indicates X server vendor name, if applicable.")
346 350
347 (defvar edt-keys-file nil 351 (defvar edt-keys-file nil
348 "User's custom keypad and function keys mappings to emulate LK-201 keyboard.") 352 "User's custom keypad and function keys mappings to emulate LK-201 keyboard.")