From: Mathias Dahl <mathias.dahl@gmail.com>
Date: Sat, 27 May 2006 14:20:03 +0000 (+0000)
Subject: Change a lot of `(if .. (progn ..)' to `(when ..)'.
X-Git-Tag: emacs-pretest-22.0.90~2260
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c2d888b35db9a941e83e859a548b928ccead5f0;p=emacs.git

Change a lot of `(if .. (progn ..)' to `(when ..)'.
(tumme-remove-tag): Fix bug.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 863881b3a40..cd99ecc3cdc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2006-05-27  Mathias Dahl  <mathias.dahl@gmail.com>
 
 	* tumme.el: Change a lot of `(if .. (progn ..)' to `(when ..)'.
+	(tumme-remove-tag): Fix bug.
 
 2006-05-27  Thien-Thi Nguyen  <ttn@gnu.org>
 
diff --git a/lisp/tumme.el b/lisp/tumme.el
index 8358986cca7..b770c292d35 100644
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -919,10 +919,10 @@ displayed."
                ;; If on empty line at end of buffer
                (when (and (eobp)
                           (looking-at "^$"))
-                 (delete-backward-char 1)))))))
-      files)
-    (save-buffer)
-    (kill-buffer buf)))
+                 (delete-backward-char 1))))))
+       files)
+      (save-buffer)
+      (kill-buffer buf))))
 
 (defun tumme-list-tags (file)
   "Read all tags for image FILE from the image database."