# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908653894 0
# Node ID d13d8b3b3d69c651660f322496343db241ff7812
# Parent  abcdf0c8e98d9067bf27648f8786c85d633693f0
(ps-mule-chars-in-string): No need to use sref.
(ps-mule-string-char): No need to use sref.
(ps-mule-next-index): No need to use sref.

diff -r abcdf0c8e98d -r d13d8b3b3d69 lisp/ps-print.el
--- a/lisp/ps-print.el	Sat Oct 17 19:48:04 1998 +0000
+++ b/lisp/ps-print.el	Sat Oct 17 19:51:34 1998 +0000
@@ -2817,10 +2817,10 @@
     (defun ps-mule-next-point (arg)
       (save-excursion (goto-char arg) (forward-char 1) (point)))
     (defun ps-mule-chars-in-string (string)
-      (/ (length string) (char-bytes (sref string 0))))
-    (defalias 'ps-mule-string-char 'sref)
+      (length string))
+    (defalias 'ps-mule-string-char 'aref)
     (defun ps-mule-next-index (str i)
-      (+ i (char-bytes (sref str i)))))
+      (1+ i)))
   )
 
 (defvar ps-mule-font-info-database