Mercurial > emacs

comparison lisp/term/x-win.el @ 91327:606f2d163a64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
author Miles Bader <miles@gnu.org>
date Wed, 09 Jan 2008 01:21:15 +0000
parents 56a72e2bd635 107ccd98fa12
children 60f09344e8c9
comparison
equal deleted inserted replaced
91326:b1a63d7fa09c 91327:606f2d163a64
1 ;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*- 1 ;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*-
2 2
3 ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: FSF 6 ;; Author: FSF
7 ;; Keywords: terminals, i18n 7 ;; Keywords: terminals, i18n
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
1226 1226
1227 (defun vendor-specific-keysyms (vendor) 1227 (defun vendor-specific-keysyms (vendor)
1228 "Return the appropriate value of `system-key-alist' for VENDOR. 1228 "Return the appropriate value of `system-key-alist' for VENDOR.
1229 VENDOR is a string containing the name of the X Server's vendor, 1229 VENDOR is a string containing the name of the X Server's vendor,
1230 as returned by `x-server-vendor'." 1230 as returned by `x-server-vendor'."
1231 ;; Fixme: Drop Apollo now? 1231 (cond ((or (string-equal vendor "Hewlett-Packard Incorporated")
1232 (cond ((string-equal vendor "Apollo Computer Inc.")
1233 '((65280 . linedel)
1234 (65281 . chardel)
1235 (65282 . copy)
1236 (65283 . cut)
1237 (65284 . paste)
1238 (65285 . move)
1239 (65286 . grow)
1240 (65287 . cmd)
1241 (65288 . shell)
1242 (65289 . leftbar)
1243 (65290 . rightbar)
1244 (65291 . leftbox)
1245 (65292 . rightbox)
1246 (65293 . upbox)
1247 (65294 . downbox)
1248 (65295 . pop)
1249 (65296 . read)
1250 (65297 . edit)
1251 (65298 . save)
1252 (65299 . exit)
1253 (65300 . repeat)))
1254 ((or (string-equal vendor "Hewlett-Packard Incorporated")
1255 (string-equal vendor "Hewlett-Packard Company")) 1232 (string-equal vendor "Hewlett-Packard Company"))
1256 '(( 168 . mute-acute) 1233 '(( 168 . mute-acute)
1257 ( 169 . mute-grave) 1234 ( 169 . mute-grave)
1258 ( 170 . mute-asciicircum) 1235 ( 170 . mute-asciicircum)
1259 ( 171 . mute-diaeresis) 1236 ( 171 . mute-diaeresis)