Mercurial > emacs

changeset 23484:d13d8b3b3d69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Oct 1998 19:51:34 +0000
parents abcdf0c8e98d
children 52bc669c1549
files lisp/ps-print.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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