From 207d5f1794438a7f76a811ef0916914e96812105 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Feb 2003 19:24:11 +0000 Subject: [PATCH] (iso-ascii-display-table): New variable. (iso-ascii-standard-display-table): New variable. (iso-ascii-display): Define in iso-ascii-display-table. (iso-ascii-mode): New command. --- lisp/international/iso-ascii.el | 27 ++++++++++++++++++++++++--- 1 file changed, 24 insertions(+), 3 deletions(-) diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el index 9dafdb38592..86f3d2b4348 100644 --- a/lisp/international/iso-ascii.el +++ b/lisp/international/iso-ascii.el @@ -45,15 +45,26 @@ :type 'boolean :group 'iso-ascii) +(defvar iso-ascii-display-table (make-display-table) + "Display table used for ISO-ASCII mode.") + +(defvar iso-ascii-standard-display-table nil + "Display table used when not in ISO-ASCII mode.") +;; Don't alter iso-ascii-standard-display-table if this file is loaded again, +;; or even by using C-M-x on any of the expressions. +(unless iso-ascii-standard-display-table + (setq iso-ascii-standard-display-table + standard-display-table)) + (defun iso-ascii-display (code string &optional convenient-string) (if iso-ascii-convenient (setq string (or convenient-string string)) (setq string (concat "{" string "}"))) ;; unibyte - (standard-display-ascii code string) + (aset iso-ascii-display-table code string) ;; multibyte - (standard-display-ascii (make-char 'latin-iso8859-1 (- code 128)) - string)) + (aset iso-ascii-display-table (make-char 'latin-iso8859-1 (- code 128)) + string)) (iso-ascii-display 160 "_" " ") ; NBSP (no-break space) (iso-ascii-display 161 "!") ; inverted exclamation mark @@ -152,6 +163,16 @@ (iso-ascii-display 254 "th") ; small thorn, Icelandic (iso-ascii-display 255 "\"y") ; small y with diaeresis or umlaut mark +(defun iso-ascii-mode (arg) + "Toggle ISO-ASCII mode." + (interactive "P") + (unless arg + (setq arg (eq standard-display-table iso-ascii-standard-display-table))) + (setq standard-display-table + (if arg + iso-ascii-display-table + iso-ascii-standard-display-table))) + (provide 'iso-ascii) ;;; iso-ascii.el ends here -- 2.11.4.GIT