Mercurial > emacs

comparison lisp/arc-mode.el @ 49509:389fbac8d443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-lzh-summarize): Fix previous change.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 29 Jan 2003 07:24:26 +0000
parents 3a18e49975cb
children 37645a051842
comparison
equal deleted inserted replaced
49508:931d6468248e 49509:389fbac8d443
1484 (setq etype (char-after (+ neh 2)))) 1484 (setq etype (char-after (+ neh 2))))
1485 ;;get total header size for level 1 and 2 headers 1485 ;;get total header size for level 1 and 2 headers
1486 (setq thsize (- neh p)))) 1486 (setq thsize (- neh p))))
1487 (if (= hdrlvl 0) ;total header size 1487 (if (= hdrlvl 0) ;total header size
1488 (setq thsize hsize)) 1488 (setq thsize hsize))
1489 (setq fiddle (string= efnname (upcase efnname))) 1489 (setq fiddle (if efnname (string= efnname (upcase efnname))))
1490 (setq ifnname (if fiddle (downcase efnname) efnname)) 1490 (setq ifnname (if fiddle (downcase efnname) efnname))
1491 (setq prname (if dir (concat dir ifnname) ifnname)) 1491 (setq prname (if dir (concat dir ifnname) ifnname))
1492 (setq width (string-width prname)) 1492 (setq width (if prname (string-width prname) 0))
1493 (setq modestr (if mode (archive-int-to-mode mode) "??????????")) 1493 (setq modestr (if mode (archive-int-to-mode mode) "??????????"))
1494 (setq moddate (if (= hdrlvl 2) 1494 (setq moddate (if (= hdrlvl 2)
1495 (archive-unixdate time1 time2) ;level 2 header in UNIX format 1495 (archive-unixdate time1 time2) ;level 2 header in UNIX format
1496 (archive-dosdate time2))) ;level 0 and 1 header in DOS format 1496 (archive-dosdate time2))) ;level 0 and 1 header in DOS format
1497 (setq modtime (if (= hdrlvl 2) 1497 (setq modtime (if (= hdrlvl 2)