[Emacs-diffs] Changes to emacs/lisp/net/newst-treeview.el,v

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        08/06/21 15:43:37

Index: net/newst-treeview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-treeview.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- net/newst-treeview.el       20 Jun 2008 16:16:34 -0000      1.4
+++ net/newst-treeview.el       21 Jun 2008 15:43:34 -0000      1.5
@@ -7,7 +7,7 @@
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Created:     2007
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "20. Juni 2008, 18:13:52 (ulf)"
+;; Time-stamp:  "21. Juni 2008, 17:35:21 (ulf)"
 
 ;; ======================================================================
 
@@ -115,10 +115,14 @@
 (defvar newsticker-groups
   '("Feeds")
   "List of feed groups, used in the treeview frontend.
-Each element must be a list consisting of strings.  The first
-element gives the title of the group, the following elements the
-names of feeds that belong to the group.
-FIXME")
+First element is a string giving the group name.  Remaining
+elements are either strings giving a feed name or lists having
+the same structure as `newsticker-groups'. (newsticker-groups :=
+groupdefinition, groupdefinition := groupname groupcontent*,
+groupcontent := feedname | groupdefinition)
+
+Example: (\"Topmost group\" \"feed1\" (\"subgroup1\" \"feed 2\")
+\"feed3\")")
 
 (defcustom newsticker-groups-filename
   "~/.newsticker-groups"
@@ -135,14 +139,10 @@
 (defvar newsticker--treeview-current-vfeed nil)
 (defvar newsticker--treeview-list-show-feed nil)
 (defvar newsticker--saved-window-config nil)
-(defvar newsticker--window-config nil)
-;; (makunbound 'newsticker--selection-overlay) ;; FIXME
 (defvar newsticker--selection-overlay nil
   "Highlight the selected tree node.")
-;;(makunbound 'newsticker--tree-selection-overlay) ;; FIXME
 (defvar newsticker--tree-selection-overlay nil
   "Highlight the selected list item.")
-;;(makunbound 'newsticker--frame);; FIXME
 (defvar newsticker--frame nil "Special frame for newsticker windows.")
 (defvar newsticker--treeview-list-sort-order 'sort-by-time)
 (defvar newsticker--treeview-current-node-id nil)
@@ -370,9 +370,9 @@
                                                    &optional event)
   "Fill newsticker treeview list window with new items.
 This is a callback function for the treeview nodes.
-Argument WIDGET FIXME.
-Argument CHANGED-WIDGET FIXME.
-Optional argument EVENT FIXME."
+Argument WIDGET is the calling treeview widget.
+Argument CHANGED-WIDGET is the widget that actually has changed.
+Optional argument EVENT is the mouse event that triggered this action."
   (newsticker--treeview-list-items-with-age-callback widget changed-widget
                                                      'new)
   (newsticker--treeview-item-show-text
@@ -383,9 +383,9 @@
                                                         &optional event)
   "Fill newsticker treeview list window with immortal items.
 This is a callback function for the treeview nodes.
-Argument WIDGET FIXME.
-Argument CHANGED-WIDGET FIXME.
-Optional argument EVENT FIXME."
+Argument WIDGET is the calling treeview widget.
+Argument CHANGED-WIDGET is the widget that actually has changed.
+Optional argument EVENT is the mouse event that triggered this action."
   (newsticker--treeview-list-items-with-age-callback widget changed-widget
                                                      'immortal)
   (newsticker--treeview-item-show-text
@@ -396,9 +396,9 @@
                                                         &optional event)
   "Fill newsticker treeview list window with obsolete items.
 This is a callback function for the treeview nodes.
-Argument WIDGET FIXME.
-Argument CHANGED-WIDGET FIXME.
-Optional argument EVENT FIXME."
+Argument WIDGET is the calling treeview widget.
+Argument CHANGED-WIDGET is the widget that actually has changed.
+Optional argument EVENT is the mouse event that triggered this action."
   (newsticker--treeview-list-items-with-age-callback widget changed-widget
                                                      'obsolete)
   (newsticker--treeview-item-show-text
@@ -409,9 +409,9 @@
                                                    &optional event)
   "Fill newsticker treeview list window with all items.
 This is a callback function for the treeview nodes.
-Argument WIDGET FIXME.
-Argument CHANGED-WIDGET FIXME.
-Optional argument EVENT FIXME."
+Argument WIDGET is the calling treeview widget.
+Argument CHANGED-WIDGET is the widget that actually has changed.
+Optional argument EVENT is the mouse event that triggered this action."
   (newsticker--treeview-list-items-with-age-callback widget changed-widget
                                                      event 'new 'old
                                                      'obsolete 'immortal)
@@ -448,9 +448,9 @@
 (defun newsticker--treeview-list-feed-items (widget changed-widget
                                                     &optional event)
   "Callback function for listing feed items.
-Argument WIDGET FIXME.
-Argument CHANGED-WIDGET FIXME.
-Optional argument EVENT FIXME."
+Argument WIDGET is the calling treeview widget.
+Argument CHANGED-WIDGET is the widget that actually has changed.
+Optional argument EVENT is the mouse event that triggered this action."
   (newsticker--treeview-list-clear)
   (widget-put widget :nt-selected t)
   (let ((feed-name (widget-get widget :nt-feed))
@@ -603,7 +603,6 @@
     (newsticker--treeview-list-update-faces)
     (goto-char (point-min))))
 
-;;(makunbound 'newsticker-treeview-list-sort-button-map);; FIXME
 (defvar newsticker-treeview-list-sort-button-map
   (let ((map (make-sparse-keymap)))
     (define-key map [header-line mouse-1]
@@ -613,9 +612,9 @@
     map)
   "Local keymap for newsticker treeview list window sort buttons.")
 
-(defun newsticker--treeview-list-sort-by-column (&optional e)
+(defun newsticker--treeview-list-sort-by-column (&optional event)
   "Sort the newsticker list window buffer by the column clicked on.
-Optional argument E FIXME."
+Optional argument EVENT is the mouse event that triggered this action."
   (interactive (list last-input-event))
   (if e (mouse-select-window e))
   (let* ((pos (event-start e))
@@ -1204,7 +1203,6 @@
   (interactive)
   (newsticker-treeview-save)
   (setq newsticker--sentinel-callback nil)
-  (setq newsticker--window-config (current-window-configuration))
   (bury-buffer "*Newsticker Tree*")
   (bury-buffer "*Newsticker List*")
   (bury-buffer "*Newsticker Item*")
@@ -1799,7 +1797,6 @@
              (newsticker--group-get-group feed-name))))
     menu))
 
-;;(makunbound 'newsticker-treeview-list-menu) ;FIXME
 (defvar newsticker-treeview-list-menu
   (let ((menu (make-sparse-keymap "Newsticker List")))
     (define-key menu [newsticker-treeview-mark-list-items-old]
@@ -1808,7 +1805,6 @@
     menu)
   "Map for newsticker tree menu.")
 
-;;(makunbound 'newsticker-treeview-mode-map) ;FIXME
 (defvar newsticker-treeview-mode-map
   (let ((map (make-sparse-keymap 'newsticker-treeview-mode-map)))
     (define-key map " " 'newsticker-treeview-next-page)
@@ -1850,7 +1846,6 @@
   (setq buffer-read-only t
         truncate-lines t))
 
-;;(makunbound 'newsticker-treeview-list-mode-map);FIXME
 (define-derived-mode newsticker-treeview-list-mode newsticker-treeview-mode
   "Item List"
   (let ((header (concat
@@ -1947,8 +1942,6 @@
   (newsticker--treeview-window-init)
   (newsticker--treeview-buffer-init)
   (newsticker--group-manage-orphan-feeds)
-  (if newsticker--window-config
-      (set-window-configuration newsticker--window-config))
   (newsticker--treeview-set-current-node newsticker--treeview-feed-tree)
   (newsticker-start t) ;; will start only if not running
   (newsticker-treeview-update)