Mercurial > emacs

comparison lisp/gnus/gnus-ems.el @ 31780:d2b5643aab16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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"