annotate lisp/obsolete/keyswap.el @ 112445:93fcbcb698b0

Improve configuration of makeinfo. * Makefile.in (MAKEINFO): Now controlled by `configure'. (MAKEINFO_OPTS): New variable. Use it where appropriate. (ENVADD): Updated.
author Werner Lemberg <wl@gnu.org>
date Sun, 23 Jan 2011 11:38:14 +0100
parents ef719132ddfa
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
60730
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1 ;;; keyswap.el --- swap BS and DEL keys -*- no-byte-compile: t -*-
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2
74509
f7702c5f335d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68640
diff changeset
3 ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
4 ;; 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
60730
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
5
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
6 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
7 ;; Keywords: terminals
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
8
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
10
94667
43d30a1ea764 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94000
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
60730
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94667
43d30a1ea764 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94000
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
43d30a1ea764 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94000
diff changeset
14 ;; (at your option) any later version.
60730
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
15
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
20
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94667
43d30a1ea764 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94000
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
60730
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
23
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
25
94000
ee22366f2a68 Add a comment giving version of obsolescence.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
26 ;; This file has been obsolete since Emacs 22.1.
ee22366f2a68 Add a comment giving version of obsolescence.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
27
60730
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
28 ;; This package is meant to be called by other terminal packages.
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
29
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
30 ;;; Code:
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
31
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
32 (let ((the-table (make-string 128 0)))
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
33 (let ((i 0))
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
34 (while (< i 128)
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
35 (aset the-table i i)
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
36 (setq i (1+ i))))
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
37 ;; Swap ^H and DEL
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
38 (aset the-table ?\177 ?\^h)
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
39 (aset the-table ?\^h ?\177)
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
40 (setq keyboard-translate-table the-table))
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41
81de78e2e146 Moved keyswap.el from term/ to obsolete/.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
42 ;;; keyswap.el ends here