[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/iso-ascii.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/iso-ascii.el |
Date: |
Sat, 15 Feb 2003 14:24:12 -0500 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/iso-ascii.el,
Richard M. Stallman <=