Commit 99139556 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

mm-util.el (mm-ucs-to-char): Use eval-and-compile.

parent 650453a9
......@@ -4,6 +4,8 @@
 
2010-12-09 Katsumi Yamaoka <yamaoka@jpl.org>
 
* mm-util.el (mm-ucs-to-char): Use eval-and-compile.
* shr.el (shr-image-displayer): Work for images lined side by side.
 
2010-12-08 Robert Pluim <rpluim@gmail.com>
......
......@@ -220,7 +220,8 @@ to the contents of the accessible portion of the buffer."
(t 'identity))))
;; `ucs-to-char' is a function that Mule-UCS provides.
(if (featurep 'xemacs)
(eval-and-compile
(if (featurep 'xemacs)
(cond ((and (fboundp 'unicode-to-char) ;; XEmacs 21.5.
(subrp (symbol-function 'unicode-to-char)))
(if (featurep 'mule)
......@@ -255,7 +256,7 @@ to the contents of the accessible portion of the buffer."
(defalias 'mm-ucs-to-char 'identity)
(defun mm-ucs-to-char (codepoint)
"Convert Unicode codepoint to character."
(or (decode-char 'ucs codepoint) ?#))))
(or (decode-char 'ucs codepoint) ?#)))))
;; Fixme: This seems always to be used to read a MIME charset, so it
;; should be re-named and fixed (in Emacs) to offer completion only on
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment