From: Mathias Dahl <mathias.dahl@gmail.com>
Date: Tue, 25 Jul 2006 13:14:03 +0000 (+0000)
Subject: (tumme-track-original-file): Add `buffer-live-p' check.
X-Git-Tag: emacs-pretest-22.0.90~1247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2151145f53203e24533c7efb680ca9fa5c191ec;p=emacs.git

(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 c9f9b83ef32..1d313963d2a 100644
--- 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 "")))))