Mercurial > emacs
changeset 101911:a4aa4e04bc11
newsticker: kill groups buffer after saving/loading.
| author | Ulf Jasper <ulf.jasper@web.de> |
|---|---|
| date | Mon, 09 Feb 2009 20:05:48 +0000 |
| parents | 3d527c23c151 |
| children | c28ecc931e8c |
| files | lisp/ChangeLog lisp/net/newst-treeview.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Feb 09 17:26:21 2009 +0000 +++ b/lisp/ChangeLog Mon Feb 09 20:05:48 2009 +0000 @@ -1,3 +1,9 @@ +2009-02-09 Ulf Jasper <ulf.jasper@web.de> + + * net/newst-treeview.el (newsticker-treeview-save) + (newsticker--treeview-load): Kill groups buffer after + saving/loading. + 2009-02-09 Tassilo Horn <tassilo@member.fsf.org> * doc-view.el (doc-view-scroll-up-or-next-page)
--- a/lisp/net/newst-treeview.el Mon Feb 09 17:26:21 2009 +0000 +++ b/lisp/net/newst-treeview.el Mon Feb 09 20:05:48 2009 +0000 @@ -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 ()