From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 9 Oct 2019 00:46:17 +0000 (+0200)
Subject: Remove some XEmacs compat code from newst*.el
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~1603
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=97702f5292307c71c9c124604bf85b6c629f3bb6;p=emacs.git

Remove some XEmacs compat code from newst*.el

* lisp/net/newst-plainview.el
(newsticker--plainview-tool-bar-map): Remove XEmacs support.

* lisp/net/newst-treeview.el (newsticker-treeview-tool-bar-map):
---

diff --git a/lisp/net/newst-plainview.el b/lisp/net/newst-plainview.el
index 58bca31aba4..e1e97801a04 100644
--- a/lisp/net/newst-plainview.el
+++ b/lisp/net/newst-plainview.el
@@ -273,69 +273,67 @@ images."
 ;; ======================================================================
 
 (defvar newsticker--plainview-tool-bar-map
-  (if (featurep 'xemacs)
-      nil
-    (if (boundp 'tool-bar-map)
-        (let ((tool-bar-map (make-sparse-keymap)))
-          (tool-bar-add-item "newsticker/prev-feed"
-                             'newsticker-previous-feed
-                             'newsticker-previous-feed
-                             :help "Go to previous feed"
-                             :enable '(newsticker-previous-feed-available-p))
-          (tool-bar-add-item "newsticker/prev-item"
-                             'newsticker-previous-item
-                             'newsticker-previous-item
-                             :help "Go to previous item"
-                             :enable '(newsticker-previous-item-available-p))
-          (tool-bar-add-item "newsticker/next-item"
-                             'newsticker-next-item
-                             'newsticker-next-item
-                             :help "Go to next item"
-                             :enable '(newsticker-next-item-available-p))
-          (tool-bar-add-item "newsticker/next-feed"
-                             'newsticker-next-feed
-                             'newsticker-next-feed
-                             :help "Go to next feed"
-                             :enable '(newsticker-next-feed-available-p))
-          (tool-bar-add-item "newsticker/narrow"
-                             'newsticker-toggle-auto-narrow-to-feed
-                             'newsticker-toggle-auto-narrow-to-feed
-                             :help "Toggle visibility of other feeds")
-          (tool-bar-add-item "newsticker/mark-immortal"
-                             'newsticker-mark-item-at-point-as-immortal
-                             'newsticker-mark-item-at-point-as-immortal
-                             :help "Mark current item as immortal"
-                             :enable '(newsticker-item-not-immortal-p))
-          (tool-bar-add-item "newsticker/mark-read"
-                             'newsticker-mark-item-at-point-as-read
-                             'newsticker-mark-item-at-point-as-read
-                             :help "Mark current item as read"
-                             :enable '(newsticker-item-not-old-p))
-          (tool-bar-add-item "newsticker/get-all-news"
-                             'newsticker-get-all-news
-                             'newsticker-get-all-news
-                             :help "Get news for all feeds")
-          (tool-bar-add-item "newsticker/update"
-                             'newsticker-buffer-force-update
-                             'newsticker-buffer-force-update
-                             :help "Update newsticker buffer"
-                             :enable '(not newsticker--buffer-uptodate-p))
-          (tool-bar-add-item "newsticker/browse-url"
-                             'newsticker-browse-url
-                             'newsticker-browse-url
-                             :help "Browse URL for item at point")
-          ;; standard icons / actions
-          (define-key tool-bar-map [newsticker-sep-1]
-            (list 'menu-item "--double-line"))
-          (tool-bar-add-item "close"
-                             'newsticker-close-buffer
-                             'newsticker-close-buffer
-                             :help "Close newsticker buffer")
-          (tool-bar-add-item "preferences"
-                             'newsticker-customize
-                             'newsticker-customize
-                             :help "Customize newsticker")
-          tool-bar-map))))
+  (when (boundp 'tool-bar-map)
+    (let ((tool-bar-map (make-sparse-keymap)))
+      (tool-bar-add-item "newsticker/prev-feed"
+                         'newsticker-previous-feed
+                         'newsticker-previous-feed
+                         :help "Go to previous feed"
+                         :enable '(newsticker-previous-feed-available-p))
+      (tool-bar-add-item "newsticker/prev-item"
+                         'newsticker-previous-item
+                         'newsticker-previous-item
+                         :help "Go to previous item"
+                         :enable '(newsticker-previous-item-available-p))
+      (tool-bar-add-item "newsticker/next-item"
+                         'newsticker-next-item
+                         'newsticker-next-item
+                         :help "Go to next item"
+                         :enable '(newsticker-next-item-available-p))
+      (tool-bar-add-item "newsticker/next-feed"
+                         'newsticker-next-feed
+                         'newsticker-next-feed
+                         :help "Go to next feed"
+                         :enable '(newsticker-next-feed-available-p))
+      (tool-bar-add-item "newsticker/narrow"
+                         'newsticker-toggle-auto-narrow-to-feed
+                         'newsticker-toggle-auto-narrow-to-feed
+                         :help "Toggle visibility of other feeds")
+      (tool-bar-add-item "newsticker/mark-immortal"
+                         'newsticker-mark-item-at-point-as-immortal
+                         'newsticker-mark-item-at-point-as-immortal
+                         :help "Mark current item as immortal"
+                         :enable '(newsticker-item-not-immortal-p))
+      (tool-bar-add-item "newsticker/mark-read"
+                         'newsticker-mark-item-at-point-as-read
+                         'newsticker-mark-item-at-point-as-read
+                         :help "Mark current item as read"
+                         :enable '(newsticker-item-not-old-p))
+      (tool-bar-add-item "newsticker/get-all-news"
+                         'newsticker-get-all-news
+                         'newsticker-get-all-news
+                         :help "Get news for all feeds")
+      (tool-bar-add-item "newsticker/update"
+                         'newsticker-buffer-force-update
+                         'newsticker-buffer-force-update
+                         :help "Update newsticker buffer"
+                         :enable '(not newsticker--buffer-uptodate-p))
+      (tool-bar-add-item "newsticker/browse-url"
+                         'newsticker-browse-url
+                         'newsticker-browse-url
+                         :help "Browse URL for item at point")
+      ;; standard icons / actions
+      (define-key tool-bar-map [newsticker-sep-1]
+        (list 'menu-item "--double-line"))
+      (tool-bar-add-item "close"
+                         'newsticker-close-buffer
+                         'newsticker-close-buffer
+                         :help "Close newsticker buffer")
+      (tool-bar-add-item "preferences"
+                         'newsticker-customize
+                         'newsticker-customize
+                         :help "Customize newsticker")
+      tool-bar-map)))
 
 ;; ======================================================================
 ;;; Newsticker mode
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index ece728a8358..2a6a64de461 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -1093,71 +1093,69 @@ Arguments are ignored."
 ;;; Toolbar
 ;; ======================================================================
 (defvar newsticker-treeview-tool-bar-map
-  (if (featurep 'xemacs)
-      nil
-    (if (boundp 'tool-bar-map)
-        (let ((tool-bar-map (make-sparse-keymap)))
-          (tool-bar-add-item "newsticker/prev-feed"
-                             'newsticker-treeview-prev-feed
-                             'newsticker-treeview-prev-feed
-                             :help "Go to previous feed"
-                             ;;:enable '(newsticker-previous-feed-available-p) FIXME
-                             )
-          (tool-bar-add-item "newsticker/prev-item"
-                             'newsticker-treeview-prev-item
-                             'newsticker-treeview-prev-item
-                             :help "Go to previous item"
-                             ;;:enable '(newsticker-previous-item-available-p) FIXME
-                             )
-          (tool-bar-add-item "newsticker/next-item"
-                             'newsticker-treeview-next-item
-                             'newsticker-treeview-next-item
-                             :visible t
-                             :help "Go to next item"
-                             ;;:enable '(newsticker-next-item-available-p) FIXME
-                             )
-          (tool-bar-add-item "newsticker/next-feed"
-                             'newsticker-treeview-next-feed
-                             'newsticker-treeview-next-feed
-                             :help "Go to next feed"
-                             ;;:enable '(newsticker-next-feed-available-p) FIXME
-                             )
-          (tool-bar-add-item "newsticker/mark-immortal"
-                             'newsticker-treeview-toggle-item-immortal
-                             'newsticker-treeview-toggle-item-immortal
-                             :help "Toggle current item as immortal"
-                             ;;:enable '(newsticker-item-not-immortal-p) FIXME
-                             )
-          (tool-bar-add-item "newsticker/mark-read"
-                             'newsticker-treeview-mark-item-old
-                             'newsticker-treeview-mark-item-old
-                             :help "Mark current item as read"
-                             ;;:enable '(newsticker-item-not-old-p) FIXME
-                             )
-          (tool-bar-add-item "newsticker/get-all"
-                             'newsticker-get-all-news
-                             'newsticker-get-all-news
-                             :help "Get news for all feeds")
-          (tool-bar-add-item "newsticker/update"
-                             'newsticker-treeview-update
-                             'newsticker-treeview-update
-                             :help "Update newsticker buffer")
-          (tool-bar-add-item "newsticker/browse-url"
-                             'newsticker-browse-url
-                             'newsticker-browse-url
-                             :help "Browse URL for item at point")
-          ;; standard icons / actions
-          (define-key tool-bar-map [newsticker-sep-1]
-            (list 'menu-item "--double-line"))
-          (tool-bar-add-item "close"
-                             'newsticker-treeview-quit
-                             'newsticker-treeview-quit
-                             :help "Close newsticker")
-          (tool-bar-add-item "preferences"
-                             'newsticker-customize
-                             'newsticker-customize
-                             :help "Customize newsticker")
-          tool-bar-map))))
+  (when (boundp 'tool-bar-map)
+    (let ((tool-bar-map (make-sparse-keymap)))
+      (tool-bar-add-item "newsticker/prev-feed"
+                         'newsticker-treeview-prev-feed
+                         'newsticker-treeview-prev-feed
+                         :help "Go to previous feed"
+                         ;;:enable '(newsticker-previous-feed-available-p) FIXME
+                         )
+      (tool-bar-add-item "newsticker/prev-item"
+                         'newsticker-treeview-prev-item
+                         'newsticker-treeview-prev-item
+                         :help "Go to previous item"
+                         ;;:enable '(newsticker-previous-item-available-p) FIXME
+                         )
+      (tool-bar-add-item "newsticker/next-item"
+                         'newsticker-treeview-next-item
+                         'newsticker-treeview-next-item
+                         :visible t
+                         :help "Go to next item"
+                         ;;:enable '(newsticker-next-item-available-p) FIXME
+                         )
+      (tool-bar-add-item "newsticker/next-feed"
+                         'newsticker-treeview-next-feed
+                         'newsticker-treeview-next-feed
+                         :help "Go to next feed"
+                         ;;:enable '(newsticker-next-feed-available-p) FIXME
+                         )
+      (tool-bar-add-item "newsticker/mark-immortal"
+                         'newsticker-treeview-toggle-item-immortal
+                         'newsticker-treeview-toggle-item-immortal
+                         :help "Toggle current item as immortal"
+                         ;;:enable '(newsticker-item-not-immortal-p) FIXME
+                         )
+      (tool-bar-add-item "newsticker/mark-read"
+                         'newsticker-treeview-mark-item-old
+                         'newsticker-treeview-mark-item-old
+                         :help "Mark current item as read"
+                         ;;:enable '(newsticker-item-not-old-p) FIXME
+                         )
+      (tool-bar-add-item "newsticker/get-all"
+                         'newsticker-get-all-news
+                         'newsticker-get-all-news
+                         :help "Get news for all feeds")
+      (tool-bar-add-item "newsticker/update"
+                         'newsticker-treeview-update
+                         'newsticker-treeview-update
+                         :help "Update newsticker buffer")
+      (tool-bar-add-item "newsticker/browse-url"
+                         'newsticker-browse-url
+                         'newsticker-browse-url
+                         :help "Browse URL for item at point")
+      ;; standard icons / actions
+      (define-key tool-bar-map [newsticker-sep-1]
+        (list 'menu-item "--double-line"))
+      (tool-bar-add-item "close"
+                         'newsticker-treeview-quit
+                         'newsticker-treeview-quit
+                         :help "Close newsticker")
+      (tool-bar-add-item "preferences"
+                         'newsticker-customize
+                         'newsticker-customize
+                         :help "Customize newsticker")
+      tool-bar-map)))
 
 ;; ======================================================================
 ;;; actions