From d59cd657865f5ba421c96c304731915f983717d4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Oct 1998 19:51:34 +0000 Subject: [PATCH] (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. --- lisp/ps-print.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 7a5e3e2b3f1..c289fbc3580 100644 --- 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 -- 2.39.2