Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-ems.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 585fb297b004
children 2d532a89d707
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
32 (defvar gnus-xemacs (string-match "XEmacs\\|Lucid" emacs-version) 32 (defvar gnus-xemacs (string-match "XEmacs\\|Lucid" emacs-version)
33 "Non-nil if running under XEmacs.") 33 "Non-nil if running under XEmacs.")
34 34
35 (defvar gnus-mouse-2 [mouse-2]) 35 (defvar gnus-mouse-2 [mouse-2])
36 (defvar gnus-down-mouse-2 [down-mouse-2]) 36 (defvar gnus-down-mouse-2 [down-mouse-2])
37 (defvar gnus-mode-line-modified
38 (if (and (not gnus-xemacs)
39 (< emacs-major-version 20))
40 '("--**-" . "-----")
41 '("**" "--")))
37 42
38 (eval-and-compile 43 (eval-and-compile
39 (autoload 'gnus-xmas-define "gnus-xmas") 44 (autoload 'gnus-xmas-define "gnus-xmas")
40 (autoload 'gnus-xmas-redefine "gnus-xmas") 45 (autoload 'gnus-xmas-redefine "gnus-xmas")
41 (autoload 'appt-select-lowest-window "appt")) 46 (autoload 'appt-select-lowest-window "appt"))
195 (and (boundp 'transient-mark-mode) 200 (and (boundp 'transient-mark-mode)
196 transient-mark-mode 201 transient-mark-mode
197 (boundp 'mark-active) 202 (boundp 'mark-active)
198 mark-active)) 203 mark-active))
199 204
205 (defun gnus-add-minor-mode (mode name map)
206 (if (fboundp 'add-minor-mode)
207 (add-minor-mode mode name map)
208 (unless (assq mode minor-mode-alist)
209 (push `(,mode ,name) minor-mode-alist))
210 (unless (assq mode minor-mode-map-alist)
211 (push (cons mode map)
212 minor-mode-map-alist))))
213
200 (provide 'gnus-ems) 214 (provide 'gnus-ems)
201 215
202 ;; Local Variables: 216 ;; Local Variables:
203 ;; byte-compile-warnings: '(redefine callargs) 217 ;; byte-compile-warnings: '(redefine callargs)
204 ;; End: 218 ;; End: