Commit 722a8409 authored by Dave Love's avatar Dave Love
Browse files

Use featurep for XEmacs test.

(mm-inline-message): Test for `remove-specifier'; don't use
condition-case.
parent 2e049946
......@@ -36,6 +36,10 @@
2000-11-08 Dave Love <fx@gnu.org>
* mm-view.el: Use featurep for XEmacs test.
(mm-inline-message): Test for `remove-specifier'; don't use
condition-case.
* mm-bodies.el (mm-encode-body): Use mm-multibyte-p.
* gnus-score.el (gnus-score-load-file): Use expand-file-name.
......
......@@ -64,7 +64,7 @@
(set-extent-property annot 'duplicable t)))
(eval-and-compile
(if (string-match "XEmacs" (emacs-version))
(if (featurep 'xemacs)
(defalias 'mm-inline-image 'mm-inline-image-xemacs)
(defalias 'mm-inline-image 'mm-inline-image-emacs)))
......@@ -251,13 +251,12 @@
handle
`(lambda ()
(let (buffer-read-only)
(condition-case nil
(if (fboundp 'remove-specifier)
;; This is only valid on XEmacs.
(mapcar (lambda (prop)
(remove-specifier
(face-property 'default prop) (current-buffer)))
'(background background-pixmap foreground))
(error nil))
'(background background-pixmap foreground)))
(delete-region ,(point-min-marker) ,(point-max-marker)))))))))
(defun mm-display-inline-fontify (handle mode)
......
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