Mercurial > emacs

changeset 32939:c8119677d63e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use (featurep 'xemacs) instead of the `gnus-xemacs' variable, as the latter has been removed.
author Miles Bader <miles@gnu.org>
date Fri, 27 Oct 2000 01:36:40 +0000
parents 4b9c0e6751e7
children 80681aca0859
files lisp/gnus/gnus-art.el lisp/gnus/gnus-ems.el lisp/gnus/gnus-start.el
diffstat 3 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Fri Oct 27 01:22:21 2000 +0000
+++ b/lisp/gnus/gnus-art.el	Fri Oct 27 01:36:40 2000 +0000
@@ -874,7 +874,7 @@
 (defcustom gnus-treat-display-xface 
   (and (or (and (fboundp 'image-type-available-p)
 		(image-type-available-p 'xbm))
-	   (and gnus-xemacs (featurep 'xface)))
+	   (and (featurep 'xemacs) (featurep 'xface)))
        'head)
   "Display X-Face headers.
 Valid values are nil, t, `head', `last', an integer or a predicate.
@@ -883,7 +883,7 @@
   :type gnus-article-treat-head-custom)
 (put 'gnus-treat-display-xface 'highlight t)
 
-(defcustom gnus-treat-display-smileys (if (and gnus-xemacs
+(defcustom gnus-treat-display-smileys (if (and (featurep 'xemacs)
 					       (featurep 'xpm))
 					  t nil)
   "Display smileys.
@@ -893,7 +893,7 @@
   :type gnus-article-treat-custom)
 (put 'gnus-treat-display-smileys 'highlight t)
 
-(defcustom gnus-treat-display-picons (if gnus-xemacs 'head nil)
+(defcustom gnus-treat-display-picons (if (featurep 'xemacs) 'head nil)
   "Display picons.
 Valid values are nil, t, `head', `last', an integer or a predicate.
 See the manual for details."
@@ -3704,7 +3704,7 @@
       (set-buffer gnus-article-current-summary)
       (let (gnus-pick-mode)
         (push (or key last-command-event) unread-command-events)
-        (setq keys (if gnus-xemacs
+        (setq keys (if (featurep 'xemacs)
 		       (events-to-keys (read-key-sequence nil))
 		     (read-key-sequence nil)))))
 		     
--- a/lisp/gnus/gnus-ems.el	Fri Oct 27 01:22:21 2000 +0000
+++ b/lisp/gnus/gnus-ems.el	Fri Oct 27 01:36:40 2000 +0000
@@ -97,7 +97,7 @@
 
 (defun gnus-ems-redefine ()
   (cond
-   (gnus-xemacs
+   ((featurep 'xemacs)
     (gnus-xmas-redefine))
 
    ((featurep 'mule)
--- a/lisp/gnus/gnus-start.el	Fri Oct 27 01:22:21 2000 +0000
+++ b/lisp/gnus/gnus-start.el	Fri Oct 27 01:36:40 2000 +0000
@@ -679,7 +679,7 @@
     (when gnus-simple-splash
       (setq gnus-simple-splash nil)
       (cond
-       (gnus-xemacs
+       ((featurep 'xemacs)
 	(gnus-xmas-splash))
        ((and window-system
 	     (= (frame-height) (1+ (window-height))))
@@ -2628,7 +2628,7 @@
 	      (let ((str (buffer-substring
 			  (point) (progn (end-of-line) (point))))
 		    (coding
-		     (and (or gnus-xemacs
+		     (and (or (featurep 'xemacs)
 			      (and (boundp 'enable-multibyte-characters)
 				   enable-multibyte-characters))
 			  (fboundp 'gnus-mule-get-coding-system)