[Emacs-diffs] Changes to emacs/lisp/arc-mode.el [lexbind]

[Miles Bader]

Index: emacs/lisp/arc-mode.el
diff -c emacs/lisp/arc-mode.el:1.47.2.1 emacs/lisp/arc-mode.el:1.47.2.2
*** emacs/lisp/arc-mode.el:1.47.2.1     Fri Apr  4 01:20:00 2003
--- emacs/lisp/arc-mode.el      Tue Oct 14 19:50:48 2003
***************
*** 894,901 ****
        (setq last-coding-system-used coding))
        (set-buffer-modified-p nil)
        (kill-local-variable 'buffer-file-coding-system)
!       (after-insert-file-set-buffer-file-coding-system (- (point-max)
!                                                         (point-min))))))
  
  (defun archive-mouse-extract (event)
    "Extract a file whose name you click on."
--- 894,900 ----
        (setq last-coding-system-used coding))
        (set-buffer-modified-p nil)
        (kill-local-variable 'buffer-file-coding-system)
!       (after-insert-file-set-coding (- (point-max) (point-min))))))
  
  (defun archive-mouse-extract (event)
    "Extract a file whose name you click on."
***************
*** 1417,1423 ****
      (while (progn (goto-char p)               ;beginning of a base header.
                  (looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-"))
        (let* ((hsize   (char-after p)) ;size of the base header (level 0 and 1)
!              (csize   (archive-l-e (+ p 7) 4)) ;size of a compressed file to 
follow.
               (ucsize  (archive-l-e (+ p 11) 4))       ;size of an 
uncompressed file.
             (time1   (archive-l-e (+ p 15) 2)) ;date/time (MSDOS format in 
level 0, 1 headers
             (time2   (archive-l-e (+ p 17) 2)) ;and UNIX format in level 2 
header.)
--- 1416,1423 ----
      (while (progn (goto-char p)               ;beginning of a base header.
                  (looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-"))
        (let* ((hsize   (char-after p)) ;size of the base header (level 0 and 1)
!            (csize   (archive-l-e (+ p 7) 4)) ;size of a compressed file to 
follow (level 0 and 2),
!                                       ;size of extended headers + the 
compressed file to follow (level 1).
               (ucsize  (archive-l-e (+ p 11) 4))       ;size of an 
uncompressed file.
             (time1   (archive-l-e (+ p 15) 2)) ;date/time (MSDOS format in 
level 0, 1 headers
             (time2   (archive-l-e (+ p 17) 2)) ;and UNIX format in level 2 
header.)
***************
*** 1516,1523 ****
                                   (length text))
                           visual)
              files (cons (vector prname ifnname fiddle mode (1- p))
!                           files)
!               p (+ p thsize 2 csize))))
      (goto-char (point-min))
      (set-buffer-multibyte default-enable-multibyte-characters)
      (let ((dash (concat (if archive-alternate-display
--- 1516,1527 ----
                                   (length text))
                           visual)
              files (cons (vector prname ifnname fiddle mode (1- p))
!                           files))
!       (cond ((= hdrlvl 1)
!              (setq p (+ p hsize 2 csize)))
!             ((or (= hdrlvl 2) (= hdrlvl 0))
!              (setq p (+ p thsize 2 csize))))
!       ))
      (goto-char (point-min))
      (set-buffer-multibyte default-enable-multibyte-characters)
      (let ((dash (concat (if archive-alternate-display
***************
*** 1797,1800 ****
--- 1801,1805 ----
  
  (provide 'arc-mode)
  
+ ;;; arch-tag: e5966a01-35ec-4f27-8095-a043a79b457b
  ;;; arc-mode.el ends here