diff options
| author | Richard M. Stallman | 1998-10-17 19:51:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-17 19:51:34 +0000 |
| commit | d59cd657865f5ba421c96c304731915f983717d4 (patch) | |
| tree | 96fd39972f60bf84e3297ee6d8314a98b30a995e | |
| parent | 68ccc91f99a3d5f83484b5aaa3bd2c9987acda92 (diff) | |
| download | emacs-d59cd657865f5ba421c96c304731915f983717d4.tar.gz emacs-d59cd657865f5ba421c96c304731915f983717d4.zip | |
(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.
| -rw-r--r-- | lisp/ps-print.el | 6 |
1 files 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." | |||
| 2817 | (defun ps-mule-next-point (arg) | 2817 | (defun ps-mule-next-point (arg) |
| 2818 | (save-excursion (goto-char arg) (forward-char 1) (point))) | 2818 | (save-excursion (goto-char arg) (forward-char 1) (point))) |
| 2819 | (defun ps-mule-chars-in-string (string) | 2819 | (defun ps-mule-chars-in-string (string) |
| 2820 | (/ (length string) (char-bytes (sref string 0)))) | 2820 | (length string)) |
| 2821 | (defalias 'ps-mule-string-char 'sref) | 2821 | (defalias 'ps-mule-string-char 'aref) |
| 2822 | (defun ps-mule-next-index (str i) | 2822 | (defun ps-mule-next-index (str i) |
| 2823 | (+ i (char-bytes (sref str i))))) | 2823 | (1+ i))) |
| 2824 | ) | 2824 | ) |
| 2825 | 2825 | ||
| 2826 | (defvar ps-mule-font-info-database | 2826 | (defvar ps-mule-font-info-database |