From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 19 Jun 2019 21:25:56 +0000 (+0200)
Subject: Remove XEmacs and ancient Emacs compatibility from newst-backend.el
X-Git-Tag: emacs-27.0.90~2379
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6ab713bbc3dc8fccf5fe490615aa2b679071010;p=emacs.git

Remove XEmacs and ancient Emacs compatibility from newst-backend.el

* lisp/net/newst-backend.el: Remove compatibility with XEmacs and
ancient Emacs versions.
---

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 9925a045754..e356a0ece55 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -434,40 +434,6 @@ buffers *newsticker-wget-<feed>* will not be closed."
   :type 'boolean
   :group 'newsticker-miscellaneous)
 
-;; ======================================================================
-;;; Compatibility section, XEmacs, Emacs
-;; ======================================================================
-
-;; FIXME It is bad practice to define compat functions with such generic names.
-
-(unless (fboundp 'match-string-no-properties)
-  (defalias 'match-string-no-properties 'match-string))
-
-(when (featurep 'xemacs)
-  (unless (fboundp 'replace-regexp-in-string)
-    (defun replace-regexp-in-string (re rp st)
-      (save-match-data ;; apparently XEmacs needs save-match-data
-	(replace-in-string st re rp)))))
-
-;; copied from subr.el
-(unless (fboundp 'add-to-invisibility-spec)
-  (defun add-to-invisibility-spec (arg)
-    "Add elements to `buffer-invisibility-spec'.
-See documentation for `buffer-invisibility-spec' for the kind of elements
-that can be added."
-    (if (eq buffer-invisibility-spec t)
-        (setq buffer-invisibility-spec (list t)))
-    (setq buffer-invisibility-spec
-          (cons arg buffer-invisibility-spec))))
-
-;; copied from subr.el
-(unless (fboundp 'remove-from-invisibility-spec)
-  (defun remove-from-invisibility-spec (arg)
-    "Remove elements from `buffer-invisibility-spec'."
-    (if (consp buffer-invisibility-spec)
-        (setq buffer-invisibility-spec
-              (delete arg buffer-invisibility-spec)))))
-
 ;; ======================================================================
 ;;; Internal variables
 ;; ======================================================================
@@ -591,11 +557,6 @@ name/timer pair to `newsticker--retrieval-timer-list'."
       ;; do not repeat retrieval if interval not positive
       (if (<= interval 0)
           (setq interval nil))
-      ;; Suddenly XEmacs doesn't like start-time 0
-      (if (or (not start-time)
-              (and (numberp start-time) (= start-time 0)))
-          (setq start-time 1))
-      ;; (message "start-time %s" start-time)
       (setq timer (run-at-time start-time interval
                                'newsticker-get-news feed-name))
       (if interval