mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

* disp-table.el (standard-display-default): New function.

Browse Source 
(standard-display-european): New command.
This commit is contained in:
Jim Blandy 1993-05-24 21:13:21 +00:00
parent b320926ac6
commit 798aa8d0a7
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/disp-table.el
View File

@ -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