Show
Ignore:
Timestamp:
04/16/06 21:46:31 (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

    r4037 r4058  
    908908                          view-p 
    909909                          (string-match file-name-invalid-regexp ename))) 
     910         (arcfilename (expand-file-name (concat arcname ":" iname))) 
    910911         (buffer (get-buffer bufname)) 
    911912         (just-created nil)) 
    912       (if buffer 
     913      (if (and buffer 
     914               (string= (buffer-file-name buffer) arcfilename)) 
    913915          nil 
    914916        (setq archive (archive-maybe-copy archive)) 
     917        (setq bufname (generate-new-buffer-name bufname)) 
    915918        (setq buffer (get-buffer-create bufname)) 
    916919        (setq just-created t) 
    917920        (with-current-buffer buffer 
    918           (setq buffer-file-name 
    919                 (expand-file-name (concat arcname ":" iname))) 
     921          (setq buffer-file-name arcfilename) 
    920922          (setq buffer-file-truename 
    921923                (abbreviate-file-name buffer-file-name))