mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

2000-10-08 08:57:13 ShengHuo ZHU <zsh@cs.rochester.edu>

Browse Source 
* gnus-ems.el: Remove gnus-xemacs.  Autoload smiley.
	(gnus-kill-all-overlays): Move here.
This commit is contained in:
Dave Love 2000-10-26 17:36:05 +00:00
parent a211301f96
commit 06c43cdf99
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/gnus/gnus-ems.el
View File

@ -26,22 +26,16 @@
;;; Code:
(eval-when-compile
(require 'cl)
(require 'ring))
(eval-when-compile (require 'cl))
;;; Function aliases later to be redefined for XEmacs usage.
(eval-and-compile
(defvar gnus-xemacs (featurep 'xemacs)
"Non-nil if running under XEmacs."))
(defvar gnus-mouse-2 [mouse-2])
(defvar gnus-down-mouse-3 [down-mouse-3])
(defvar gnus-down-mouse-2 [down-mouse-2])
(defvar gnus-widget-button-keymap nil)
(defvar gnus-mode-line-modified
(if (or gnus-xemacs
(if (or (featurep 'xemacs)
(< emacs-major-version 20))
'("--**-" . "-----")
'("**" "--")))
@ -51,7 +45,18 @@
(autoload 'gnus-xmas-redefine "gnus-xmas")
(autoload 'appt-select-lowest-window "appt"))
(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
(if (featurep 'xemacs)
(autoload 'gnus-smiley-display "smiley")
(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
)
(defun gnus-kill-all-overlays ()
"Delete all overlays in the current buffer."
(let* ((overlayss (overlay-lists))
(buffer-read-only nil)
(overlays (delq nil (nconc (car overlayss) (cdr overlayss)))))
(while overlays
(delete-overlay (pop overlays)))))
;;; Mule functions.
@ -64,7 +69,7 @@
valstr)))
(eval-and-compile
(if gnus-xemacs
(if (featurep 'xemacs)
(gnus-xmas-define)
(defvar gnus-mouse-face-prop 'mouse-face
"Property used for highlighting mouse regions.")))