]> git.eshelyaron.com Git - emacs.git/commitdiff
Make pilcrow convenient string
authorDave Love <fx@gnu.org>
Thu, 24 Aug 2000 09:48:48 +0000 (09:48 +0000)
committerDave Love <fx@gnu.org>
Thu, 24 Aug 2000 09:48:48 +0000 (09:48 +0000)
consistent with section.
(iso-ascii-display): Set up multibyte characters as well as
unibyte.

lisp/international/iso-ascii.el

index c3e6781fdfbb4da1fd9f280cc6c6b196ce557b58..14550a05c81832c9007593be099bbb363855f7b9 100644 (file)
   (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