mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/gnus/mm-util.el (mm-string-to-multibyte): Simplify.

Browse source
This commit is contained in:
Glenn Morris 2010-10-31 19:21:42 -07:00
parent 85a45a691b
commit ed1d182dca
2 changed files with 12 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus/mm-util.el
View file

@ -202,19 +202,10 @@ to the contents of the accessible portion of the buffer."
(defalias 'mm-decode-coding-region 'decode-coding-region)
(defalias 'mm-encode-coding-region 'encode-coding-region)))
;; `string-to-multibyte' is available only in Emacs 22.1 or greater.
(defalias 'mm-string-to-multibyte
(cond
((featurep 'xemacs)
'identity)
((fboundp 'string-to-multibyte)
'string-to-multibyte)
(t
(lambda (string)
"Return a multibyte string with the same individual chars as STRING."
(mapconcat
(lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
string "")))))
;; `string-to-multibyte' is available only in Emacs.
(defalias 'mm-string-to-multibyte (if (featurep 'xemacs)
'identity
'string-to-multibyte))
;; `char-or-char-int-p' is an XEmacs function, not available in Emacs.
(eval-and-compile