From f2151145f53203e24533c7efb680ca9fa5c191ec Mon Sep 17 00:00:00 2001 From: Mathias Dahl Date: Tue, 25 Jul 2006 13:14:03 +0000 Subject: [PATCH] (tumme-track-original-file): Add `buffer-live-p' check. (tumme-format-properties-string): Handle empty `buf'. --- lisp/tumme.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ""))))) -- 2.39.2