Commit f2151145 authored by Mathias Dahl's avatar Mathias Dahl
Browse files

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

(tumme-format-properties-string): Handle empty `buf'.
parent 50e93433
......@@ -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."
(cons ?b buf)
(cons ?b (or buf ""))
(cons ?f file)
(cons ?t (or (princ props) ""))
(cons ?c (or comment "")))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment