Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(tumme-format-properties-string): Handle empty `buf'.
This commit is contained in:
Mathias Dahl 2006-07-25 13:14:03 +00:00
parent 50e93433f7
commit f2151145f5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/tumme.el
View file

@ -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 "")))))