Mercurial > emacs
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"