changeset 31780:d2b5643aab16

(gnus-smiley-display): Autoload from smiley-ems. (mouse-set-point, set-face-foreground) (set-face-background, x-popup-menu) [not window-system]: Don't zap them.
author Dave Love <fx@gnu.org>
date Wed, 20 Sep 2000 16:42:43 +0000
parents 850819b4ec74
children 8a6a4f06f145
files lisp/gnus/gnus-ems.el
diffstat 1 files changed, 2 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-ems.el	Wed Sep 20 16:37:30 2000 +0000
+++ b/lisp/gnus/gnus-ems.el	Wed Sep 20 16:42:43 2000 +0000
@@ -49,6 +49,8 @@
   (autoload 'gnus-xmas-redefine "gnus-xmas")
   (autoload 'appt-select-lowest-window "appt"))
 
+(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
+
 ;;; Mule functions.
 
 (defun gnus-mule-max-width-function (el max-width)
@@ -66,16 +68,6 @@
       "Property used for highlighting mouse regions.")))
 
 (eval-and-compile
-  (cond
-   ((not window-system)
-    (let ((funcs '(mouse-set-point set-face-foreground
-				   set-face-background x-popup-menu)))
-      (while funcs
-	(unless (fboundp (car funcs))
-	  (defalias (car funcs) 'ignore))
-	(setq funcs (cdr funcs)))))))
-
-(eval-and-compile
   (let ((case-fold-search t))
     (cond
      ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"