diff options
| author | Dave Love <fx@gnu.org> | 2000-08-24 09:48:48 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-08-24 09:48:48 +0000 |
| commit | 10a6a1b694528987cf759b49a75d8a0d3eb1d180 (patch) | |
| tree | b1fbd785c67dd7773a611cbc1ee9e1baa01c8c3d /lisp/international/iso-ascii.el | |
| parent | 56bfaffd7276218a001f9481f809dc1d44b8910d (diff) | |
| download | emacs-10a6a1b694528987cf759b49a75d8a0d3eb1d180.tar.gz | |
Make pilcrow convenient string
consistent with section.
(iso-ascii-display): Set up multibyte characters as well as
unibyte.
Diffstat (limited to 'lisp/international/iso-ascii.el')
| -rw-r--r-- | lisp/international/iso-ascii.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el index c3e6781fdfb..14550a05c81 100644 --- a/lisp/international/iso-ascii.el +++ b/lisp/international/iso-ascii.el @@ -49,7 +49,11 @@ (if iso-ascii-convenient (setq string (or convenient-string string)) (setq string (concat "{" string "}"))) - (standard-display-ascii code 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 @@ -73,7 +77,7 @@ (iso-ascii-display 179 "3") ; superscript three (iso-ascii-display 180 "'") ; acute accent (iso-ascii-display 181 "u") ; micro sign -(iso-ascii-display 182 "P" "{P}") ; pilcrow +(iso-ascii-display 182 "P" "(P)") ; pilcrow (iso-ascii-display 183 ".") ; middle dot (iso-ascii-display 184 ",") ; cedilla (iso-ascii-display 185 "1") ; superscript one |