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