Show
Ignore:
Timestamp:
05/18/06 16:19:18 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/arc-mode.el

    r4079 r4085  
    13561356              files (cons (vector efnname ifnname fiddle nil (1- p)) 
    13571357                          files) 
    1358               p (+ p 29 csize)))) 
     1358              ;; p needs to stay an integer, since we use it in char-after 
     1359              ;; above.  Passing through `round' limits the compressed size 
     1360              ;; to most-positive-fixnum, but if the compressed size exceeds 
     1361              ;; that, we cannot visit the archive anyway. 
     1362              p (+ p 29 (round csize))))) 
    13591363    (goto-char (point-min)) 
    13601364    (let ((dash (concat "- --------  -----------  --------  " 
    …… 
    14981502                          files)) 
    14991503        (cond ((= hdrlvl 1) 
    1500                (setq p (+ p hsize 2 csize))) 
     1504               ;; p needs to stay an integer, since we use it in goto-char 
     1505               ;; above.  Passing through `round' limits the compressed size 
     1506               ;; to most-positive-fixnum, but if the compressed size exceeds 
     1507               ;; that, we cannot visit the archive anyway. 
     1508               (setq p (+ p hsize 2 (round csize)))) 
    15011509              ((or (= hdrlvl 2) (= hdrlvl 0)) 
    1502                (setq p (+ p thsize 2 csize)))) 
     1510               (setq p (+ p thsize 2 (round csize))))) 
    15031511        )) 
    15041512    (goto-char (point-min))