[Emacs-diffs] Changes to emacs/lisp/international/iso-ascii.el

[Miles Bader]

Index: emacs/lisp/international/iso-ascii.el
diff -c emacs/lisp/international/iso-ascii.el:1.11 
emacs/lisp/international/iso-ascii.el:1.12
*** emacs/lisp/international/iso-ascii.el:1.11  Sun Jul 15 12:15:34 2001
--- emacs/lisp/international/iso-ascii.el       Sat Feb 15 14:24:11 2003
***************
*** 45,59 ****
    :type 'boolean
    :group 'iso-ascii)
  
  (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)
    ;; multibyte
!   (standard-display-ascii (make-char 'latin-iso8859-1 (- code 128))
!                         string))
  
  (iso-ascii-display 160 "_" " ")   ; NBSP (no-break space)
  (iso-ascii-display 161 "!")   ; inverted exclamation mark
--- 45,70 ----
    :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
!   (aset iso-ascii-display-table code string)
    ;; multibyte
!   (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
***************
*** 151,156 ****
--- 162,177 ----
  (iso-ascii-display 253 "'y")  ; y with acute accent
  (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)