Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3d7fc2fb
Commit
3d7fc2fb
authored
Jul 27, 1992
by
Eric S. Raymond
Browse files
entered into RCS
parent
0fc37e7d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
3 deletions
+10
-3
lisp/abbrev.el
lisp/abbrev.el
+0
-2
lisp/tar-mode.el
lisp/tar-mode.el
+10
-1
No files found.
lisp/abbrev.el
View file @
3d7fc2fb
...
...
@@ -2,8 +2,6 @@
;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; Maintainer: FSF
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
...
...
lisp/tar-mode.el
View file @
3d7fc2fb
...
...
@@ -916,6 +916,15 @@ for this to be permanent."
(
narrow-to-region
1
tar-header-offset
))))
(
defun
tar-octal-time
(
timeval
)
;; Format a timestamp as 11 octal digits. Ghod, I hope this works...
(
let
((
hibits
(
car
timeval
))
(
lobits
(
car
(
cdr
timeval
))))
(
insert
(
format
"%05o%01o%05o"
(
lsh
hibits
-2
)
(
logior
(
lsh
(
logand
3
hibits
)
1
)
(
>
(
logand
lobits
32768
)
0
))
(
logand
32767
lobits
)
))))
(
defun
tar-subfile-save-buffer
()
"In tar subfile mode, write this buffer back into its parent tar-file buffer.
This doesn't write anything to disk - you must save the parent tar-file buffer
...
...
@@ -974,7 +983,7 @@ to make your changes permanent."
nil
(
goto-char
(
+
header-start
tar-time-offset
))
(
delete-region
(
point
)
(
+
(
point
)
12
))
(
insert
(
format
"%11o"
(
current-time
)))
(
insert
(
tar-octal-time
(
current-time
)))
(
insert
?
))
;;
;; compute a new checksum and insert it.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment