Mercurial > emacs

changeset 33329:71ce9ad48432

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use featurep for XEmacs test. (mm-inline-message): Test for `remove-specifier'; don't use condition-case.
author Dave Love <fx@gnu.org>
date Wed, 08 Nov 2000 23:53:08 +0000
parents e97560ed979b
children d568d31d9261
files lisp/gnus/mm-view.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mm-view.el	Wed Nov 08 23:48:13 2000 +0000
+++ b/lisp/gnus/mm-view.el	Wed Nov 08 23:53:08 2000 +0000
@@ -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)