Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
99139556
Commit
99139556
authored
Dec 09, 2010
by
Katsumi Yamaoka
Browse files
mm-util.el (mm-ucs-to-char): Use eval-and-compile.
parent
650453a9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
34 additions
and
31 deletions
+34
-31
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+2
-0
lisp/gnus/mm-util.el
lisp/gnus/mm-util.el
+32
-31
No files found.
lisp/gnus/ChangeLog
View file @
99139556
...
...
@@ -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>
...
...
lisp/gnus/mm-util.el
View file @
99139556
...
...
@@ -220,42 +220,43 @@ 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
)
(
cond
((
and
(
fboundp
'unicode-to-char
)
;; XEmacs 21.5.
(
subrp
(
symbol-function
'unicode-to-char
)))
(
if
(
featurep
'mule
)
(
defalias
'mm-ucs-to-char
'unicode-to-char
)
(
eval-and-compile
(
if
(
featurep
'xemacs
)
(
cond
((
and
(
fboundp
'unicode-to-char
)
;; XEmacs 21.5.
(
subrp
(
symbol-function
'unicode-to-char
)))
(
if
(
featurep
'mule
)
(
defalias
'mm-ucs-to-char
'unicode-to-char
)
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
or
(
unicode-to-char
codepoint
)
?#
))))
((
featurep
'mule
)
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
if
(
fboundp
'ucs-to-char
)
;; Mule-UCS is loaded.
(
progn
(
defalias
'mm-ucs-to-char
(
lambda
(
codepoint
)
"Convert Unicode codepoint to character."
(
condition-case
nil
(
or
(
ucs-to-char
codepoint
)
?#
)
(
error
?#
))))
(
mm-ucs-to-char
codepoint
))
(
condition-case
nil
(
or
(
int-to-char
codepoint
)
?#
)
(
error
?#
)))))
(
t
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
or
(
unicode-to-char
codepoint
)
?#
))))
((
featurep
'mule
)
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
if
(
fboundp
'ucs-to-char
)
;; Mule-UCS is loaded.
(
progn
(
defalias
'mm-ucs-to-char
(
lambda
(
codepoint
)
"Convert Unicode codepoint to character."
(
condition-case
nil
(
or
(
ucs-to-char
codepoint
)
?#
)
(
error
?#
))))
(
mm-ucs-to-char
codepoint
))
(
condition-case
nil
(
or
(
int-to-char
codepoint
)
?#
)
(
error
?#
)))))
(
t
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
condition-case
nil
(
or
(
int-to-char
codepoint
)
?#
)
(
error
?#
)))))
(
if
(
let
((
char
(
make-char
'japanese-jisx0208
36
34
)))
(
eq
char
(
decode-char
'ucs
char
)))
;; Emacs 23.
(
defalias
'mm-ucs-to-char
'identity
)
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
or
(
decode-char
'ucs
codepoint
)
?#
))))
(
if
(
let
((
char
(
make-char
'japanese-jisx0208
36
34
)))
(
eq
char
(
decode-char
'ucs
char
)))
;; Emacs 23.
(
defalias
'mm-ucs-to-char
'identity
)
(
defun
mm-ucs-to-char
(
codepoint
)
"Convert Unicode codepoint to character."
(
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment