Commit 2d2f7f3e authored by Dave Love's avatar Dave Love
Browse files

(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.
parent cd3c0140
...@@ -49,6 +49,8 @@ ...@@ -49,6 +49,8 @@
(autoload 'gnus-xmas-redefine "gnus-xmas") (autoload 'gnus-xmas-redefine "gnus-xmas")
(autoload 'appt-select-lowest-window "appt")) (autoload 'appt-select-lowest-window "appt"))
(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
;;; Mule functions. ;;; Mule functions.
(defun gnus-mule-max-width-function (el max-width) (defun gnus-mule-max-width-function (el max-width)
...@@ -65,16 +67,6 @@ ...@@ -65,16 +67,6 @@
(defvar gnus-mouse-face-prop 'mouse-face (defvar gnus-mouse-face-prop 'mouse-face
"Property used for highlighting mouse regions."))) "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 (eval-and-compile
(let ((case-fold-search t)) (let ((case-fold-search t))
(cond (cond
......
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