(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 --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7a5e3e2b3f16c61b57858d236b4472b789822d7d..c289fbc3580eb34f3982b663c51b52cce5d54139 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -2817,10 +2817,10 @@ which long lines wrap around."
     (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