From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Feb 2003 19:24:11 +0000 (+0000)
Subject: (iso-ascii-display-table): New variable.
X-Git-Tag: ttn-vms-21-2-B4~11177
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=207d5f1794438a7f76a811ef0916914e96812105;p=emacs.git

(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.
---

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