mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove Gnus XEmacs compat functions

Browse source 
* lisp/gnus/gnus-registry.el: Remove XEmacs compat.

* lisp/gnus/gnus-salt.el: Remove XEmacs compat.

* lisp/gnus/gnus-score.el (gnus-decay-score): Remove XEmacs compat.
This commit is contained in:
Lars Ingebrigtsen 2016-02-11 15:27:45 +11:00
parent 35953890c5
commit 1ff3e583f5
4 changed files with 8 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/gnus/gnus-salt.el
View file

@ -25,9 +25,6 @@
;;; Code:
(eval-when-compile (require 'cl))
(eval-when-compile
(when (featurep 'xemacs)
(require 'easy-mmode))) ; for `define-minor-mode'
(require 'gnus)
(require 'gnus-sum)
@ -47,9 +44,6 @@
:type 'hook
:group 'gnus-summary-pick)
(when (featurep 'xemacs)
(add-hook 'gnus-pick-mode-hook 'gnus-xmas-pick-menu-add))
(defcustom gnus-mark-unpicked-articles-as-read nil
"*If non-nil, mark all unpicked articles as read."
:type 'boolean
@ -100,11 +94,6 @@ It accepts the same format specs that `gnus-summary-line-format' does."
["Start reading" gnus-pick-start-reading t]
["Switch pick mode off" gnus-pick-mode gnus-pick-mode]))))
(eval-when-compile
(when (featurep 'xemacs)
(defvar gnus-pick-mode-on-hook)
(defvar gnus-pick-mode-off-hook)))
(define-minor-mode gnus-pick-mode
"Minor mode for providing a pick-and-read interface in Gnus summary buffers.
@ -339,11 +328,6 @@ This must be bound to a button-down mouse event."
'("Pick"
["Switch binary mode off" gnus-binary-mode t]))))
(eval-when-compile
(when (featurep 'xemacs)
(defvar gnus-binary-mode-on-hook)
(defvar gnus-binary-mode-off-hook)))
(define-minor-mode gnus-binary-mode
"Minor mode for providing a binary group interface in Gnus summary buffers."
:lighter " Binary" :keymap gnus-binary-mode-map
@ -419,11 +403,6 @@ Two predefined functions are available:
:type 'hook
:group 'gnus-summary-tree)
(when (featurep 'xemacs)
(add-hook 'gnus-tree-mode-hook 'gnus-xmas-tree-menu-add)
(add-hook 'gnus-tree-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off))
;;; Internal variables.
(defvar gnus-tmp-name)