812 |
;; BEWARE: we used to use string-as-multibyte here which is braindead |
;; BEWARE: we used to use string-as-multibyte here which is braindead |
813 |
;; because it will turn accidental emacs-mule-valid byte sequences |
;; because it will turn accidental emacs-mule-valid byte sequences |
814 |
;; into multibyte chars. --Stef |
;; into multibyte chars. --Stef |
815 |
(funcall (if (and (fboundp 'string-to-multibyte) |
;; Reverted, braindead got 7.5 out of 10 on imdb, so it can't be |
816 |
(subrp (symbol-function 'string-to-multibyte))) |
;; that bad. --Simon |
817 |
'string-to-multibyte |
(funcall (if (and (fboundp 'string-as-multibyte) |
818 |
|
(subrp (symbol-function 'string-as-multibyte))) |
819 |
|
'string-as-multibyte |
820 |
'identity) |
'identity) |
821 |
(or string ""))) |
(or string ""))) |
822 |
|
|