Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
798aa8d0
Commit
798aa8d0
authored
May 24, 1993
by
Jim Blandy
Browse files
* disp-table.el (standard-display-default): New function.
(standard-display-european): New command.
parent
b320926a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
0 deletions
+20
-0
lisp/disp-table.el
lisp/disp-table.el
+20
-0
No files found.
lisp/disp-table.el
View file @
798aa8d0
...
...
@@ -71,6 +71,17 @@
(
aset
standard-display-table
l
(
vector
l
)))
(
setq
l
(
1+
l
))))
;;;###autoload
(
defun
standard-display-default
(
l
h
)
"Display characters in the range L to H using the default notation."
(
while
(
<=
l
h
)
(
if
(
and
(
>=
l
?\
)
(
<
l
127
))
(
if
standard-display-table
(
aset
standard-display-table
l
nil
))
(
or
standard-display-table
(
setq
standard-display-table
(
make-vector
261
nil
)))
(
aset
standard-display-table
l
nil
))
(
setq
l
(
1+
l
))))
;;;###autoload
(
defun
standard-display-ascii
(
c
s
)
"Display character C using string S."
...
...
@@ -110,6 +121,15 @@
(
setq
glyph-table
(
vconcat
glyph-table
(
list
string
)))
(
1-
(
length
glyph-table
)))
(
defun
standard-display-european
(
arg
)
"Arrange to display European characters encoded with ISO 8859.
This means that characters in the range of 160 to 255 display not
as octal escapes, but as accented characters."
(
interactive
"P"
)
(
if
arg
(
standard-display-default
160
255
)
(
standard-display-8bit
160
255
)))
(
provide
'disp-table
)
;;; disp-table.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment