/[emacs]/emacs/lisp/arc-mode.el
ViewVC logotype

Diff of /emacs/lisp/arc-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by rms, Sat Jan 25 19:34:15 2003 UTC revision 1.52 by lektu, Wed Jan 29 07:24:26 2003 UTC
# Line 1486  This doesn't recover lost files, it just Line 1486  This doesn't recover lost files, it just
1486                (setq thsize (- neh p))))                (setq thsize (- neh p))))
1487          (if (= hdrlvl 0)  ;total header size          (if (= hdrlvl 0)  ;total header size
1488              (setq thsize hsize))              (setq thsize hsize))
1489          (setq fiddle  (string= efnname (upcase efnname)))          (setq fiddle  (if efnname (string= efnname (upcase efnname))))
1490          (setq ifnname (if fiddle (downcase efnname) efnname))          (setq ifnname (if fiddle (downcase efnname) efnname))
1491          (setq prname (if dir (concat dir ifnname) ifnname))          (setq prname (if dir (concat dir ifnname) ifnname))
1492          (setq width (string-width prname))          (setq width (if prname (string-width prname) 0))
1493          (setq modestr (if mode (archive-int-to-mode mode) "??????????"))          (setq modestr (if mode (archive-int-to-mode mode) "??????????"))
1494          (setq moddate (if (= hdrlvl 2)          (setq moddate (if (= hdrlvl 2)
1495                            (archive-unixdate time1 time2) ;level 2 header in UNIX format                            (archive-unixdate time1 time2) ;level 2 header in UNIX format

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26