[Emacs-diffs] emacs/lisp ChangeLog net/newst-treeview.el

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        09/02/09 20:05:51

Modified files:
        lisp           : ChangeLog 
        lisp/net       : newst-treeview.el 

Log message:
        newsticker: kill groups buffer after saving/loading.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15286&r2=1.15287
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/newst-treeview.el?cvsroot=emacs&r1=1.16&r2=1.17

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15286
retrieving revision 1.15287
diff -u -b -r1.15286 -r1.15287
--- ChangeLog   9 Feb 2009 15:33:47 -0000       1.15286
+++ ChangeLog   9 Feb 2009 20:05:48 -0000       1.15287
@@ -1,3 +1,9 @@
+2009-02-09  Ulf Jasper  <address@hidden>
+
+       * net/newst-treeview.el (newsticker-treeview-save)
+       (newsticker--treeview-load): Kill groups buffer after
+       saving/loading.
+
 2009-02-09  Tassilo Horn  <address@hidden>
 
        * doc-view.el (doc-view-scroll-up-or-next-page)

Index: net/newst-treeview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-treeview.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- net/newst-treeview.el       7 Feb 2009 13:24:07 -0000       1.16
+++ net/newst-treeview.el       9 Feb 2009 20:05:50 -0000       1.17
@@ -7,7 +7,7 @@
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Created:     2007
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "7. Februar 2009, 11:46:00 (ulf)"
+;; Time-stamp:  "8. Februar 2009, 19:24:05 (ulf)"
 
 ;; ======================================================================
 
@@ -1246,7 +1246,8 @@
         (erase-buffer)
         (insert ";; -*- coding: utf-8 -*-\n")
         (insert (prin1-to-string newsticker-groups))
-        (save-buffer)))))
+        (save-buffer)
+        (kill-buffer)))))
 
 (defun newsticker--treeview-load ()
   "Load treeview settings."
@@ -1267,7 +1268,8 @@
           (setq newsticker-groups (read buf))
         (error
          (message "Error while reading newsticker groups file!")
-         (setq newsticker-groups nil))))))
+         (setq newsticker-groups nil)))
+      (kill-buffer buf))))
 
 
 (defun newsticker-treeview-scroll-item ()