aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/gnus-ems.el12
1 files changed, 2 insertions, 10 deletions
diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index 59dd6ae5774..ef97fa4d68e 100644
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -49,6 +49,8 @@
49 (autoload 'gnus-xmas-redefine "gnus-xmas") 49 (autoload 'gnus-xmas-redefine "gnus-xmas")
50 (autoload 'appt-select-lowest-window "appt")) 50 (autoload 'appt-select-lowest-window "appt"))
51 51
52(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
53
52;;; Mule functions. 54;;; Mule functions.
53 55
54(defun gnus-mule-max-width-function (el max-width) 56(defun gnus-mule-max-width-function (el max-width)
@@ -66,16 +68,6 @@
66 "Property used for highlighting mouse regions."))) 68 "Property used for highlighting mouse regions.")))
67 69
68(eval-and-compile 70(eval-and-compile
69 (cond
70 ((not window-system)
71 (let ((funcs '(mouse-set-point set-face-foreground
72 set-face-background x-popup-menu)))
73 (while funcs
74 (unless (fboundp (car funcs))
75 (defalias (car funcs) 'ignore))
76 (setq funcs (cdr funcs)))))))
77
78(eval-and-compile
79 (let ((case-fold-search t)) 71 (let ((case-fold-search t))
80 (cond 72 (cond
81 ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" 73 ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"