Mercurial > emacs
annotate lisp/=iso8859-1.el @ 24419:30e478cd167e
(shell-command-default-error-buffer): Renamed from
shell-command-on-region-default-error-buffer.
(shell-command-on-region): Mention in echo area when there
is some error output. Mention success or failure, too.
Accumulate multiple error outputs
going forward, with formfeed in between. Display the error buffer
when we have put something in it.
(shell-command): Add the ERROR-BUFFER argument feature.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Mar 1999 03:19:32 +0000 |
parents | b64e3832b6de |
children |
rev | line source |
---|---|
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
1 ;;; iso8859-1.el --- set up case-conversion and syntax tables for ISO 8859/1 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
725
diff
changeset
|
2 |
845 | 3 ;; Copyright (C) 1988 Free Software Foundation, Inc. |
4 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
725
diff
changeset
|
5 ;; Author: Howard Gayle |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
725
diff
changeset
|
6 ;; Maintainer: FSF |
3012
d4b85bbedee8
Change "i14n" keyword to "i18n".
Jim Blandy <jimb@redhat.com>
parents:
2995
diff
changeset
|
7 ;; Keywords: i18n |
725 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
725
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
725 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
24 | |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
25 ;;; Commentary: |
725 | 26 |
27 ;; Written by Howard Gayle. See case-table.el for details. | |
28 | |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
29 ;;; Code: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
30 |
725 | 31 (require 'case-table) |
32 | |
3291 | 33 (let ((table (car (standard-case-table)))) |
2995
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
34 (set-case-syntax 160 " " table) ; NBSP (no-break space) |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
35 (set-case-syntax 161 "." table) ; inverted exclamation mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
36 (set-case-syntax 162 "w" table) ; cent sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
37 (set-case-syntax 163 "w" table) ; pound sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
38 (set-case-syntax 164 "w" table) ; general currency sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
39 (set-case-syntax 165 "w" table) ; yen sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
40 (set-case-syntax 166 "_" table) ; broken vertical line |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
41 (set-case-syntax 167 "w" table) ; section sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
42 (set-case-syntax 168 "w" table) ; diaeresis |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
43 (set-case-syntax 169 "_" table) ; copyright sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
44 (set-case-syntax 170 "w" table) ; ordinal indicator, feminine |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
45 (set-case-syntax-delims 171 187 table) ; angle quotation marks |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
46 (set-case-syntax 172 "_" table) ; not sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
47 (set-case-syntax 173 "_" table) ; soft hyphen |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
48 (set-case-syntax 174 "_" table) ; registered sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
49 (set-case-syntax 175 "w" table) ; macron |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
50 (set-case-syntax 176 "_" table) ; degree sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
51 (set-case-syntax 177 "_" table) ; plus or minus sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
52 (set-case-syntax 178 "w" table) ; superscript two |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
53 (set-case-syntax 179 "w" table) ; superscript three |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
54 (set-case-syntax 180 "w" table) ; acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
55 (set-case-syntax 181 "_" table) ; micro sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
56 (set-case-syntax 182 "w" table) ; pilcrow |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
57 (set-case-syntax 183 "_" table) ; middle dot |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
58 (set-case-syntax 184 "w" table) ; cedilla |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
59 (set-case-syntax 185 "w" table) ; superscript one |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
60 (set-case-syntax 186 "w" table) ; ordinal indicator, masculine |
725 | 61 ;; 187 ; See 171 above. |
2995
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
62 (set-case-syntax 188 "_" table) ; fraction one-quarter |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
63 (set-case-syntax 189 "_" table) ; fraction one-half |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
64 (set-case-syntax 190 "_" table) ; fraction three-quarters |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
65 (set-case-syntax 191 "." table) ; inverted question mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
66 (set-case-syntax-pair 192 224 table) ; A with grave accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
67 (set-case-syntax-pair 193 225 table) ; A with acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
68 (set-case-syntax-pair 194 226 table) ; A with circumflex accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
69 (set-case-syntax-pair 195 227 table) ; A with tilde |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
70 (set-case-syntax-pair 196 228 table) ; A with diaeresis or umlaut mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
71 (set-case-syntax-pair 197 229 table) ; A with ring |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
72 (set-case-syntax-pair 198 230 table) ; AE diphthong |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
73 (set-case-syntax-pair 199 231 table) ; C with cedilla |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
74 (set-case-syntax-pair 200 232 table) ; E with grave accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
75 (set-case-syntax-pair 201 233 table) ; E with acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
76 (set-case-syntax-pair 202 234 table) ; E with circumflex accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
77 (set-case-syntax-pair 203 235 table) ; E with diaeresis or umlaut mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
78 (set-case-syntax-pair 204 236 table) ; I with grave accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
79 (set-case-syntax-pair 205 237 table) ; I with acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
80 (set-case-syntax-pair 206 238 table) ; I with circumflex accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
81 (set-case-syntax-pair 207 239 table) ; I with diaeresis or umlaut mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
82 (set-case-syntax-pair 208 240 table) ; D with stroke, Icelandic eth |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
83 (set-case-syntax-pair 209 241 table) ; N with tilde |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
84 (set-case-syntax-pair 210 242 table) ; O with grave accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
85 (set-case-syntax-pair 211 243 table) ; O with acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
86 (set-case-syntax-pair 212 244 table) ; O with circumflex accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
87 (set-case-syntax-pair 213 245 table) ; O with tilde |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
88 (set-case-syntax-pair 214 246 table) ; O with diaeresis or umlaut mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
89 (set-case-syntax 215 "_" table) ; multiplication sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
90 (set-case-syntax-pair 216 248 table) ; O with slash |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
91 (set-case-syntax-pair 217 249 table) ; U with grave accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
92 (set-case-syntax-pair 218 250 table) ; U with acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
93 (set-case-syntax-pair 219 251 table) ; U with circumflex accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
94 (set-case-syntax-pair 220 252 table) ; U with diaeresis or umlaut mark |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
95 (set-case-syntax-pair 221 253 table) ; Y with acute accent |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
96 (set-case-syntax-pair 222 254 table) ; thorn, Icelandic |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
97 (set-case-syntax 223 "w" table) ; small sharp s, German |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
98 (set-case-syntax 247 "_" table) ; division sign |
c34b1fbe7987
Call set-case-..., not standard-case-...
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
99 (set-case-syntax 255 "w" table) ; small y with diaeresis or umlaut mark |
3291 | 100 (set-standard-case-table (list table))) |
725 | 101 |
102 (provide 'iso8859-1) | |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
103 |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
104 ;;; iso8859-1.el ends here |