Change a lot of `(if .. (progn ..)' to `(when ..)'.

(tumme-remove-tag): Fix bug.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 863881b3a40ad07888803e5ada10de603c12e6da..cd99ecc3cdc6211ac442eaff6834ee7ec936d8c4 100644 (file)
--- 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 8358986cca7f34b6fb4129105e4db3b2cdc1d30c..b770c292d35a64b26667df790eb92e7be1d1329c 100644 (file)
--- 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."