mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(encode-coding-char): Make strings

Browse Source 
multibyte before calling encode-coding-string.
This commit is contained in:
Kenichi Handa 2000-05-26 02:39:09 +00:00
parent ba9f8f95c4
commit bd95317329
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/mule-cmds.el
View File

@ -1835,8 +1835,8 @@ It can be retrieved with `(get-char-code-property CHAR PROPNAME)'."
(defun encode-coding-char (char coding-system)
"Encode CHAR by CODING-SYSTEM and return the resulting string.
If CODING-SYSTEM can't safely encode CHAR, return nil."
(let ((str1 (char-to-string char))
(str2 (make-string 2 char))
(let ((str1 (string-as-multibyte (char-to-string char)))
(str2 (string-as-multibyte (make-string 2 char)))
(safe-charsets (and coding-system
(coding-system-get coding-system 'safe-charsets)))
(charset (char-charset char))
@ -1851,9 +1851,9 @@ If CODING-SYSTEM can't safely encode CHAR, return nil."
;; string and two-char string, then check how many bytes at the
;; tail of both encoded strings are the same.
(setq enc1 (string-as-unibyte (encode-coding-string str1 coding-system))
(setq enc1 (encode-coding-string str1 coding-system)
i1 (length enc1)
enc2 (string-as-unibyte (encode-coding-string str2 coding-system))
enc2 (encode-coding-string str2 coding-system)
i2 (length enc2))
(while (and (> i1 0) (= (aref enc1 (1- i1)) (aref enc2 (1- i2))))
(setq i1 (1- i1) i2 (1- i2)))