andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tar-header-block-summarize, tar-clear-modification-flags): "?\ " -> "?\s".

Browse source
This commit is contained in:
Juanma Barranquero 2006-11-27 14:07:26 +00:00
parent b754307b91
commit e5d56b61a0
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/tar-mode.el
View file

@ -363,7 +363,7 @@ MODE should be an integer which is a file mode value."
((eq type 29) ?M) ; multivolume continuation
((eq type 35) ?S) ; sparse
((eq type 38) ?V) ; volume header
(t ?\ )
(t ?\s)
)
(tar-grind-file-mode mode)
(if (= 0 (length uname)) uid uname)
@ -958,7 +958,7 @@ for this to be permanent."
(save-excursion
(goto-char (point-min))
(while (< (position-bytes (point)) tar-header-offset)
(if (not (eq (following-char) ?\ ))
(if (not (eq (following-char) ?\s))
(progn (delete-char 1) (insert " ")))
(forward-line 1))))