Mercurial > emacs
changeset 31143:1ff8dc8dbffc
Make pilcrow convenient string
consistent with section.
(iso-ascii-display): Set up multibyte characters as well as
unibyte.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 24 Aug 2000 09:48:48 +0000 |
parents | 7d0a8b91a6c0 |
children | f09cfa9cb90b |
files | lisp/international/iso-ascii.el |
diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/iso-ascii.el Thu Aug 24 08:03:06 2000 +0000 +++ b/lisp/international/iso-ascii.el Thu Aug 24 09:48:48 2000 +0000 @@ -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