comparison lisp/ps-print.el @ 23484:d13d8b3b3d69

(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.

23483:abcdf0c8e98d

    (defun charset-after (&optional arg)
      (char-charset (char-after arg)))
    (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)
    (defun ps-mule-next-index (str i)
      (+ i (char-bytes (sref str i)))))
  )

(defvar ps-mule-font-info-database
  '((latin-iso8859-1
     (normal nil nil iso-latin-1)))

23484:d13d8b3b3d69

    (defun charset-after (&optional arg)
      (char-charset (char-after arg)))
    (defun ps-mule-next-point (arg)
      (save-excursion (goto-char arg) (forward-char 1) (point)))
    (defun ps-mule-chars-in-string (string)
      (length string))
    (defalias 'ps-mule-string-char 'aref)
    (defun ps-mule-next-index (str i)
      (1+ i)))
  )

(defvar ps-mule-font-info-database
  '((latin-iso8859-1
     (normal nil nil iso-latin-1)))