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

[Kim F. Storm]

Index: emacs/lisp/arc-mode.el
diff -c emacs/lisp/arc-mode.el:1.49 emacs/lisp/arc-mode.el:1.50
*** emacs/lisp/arc-mode.el:1.49 Sun Jan 12 15:45:19 2003
--- emacs/lisp/arc-mode.el      Tue Jan 14 17:31:30 2003
***************
*** 789,796 ****
      (if (or alien (file-exists-p fullname))
        (make-temp-file
         (expand-file-name
!         (if (and (fboundp 'msdos-long-file-names)
!                  (not (msdos-long-file-names)))
              "am"
            "arc-mode.")
          dir))
--- 789,796 ----
      (if (or alien (file-exists-p fullname))
        (make-temp-file
         (expand-file-name
!         (if (if (fboundp 'msdos-long-file-names)
!                 (not (msdos-long-file-names)))
              "am"
            "arc-mode.")
          dir))
***************
*** 1386,1392 ****
  
  (defun archive-arc-rename-entry (archive newname descr)
    (if (string-match "[:\\\\/]" newname)
!       (error "File names in arc files may not contain a path"))
    (if (> (length newname) 12)
        (error "File names in arc files are limited to 12 characters"))
    (let ((name (concat newname (substring "\0\0\0\0\0\0\0\0\0\0\0\0\0"
--- 1386,1392 ----
  
  (defun archive-arc-rename-entry (archive newname descr)
    (if (string-match "[:\\\\/]" newname)
!       (error "File names in arc files must not contain a directory 
component"))
    (if (> (length newname) 12)
        (error "File names in arc files are limited to 12 characters"))
    (let ((name (concat newname (substring "\0\0\0\0\0\0\0\0\0\0\0\0\0"
***************
*** 1426,1432 ****
             (width (string-width ifnname))
             (p2      (+ p 22 fnlen))
             (creator (if (>= (- hsize fnlen) 24) (char-after (+ p2 2)) 0))
!            mode modestr uid gid text path prname
             )
        (if (= hdrlvl 0)
            (setq mode    (if (= creator ?U) (archive-l-e (+ p2 8) 2) ?\666)
--- 1426,1432 ----
             (width (string-width ifnname))
             (p2      (+ p 22 fnlen))
             (creator (if (>= (- hsize fnlen) 24) (char-after (+ p2 2)) 0))
!            mode modestr uid gid text dir prname
             )
        (if (= hdrlvl 0)
            (setq mode    (if (= creator ?U) (archive-l-e (+ p2 8) 2) ?\666)
***************
*** 1440,1446 ****
                  (cond
                   ((= etype 2) (let ((i (+ p3 3)))
                                  (while (< i (+ p3 hsize))
!                                   (setq path (concat path
                                                       (if (= (char-after i)
                                                              255)
                                                           "/"
--- 1440,1446 ----
                  (cond
                   ((= etype 2) (let ((i (+ p3 3)))
                                  (while (< i (+ p3 hsize))
!                                   (setq dir (concat dir
                                                       (if (= (char-after i)
                                                              255)
                                                           "/"
***************
*** 1454,1460 ****
                  (setq p3 (+ p3 hsize))
                  (setq hsize (archive-l-e p3 2))
                  (setq etype (char-after (+ p3 2)))))))
!       (setq prname (if path (concat path ifnname) ifnname))
        (setq modestr (if mode (archive-int-to-mode mode) "??????????"))
        (setq text    (if archive-alternate-display
                          (format "  %8d  %5S  %5S  %s"
--- 1454,1460 ----
                  (setq p3 (+ p3 hsize))
                  (setq hsize (archive-l-e p3 2))
                  (setq etype (char-after (+ p3 2)))))))
!       (setq prname (if dir (concat dir ifnname) ifnname))
        (setq modestr (if mode (archive-int-to-mode mode) "??????????"))
        (setq text    (if archive-alternate-display
                          (format "  %8d  %5S  %5S  %s"