(tumme-track-original-file): Add `buffer-live-p' check.

(tumme-format-properties-string): Handle empty `buf'.

diff --git a/lisp/tumme.el b/lisp/tumme.el
index c9f9b83ef32169a2dab0b2783dd6a4c4fef17894..1d313963d2ac57329a7b22c2058779c1191a846c 100644 (file)
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -1009,7 +1009,7 @@ use only useful if `tumme-track-movement' is nil."
   (let ((old-buf (current-buffer))
         (dired-buf (tumme-associated-dired-buffer))
         (file-name (tumme-original-file-name)))
-    (when (and dired-buf file-name)
+    (when (and (buffer-live-p dired-buf) file-name)
       (setq file-name (file-name-nondirectory file-name))
       (set-buffer dired-buf)
       (goto-char (point-min))
@@ -1134,7 +1134,7 @@ comment."
   (format-spec
    tumme-display-properties-format
    (list
-    (cons ?b buf)
+    (cons ?b (or buf ""))
     (cons ?f file)
     (cons ?t (or (princ props) ""))
     (cons ?c (or comment "")))))