Mercurial > emacs
comparison lisp/gnus/gnus-ems.el @ 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 | bdb5ce245f0e |
children | c182c9b42c86 |
comparison
equal
deleted
inserted
replaced
31779:850819b4ec74 | 31780:d2b5643aab16 |
---|---|
47 (eval-and-compile | 47 (eval-and-compile |
48 (autoload 'gnus-xmas-define "gnus-xmas") | 48 (autoload 'gnus-xmas-define "gnus-xmas") |
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) |
55 `(let* ((val (eval (, el))) | 57 `(let* ((val (eval (, el))) |
56 (valstr (if (numberp val) | 58 (valstr (if (numberp val) |
62 (eval-and-compile | 64 (eval-and-compile |
63 (if gnus-xemacs | 65 (if gnus-xemacs |
64 (gnus-xmas-define) | 66 (gnus-xmas-define) |
65 (defvar gnus-mouse-face-prop 'mouse-face | 67 (defvar gnus-mouse-face-prop 'mouse-face |
66 "Property used for highlighting mouse regions."))) | 68 "Property used for highlighting mouse regions."))) |
67 | |
68 (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 | 69 |
78 (eval-and-compile | 70 (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" |