[Emacs-diffs] emacs/lisp ChangeLog tar-mode.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/01/12 03:37:15

Modified files:
        lisp           : ChangeLog tar-mode.el 

Log message:
        (tar-header-block-tokenize): Properly ignore the version
        subfield of the magic string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15093&r2=1.15094
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/tar-mode.el?cvsroot=emacs&r1=1.135&r2=1.136

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15093
retrieving revision 1.15094
diff -u -b -r1.15093 -r1.15094
--- ChangeLog   11 Jan 2009 19:14:59 -0000      1.15093
+++ ChangeLog   12 Jan 2009 03:37:13 -0000      1.15094
@@ -1,3 +1,8 @@
+2009-01-12  Stefan Monnier  <address@hidden>
+
+       * tar-mode.el (tar-header-block-tokenize): Properly ignore the version
+       subfield of the magic string.
+
 2009-01-11  Jay Belanger  <address@hidden>
 
        * calc/calc-lang.el (math-compose-tex-sqrt): New function.
@@ -484,8 +489,8 @@
        (follow-update-window-start, follow-select-if-visible)
        (follow-calculate-first-window-start-from-below)
        (follow-post-command-hook): Code cleanup.
-       (follow-downward, follow-calculate-first-window-start): Function
-       deleted and merged into follow-redisplay.
+       (follow-downward, follow-calculate-first-window-start):
+       Delete function and merge into follow-redisplay.
        (follow-redisplay): Merge code from follow-downward and
        follow-calculate-first-window-start.
 
@@ -495,7 +500,7 @@
 
 2008-12-29  Roland Winkler  <address@hidden>
 
-       * proced.el (proced-temp-alist): Renamed from variable
+       * proced.el (proced-temp-alist): Rename from variable
        proced-children-alist.
        (proced-process-tree, proced-toggle-tree): Fix docstring.
        (proced-tree): Fix docstring.  Simplify.  Use proced-temp-alist.
@@ -531,24 +536,22 @@
 
 2008-12-28  Roland Winkler  <address@hidden>
 
-       * proced.el (proced-grammar-alist): Allow predicate nil.  New
-       attribute tree.
+       * proced.el (proced-grammar-alist): Allow predicate nil.
+       New attribute tree.
        (proced-format-alist): Use attribute tree.
        (proced-tree-flag, proced-tree-indent): New variables.
-       (proced-children-alist): Renamed from proced-process-tree.  PPID
-       must refer to a process in process-alist.  Ignore PPIDs that equal
-       PID (Bug#1718).  Children alist inherits sorting order from
-       process-alist.
+       (proced-children-alist): Rename from proced-process-tree.
+       PPID must refer to a process in process-alist.
+       Ignore PPIDs that equal PID (Bug#1718).
+       Children alist inherits sorting order from process-alist.
        (proced-process-tree): New variable.  New function.
        (proced-process-tree-internal, proced-toggle-tree)
-       (proced-tree, proced-tree-insert, proced-format-tree): New
-       functions.
+       (proced-tree, proced-tree-insert, proced-format-tree): New functions.
        (proced-mark-process-alist): Add docstring.
        (proced-filter-parents): PPID must refer to a process in
        process-alist.  Ignore PPIDs that equal PID (Bug#1718).
        (proced-sort): Throw error if attribute is not sortable.
-       (proced-sort-interactive): Restrict completion to sortable
-       attributes.
+       (proced-sort-interactive): Restrict completion to sortable attributes.
        (proced-format): Include tree in standard attributes if
        proced-tree-flag is non-nil.  Make header clickable only if
        corresponding predicate is non-nil.
@@ -800,8 +803,8 @@
        * startup.el (command-line): Do not mention the server name in
        case the user has not mentioned it, print a more explicit message.
 
-       * vc-dir.el (vc-dir-at-event): Rename from vc-at-event.  Change
-       all callers.
+       * vc-dir.el (vc-dir-at-event): Rename from vc-at-event.
+       Change all callers.
 
 2008-12-18  Sam Steingold  <address@hidden>
 
@@ -819,8 +822,8 @@
 
 2008-12-17  Daiki Ueno  <address@hidden>
 
-       * epa-file.el (epa-file-insert-file-contents): Set
-       buffer-file-name before decrypting a file.
+       * epa-file.el (epa-file-insert-file-contents):
+       Set buffer-file-name before decrypting a file.
 
 2008-12-16  Juanma Barranquero  <address@hidden>
 
@@ -877,12 +880,11 @@
 
 2008-12-14  Roland Winkler  <address@hidden>
 
-       * proced.el (proced-auto-update-interval): Renamed from
+       * proced.el (proced-auto-update-interval): Rename from
        proced-timer-interval.
-       (proced-auto-update-flag): Renamed from proced-timer-flag.
-       (proced-auto-update-timer): Renamed from proced-timer.
-       (proced-toggle-auto-update): Renamed from
-       proced-toggle-timer-flag.
+       (proced-auto-update-flag): Rename from proced-timer-flag.
+       (proced-auto-update-timer): Rename from proced-timer.
+       (proced-toggle-auto-update): Rename from proced-toggle-timer-flag.
        (proced-available): Initialize appropriately.
 
 2008-12-13  Glenn Morris  <address@hidden>

Index: tar-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -b -r1.135 -r1.136
--- tar-mode.el 7 Jan 2009 02:15:43 -0000       1.135
+++ tar-mode.el 12 Jan 2009 03:37:15 -0000      1.136
@@ -239,8 +239,13 @@
              (gname-end (1- tar-dmaj-offset))
              (link-p (aref string tar-linkp-offset))
              (magic-str (substring string tar-magic-offset
-                                   (1- tar-uname-offset)))
-             (uname-valid-p (car (member magic-str '("ustar  " "ustar\0\0"))))
+                                  ;; The magic string is actually 6bytes
+                                  ;; of magic string plus 2bytes of version
+                                  ;; which we here ignore.
+                                   (- tar-uname-offset 2)))
+            ;; The magic string is "ustar\0" for POSIX format, and
+            ;; "ustar " for GNU Tar's format.
+             (uname-valid-p (car (member magic-str '("ustar " "ustar\0"))))
              name linkname
              (nulsexp   "[^\000]*\000"))
         (when (string-match nulsexp string tar-name-offset)
@@ -256,7 +261,7 @@
                          nil
                        (- link-p ?0)))
         (setq linkname (substring string tar-link-offset link-end))
-        (when (and (equal uname-valid-p "ustar\0\0")
+        (when (and (equal uname-valid-p "ustar\0")
                    (string-match nulsexp string tar-prefix-offset)
                    (> (match-end 0) (1+ tar-prefix-offset)))
           (setq name (concat (substring string tar-prefix-offset