Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3b4a6e27
Commit
3b4a6e27
authored
Mar 16, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Initial revision
parent
71e40adf
Changes
7
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
4112 additions
and
0 deletions
+4112
-0
lisp/emerge.el
lisp/emerge.el
+2979
-0
lisp/international/iso-ascii.el
lisp/international/iso-ascii.el
+126
-0
lisp/international/iso-insert.el
lisp/international/iso-insert.el
+620
-0
lisp/international/iso-swed.el
lisp/international/iso-swed.el
+140
-0
lisp/international/swedish.el
lisp/international/swedish.el
+145
-0
lisp/rot13.el
lisp/rot13.el
+41
-0
lisp/vt100-led.el
lisp/vt100-led.el
+61
-0
No files found.
lisp/emerge.el
0 → 100644
View file @
3b4a6e27
This diff is collapsed.
Click to expand it.
lisp/international/iso-ascii.el
0 → 100644
View file @
3b4a6e27
;; Set up char tables for ISO 8859/1 character set for ASCII terminals.
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; Written by Howard Gayle. See display-table.el for details.
;; This code sets up to display ISO 8859/1 characters on plain
;; ASCII terminals. The display strings for the characters are
;; more-or-less based on TeX.
(
require
'disp-table
)
(
standard-display-ascii
160
"{_}"
)
; NBSP (no-break space)
(
standard-display-ascii
161
"{!}"
)
; inverted exclamation mark
(
standard-display-ascii
162
"{c}"
)
; cent sign
(
standard-display-ascii
163
"{GBP}"
)
; pound sign
(
standard-display-ascii
164
"{$}"
)
; general currency sign
(
standard-display-ascii
165
"{JPY}"
)
; yen sign
(
standard-display-ascii
166
"{|}"
)
; broken vertical line
(
standard-display-ascii
167
"{S}"
)
; section sign
(
standard-display-ascii
168
"{\"}"
)
; diaeresis
(
standard-display-ascii
169
"{C}"
)
; copyright sign
(
standard-display-ascii
170
"{_a}"
)
; ordinal indicator, feminine
(
standard-display-ascii
171
"{<<}"
)
; left angle quotation mark
(
standard-display-ascii
172
"{~}"
)
; not sign
(
standard-display-ascii
173
"{-}"
)
; soft hyphen
(
standard-display-ascii
174
"{R}"
)
; registered sign
(
standard-display-ascii
175
"{=}"
)
; macron
(
standard-display-ascii
176
"{o}"
)
; degree sign
(
standard-display-ascii
177
"{+-}"
)
; plus or minus sign
(
standard-display-ascii
178
"{2}"
)
; superscript two
(
standard-display-ascii
179
"{3}"
)
; superscript three
(
standard-display-ascii
180
"{'}"
)
; acute accent
(
standard-display-ascii
181
"{u}"
)
; micro sign
(
standard-display-ascii
182
"{P}"
)
; pilcrow
(
standard-display-ascii
183
"{.}"
)
; middle dot
(
standard-display-ascii
184
"{,}"
)
; cedilla
(
standard-display-ascii
185
"{1}"
)
; superscript one
(
standard-display-ascii
186
"{_o}"
)
; ordinal indicator, masculine
(
standard-display-ascii
187
"{>>}"
)
; right angle quotation mark
(
standard-display-ascii
188
"{1/4}"
)
; fraction one-quarter
(
standard-display-ascii
189
"{1/2}"
)
; fraction one-half
(
standard-display-ascii
190
"{3/4}"
)
; fraction three-quarters
(
standard-display-ascii
191
"{?}"
)
; inverted question mark
(
standard-display-ascii
192
"{`A}"
)
; A with grave accent
(
standard-display-ascii
193
"{'A}"
)
; A with acute accent
(
standard-display-ascii
194
"{^A}"
)
; A with circumflex accent
(
standard-display-ascii
195
"{~A}"
)
; A with tilde
(
standard-display-ascii
196
"{\"A}"
)
; A with diaeresis or umlaut mark
(
standard-display-ascii
197
"{AA}"
)
; A with ring
(
standard-display-ascii
198
"{AE}"
)
; AE diphthong
(
standard-display-ascii
199
"{,C}"
)
; C with cedilla
(
standard-display-ascii
200
"{`E}"
)
; E with grave accent
(
standard-display-ascii
201
"{'E}"
)
; E with acute accent
(
standard-display-ascii
202
"{^E}"
)
; E with circumflex accent
(
standard-display-ascii
203
"{\"E}"
)
; E with diaeresis or umlaut mark
(
standard-display-ascii
204
"{`I}"
)
; I with grave accent
(
standard-display-ascii
205
"{'I}"
)
; I with acute accent
(
standard-display-ascii
206
"{^I}"
)
; I with circumflex accent
(
standard-display-ascii
207
"{\"I}"
)
; I with diaeresis or umlaut mark
(
standard-display-ascii
208
"{-D}"
)
; D with stroke, Icelandic eth
(
standard-display-ascii
209
"{~N}"
)
; N with tilde
(
standard-display-ascii
210
"{`O}"
)
; O with grave accent
(
standard-display-ascii
211
"{'O}"
)
; O with acute accent
(
standard-display-ascii
212
"{^O}"
)
; O with circumflex accent
(
standard-display-ascii
213
"{~O}"
)
; O with tilde
(
standard-display-ascii
214
"{\"O}"
)
; O with diaeresis or umlaut mark
(
standard-display-ascii
215
"{x}"
)
; multiplication sign
(
standard-display-ascii
216
"{/O}"
)
; O with slash
(
standard-display-ascii
217
"{`U}"
)
; U with grave accent
(
standard-display-ascii
218
"{'U}"
)
; U with acute accent
(
standard-display-ascii
219
"{^U}"
)
; U with circumflex accent
(
standard-display-ascii
220
"{\"U}"
)
; U with diaeresis or umlaut mark
(
standard-display-ascii
221
"{'Y}"
)
; Y with acute accent
(
standard-display-ascii
222
"{TH}"
)
; capital thorn, Icelandic
(
standard-display-ascii
223
"{ss}"
)
; small sharp s, German
(
standard-display-ascii
224
"{`a}"
)
; a with grave accent
(
standard-display-ascii
225
"{'a}"
)
; a with acute accent
(
standard-display-ascii
226
"{^a}"
)
; a with circumflex accent
(
standard-display-ascii
227
"{~a}"
)
; a with tilde
(
standard-display-ascii
228
"{\"a}"
)
; a with diaeresis or umlaut mark
(
standard-display-ascii
229
"{aa}"
)
; a with ring
(
standard-display-ascii
230
"{ae}"
)
; ae diphthong
(
standard-display-ascii
231
"{,c}"
)
; c with cedilla
(
standard-display-ascii
232
"{`e}"
)
; e with grave accent
(
standard-display-ascii
233
"{'e}"
)
; e with acute accent
(
standard-display-ascii
234
"{^e}"
)
; e with circumflex accent
(
standard-display-ascii
235
"{\"e}"
)
; e with diaeresis or umlaut mark
(
standard-display-ascii
236
"{`i}"
)
; i with grave accent
(
standard-display-ascii
237
"{'i}"
)
; i with acute accent
(
standard-display-ascii
238
"{^i}"
)
; i with circumflex accent
(
standard-display-ascii
239
"{\"i}"
)
; i with diaeresis or umlaut mark
(
standard-display-ascii
240
"{-d}"
)
; d with stroke, Icelandic eth
(
standard-display-ascii
241
"{~n}"
)
; n with tilde
(
standard-display-ascii
242
"{`o}"
)
; o with grave accent
(
standard-display-ascii
243
"{'o}"
)
; o with acute accent
(
standard-display-ascii
244
"{^o}"
)
; o with circumflex accent
(
standard-display-ascii
245
"{~o}"
)
; o with tilde
(
standard-display-ascii
246
"{\"o}"
)
; o with diaeresis or umlaut mark
(
standard-display-ascii
247
"{/}"
)
; division sign
(
standard-display-ascii
248
"{/o}"
)
; o with slash
(
standard-display-ascii
249
"{`u}"
)
; u with grave accent
(
standard-display-ascii
250
"{'u}"
)
; u with acute accent
(
standard-display-ascii
251
"{^u}"
)
; u with circumflex accent
(
standard-display-ascii
252
"{\"u}"
)
; u with diaeresis or umlaut mark
(
standard-display-ascii
253
"{'y}"
)
; y with acute accent
(
standard-display-ascii
254
"{th}"
)
; small thorn, Icelandic
(
standard-display-ascii
255
"{\"y}"
)
; small y with diaeresis or umlaut mark
(
provide
'iso8859-1-ascii
)
lisp/international/iso-insert.el
0 → 100644
View file @
3b4a6e27
;; Insert functions for ISO 8859/1.
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; Written by Howard Gayle. See case-table.el for details.
(
defun
insert-no-break-space
()
(
interactive
"*"
)
(
insert
160
)
)
(
defun
insert-inverted-exclamation-mark
()
(
interactive
"*"
)
(
insert
161
)
)
(
defun
insert-cent-sign
()
(
interactive
"*"
)
(
insert
162
)
)
(
defun
insert-pound-sign
()
(
interactive
"*"
)
(
insert
163
)
)
(
defun
insert-general-currency-sign
()
(
interactive
"*"
)
(
insert
164
)
)
(
defun
insert-yen-sign
()
(
interactive
"*"
)
(
insert
165
)
)
(
defun
insert-broken-vertical-line
()
(
interactive
"*"
)
(
insert
166
)
)
(
defun
insert-section-sign
()
(
interactive
"*"
)
(
insert
167
)
)
(
defun
insert-diaeresis
()
(
interactive
"*"
)
(
insert
168
)
)
(
defun
insert-copyright-sign
()
(
interactive
"*"
)
(
insert
169
)
)
(
defun
insert-ordinal-indicator-feminine
()
(
interactive
"*"
)
(
insert
170
)
)
(
defun
insert-angle-quotation-mark-left
()
(
interactive
"*"
)
(
insert
171
)
)
(
defun
insert-not-sign
()
(
interactive
"*"
)
(
insert
172
)
)
(
defun
insert-soft-hyphen
()
(
interactive
"*"
)
(
insert
173
)
)
(
defun
insert-registered-sign
()
(
interactive
"*"
)
(
insert
174
)
)
(
defun
insert-macron
()
(
interactive
"*"
)
(
insert
175
)
)
(
defun
insert-degree-sign
()
(
interactive
"*"
)
(
insert
176
)
)
(
defun
insert-plus-or-minus-sign
()
(
interactive
"*"
)
(
insert
177
)
)
(
defun
insert-superscript-two
()
(
interactive
"*"
)
(
insert
178
)
)
(
defun
insert-superscript-three
()
(
interactive
"*"
)
(
insert
179
)
)
(
defun
insert-acute-accent
()
(
interactive
"*"
)
(
insert
180
)
)
(
defun
insert-micro-sign
()
(
interactive
"*"
)
(
insert
181
)
)
(
defun
insert-pilcrow
()
(
interactive
"*"
)
(
insert
182
)
)
(
defun
insert-middle-dot
()
(
interactive
"*"
)
(
insert
183
)
)
(
defun
insert-cedilla
()
(
interactive
"*"
)
(
insert
184
)
)
(
defun
insert-superscript-one
()
(
interactive
"*"
)
(
insert
185
)
)
(
defun
insert-ordinal-indicator-masculine
()
(
interactive
"*"
)
(
insert
186
)
)
(
defun
insert-angle-quotation-mark-right
()
(
interactive
"*"
)
(
insert
187
)
)
(
defun
insert-fraction-one-quarter
()
(
interactive
"*"
)
(
insert
188
)
)
(
defun
insert-fraction-one-half
()
(
interactive
"*"
)
(
insert
189
)
)
(
defun
insert-fraction-three-quarters
()
(
interactive
"*"
)
(
insert
190
)
)
(
defun
insert-inverted-question-mark
()
(
interactive
"*"
)
(
insert
191
)
)
(
defun
insert-A-grave
()
(
interactive
"*"
)
(
insert
192
)
)
(
defun
insert-A-acute
()
(
interactive
"*"
)
(
insert
193
)
)
(
defun
insert-A-circumflex
()
(
interactive
"*"
)
(
insert
194
)
)
(
defun
insert-A-tilde
()
(
interactive
"*"
)
(
insert
195
)
)
(
defun
insert-A-umlaut
()
(
interactive
"*"
)
(
insert
196
)
)
(
defun
insert-A-ring
()
(
interactive
"*"
)
(
insert
197
)
)
(
defun
insert-AE
()
(
interactive
"*"
)
(
insert
198
)
)
(
defun
insert-C-cedilla
()
(
interactive
"*"
)
(
insert
199
)
)
(
defun
insert-E-grave
()
(
interactive
"*"
)
(
insert
200
)
)
(
defun
insert-E-acute
()
(
interactive
"*"
)
(
insert
201
)
)
(
defun
insert-E-circumflex
()
(
interactive
"*"
)
(
insert
202
)
)
(
defun
insert-E-umlaut
()
(
interactive
"*"
)
(
insert
203
)
)
(
defun
insert-I-grave
()
(
interactive
"*"
)
(
insert
204
)
)
(
defun
insert-I-acute
()
(
interactive
"*"
)
(
insert
205
)
)
(
defun
insert-I-circumflex
()
(
interactive
"*"
)
(
insert
206
)
)
(
defun
insert-I-umlaut
()
(
interactive
"*"
)
(
insert
207
)
)
(
defun
insert-D-stroke
()
(
interactive
"*"
)
(
insert
208
)
)
(
defun
insert-N-tilde
()
(
interactive
"*"
)
(
insert
209
)
)
(
defun
insert-O-grave
()
(
interactive
"*"
)
(
insert
210
)
)
(
defun
insert-O-acute
()
(
interactive
"*"
)
(
insert
211
)
)
(
defun
insert-O-circumflex
()
(
interactive
"*"
)
(
insert
212
)
)
(
defun
insert-O-tilde
()
(
interactive
"*"
)
(
insert
213
)
)
(
defun
insert-O-umlaut
()
(
interactive
"*"
)
(
insert
214
)
)
(
defun
insert-multiplication-sign
()
(
interactive
"*"
)
(
insert
215
)
)
(
defun
insert-O-slash
()
(
interactive
"*"
)
(
insert
216
)
)
(
defun
insert-U-grave
()
(
interactive
"*"
)
(
insert
217
)
)
(
defun
insert-U-acute
()
(
interactive
"*"
)
(
insert
218
)
)
(
defun
insert-U-circumflex
()
(
interactive
"*"
)
(
insert
219
)
)
(
defun
insert-U-umlaut
()
(
interactive
"*"
)
(
insert
220
)
)
(
defun
insert-Y-acute
()
(
interactive
"*"
)
(
insert
221
)
)
(
defun
insert-THORN
()
(
interactive
"*"
)
(
insert
222
)
)
(
defun
insert-ss
()
(
interactive
"*"
)
(
insert
223
)
)
(
defun
insert-a-grave
()
(
interactive
"*"
)
(
insert
224
)
)
(
defun
insert-a-acute
()
(
interactive
"*"
)
(
insert
225
)
)
(
defun
insert-a-circumflex
()
(
interactive
"*"
)
(
insert
226
)
)
(
defun
insert-a-tilde
()
(
interactive
"*"
)
(
insert
227
)
)
(
defun
insert-a-umlaut
()
(
interactive
"*"
)
(
insert
228
)
)
(
defun
insert-a-ring
()
(
interactive
"*"
)
(
insert
229
)
)
(
defun
insert-ae
()
(
interactive
"*"
)
(
insert
230
)
)
(
defun
insert-c-cedilla
()
(
interactive
"*"
)
(
insert
231
)
)
(
defun
insert-e-grave
()
(
interactive
"*"
)
(
insert
232
)
)
(
defun
insert-e-acute
()
(
interactive
"*"
)
(
insert
233
)
)
(
defun
insert-e-circumflex
()
(
interactive
"*"
)
(
insert
234
)
)
(
defun
insert-e-umlaut
()
(
interactive
"*"
)
(
insert
235
)
)
(
defun
insert-i-grave
()
(
interactive
"*"
)
(
insert
236
)
)
(
defun
insert-i-acute
()
(
interactive
"*"
)
(
insert
237
)
)
(
defun
insert-i-circumflex
()
(
interactive
"*"
)
(
insert
238
)
)
(
defun
insert-i-umlaut
()
(
interactive
"*"
)
(
insert
239
)
)
(
defun
insert-d-stroke
()
(
interactive
"*"
)
(
insert
240
)
)
(
defun
insert-n-tilde
()
(
interactive
"*"
)
(
insert
241
)
)
(
defun
insert-o-grave
()
(
interactive
"*"
)
(
insert
242
)
)
(
defun
insert-o-acute
()
(
interactive
"*"
)
(
insert
243
)
)
(
defun
insert-o-circumflex
()
(
interactive
"*"
)
(
insert
244
)
)
(
defun
insert-o-tilde
()
(
interactive
"*"
)
(
insert
245
)
)
(
defun
insert-o-umlaut
()
(
interactive
"*"
)
(
insert
246
)
)
(
defun
insert-division-sign
()
(
interactive
"*"
)
(
insert
247
)
)
(
defun
insert-o-slash
()
(
interactive
"*"
)
(
insert
248
)
)
(
defun
insert-u-grave
()
(
interactive
"*"
)
(
insert
249
)
)
(
defun
insert-u-acute
()
(
interactive
"*"
)
(
insert
250
)
)
(
defun
insert-u-circumflex
()
(
interactive
"*"
)
(
insert
251
)
)
(
defun
insert-u-umlaut
()
(
interactive
"*"
)
(
insert
252
)
)
(
defun
insert-y-acute
()
(
interactive
"*"
)
(
insert
253
)
)
(
defun
insert-thorn
()
(
interactive
"*"
)
(
insert
254
)
)