Source

pcl-cvs / cvs-status.el

Diff from to

cvs-status.el

 2byte characters might be available with Mule or Emacs with Mule extension.")
 
 (defconst cvstree-dstr-char-space
-  (if cvstree-dstr-2byte-ready "$B!!(B" " "))
+  (if cvstree-dstr-2byte-ready
+      (make-char 'japanese-jisx0208 33 33)
+    ?\ ))
 (defconst cvstree-dstr-char-hbar
-  (if cvstree-dstr-2byte-ready "$B(,(B" "-"))
+  (if cvstree-dstr-2byte-ready
+      (make-char 'japanese-jisx0208 40 44)
+    ?-))
 (defconst cvstree-dstr-char-vbar
-  (if cvstree-dstr-2byte-ready "$B(-(B" "|"))
+  (if cvstree-dstr-2byte-ready
+      (make-char 'japanese-jisx0208 40 45)
+    ?|))
 (defconst cvstree-dstr-char-branch
-  (if cvstree-dstr-2byte-ready "$B(2(B" "+"))
+  (if cvstree-dstr-2byte-ready
+      (make-char 'japanese-jisx0208 40 50)
+    ?+))
 (defconst cvstree-dstr-char-eob		;end of branch
-  (if cvstree-dstr-2byte-ready "$B(1(B" "`"))
+  (if cvstree-dstr-2byte-ready
+      (make-char 'japanese-jisx0208 40 49)
+    ?`))
 (defconst cvstree-dstr-char-bob		;beginning of branch
-  (if cvstree-dstr-2byte-ready "$B(3(B" "+"))
+  (if cvstree-dstr-2byte-ready
+      (make-char 'japanese-jisx0208 40 51)
+    ?+))
 
 (defun cvs-tag-lessp (tag1 tag2)
   (eq (cvs-tag-compare tag1 tag2) 'more2))