aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2009-02-17 14:58:15 +0000
committerJuanma Barranquero2009-02-17 14:58:15 +0000
commit1227224193f92d05745eb1ae985e9e5bccbc1122 (patch)
tree53353214c62f8fffa2f17f354e7bfd74478b9b40
parentbb4a52db9ff6752f44849b7e411dd5d783c12d3f (diff)
downloademacs-1227224193f92d05745eb1ae985e9e5bccbc1122.tar.gz
emacs-1227224193f92d05745eb1ae985e9e5bccbc1122.zip
* net/newst-treeview.el (newsticker--treeview-load): Remove bogus `if'.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/net/newst-treeview.el10
2 files changed, 7 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc2da36c503..1da764d9ce9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12009-02-17 Juanma Barranquero <lekktu@gmail.com> 12009-02-17 Juanma Barranquero <lekktu@gmail.com>
2 2
3 * net/newst-treeview.el (newsticker--treeview-load): Remove bogus `if'.
4
3 * progmodes/cc-menus.el (cc-imenu-objc-function): Doc fix. 5 * progmodes/cc-menus.el (cc-imenu-objc-function): Doc fix.
4 6
52009-02-17 Miles Bader <miles@gnu.org> 72009-02-17 Miles Bader <miles@gnu.org>
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 572387f60f2..dc97b5e8e3d 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -1261,9 +1261,9 @@ Note: does not update the layout."
1261 (concat newsticker-dir "/groups"))) 1261 (concat newsticker-dir "/groups")))
1262 (buf (and (file-exists-p filename) 1262 (buf (and (file-exists-p filename)
1263 (find-file-noselect filename)))) 1263 (find-file-noselect filename))))
1264 (if (and (file-exists-p newsticker-groups-filename) 1264 (and (file-exists-p newsticker-groups-filename)
1265 (y-or-n-p (format "Delete old newsticker groups file? ")) 1265 (y-or-n-p (format "Delete old newsticker groups file? "))
1266 (delete-file newsticker-groups-filename))) 1266 (delete-file newsticker-groups-filename))
1267 (when buf 1267 (when buf
1268 (set-buffer buf) 1268 (set-buffer buf)
1269 (goto-char (point-min)) 1269 (goto-char (point-min))
@@ -1551,7 +1551,7 @@ is activated."
1551 (widget-apply-action node))))) 1551 (widget-apply-action node)))))
1552 1552
1553(defun newsticker--treeview-first-feed () 1553(defun newsticker--treeview-first-feed ()
1554 "Jump to the depth-first feed in the newsticker-groups tree." 1554 "Jump to the depth-first feed in the newsticker-groups tree."
1555 (newsticker-treeview-jump 1555 (newsticker-treeview-jump
1556 (car (reverse (newsticker--group-get-feeds newsticker-groups t))))) 1556 (car (reverse (newsticker--group-get-feeds newsticker-groups t)))))
1557 1557
@@ -1603,7 +1603,7 @@ Return t if a new feed was activated, nil otherwise."
1603 (not (eq new cur))) 1603 (not (eq new cur)))
1604 nil)) 1604 nil))
1605 nil))) 1605 nil)))
1606 1606
1607(defun newsticker-treeview-next-page () 1607(defun newsticker-treeview-next-page ()
1608 "Scroll item buffer." 1608 "Scroll item buffer."
1609 (interactive) 1609 (interactive)