Re: find-file-literally and save-buffer

[Alfred M. Szmidt]

   >    >> | emacs -Q
   >    >> | M-x find-file-literally ~/RMAIL.empty RET
   >    >> | C-u M-~   (not-modified t)
   >    >> | C-x C-s   (save-buffer)
   >
   > I think this might be related to me having my home directory
   > under version control ... I think it is because
   > vc-arch-file-source-p calls find-file-noselect, which in turn
   > calls vc-arch-file-source-p, and so on...

   Probably the fix is for vc-arch-file-source-p to check if
   get-file-buffer is nil; if so, it should perform
   insert-file-contents on a temp buffer, instead of visiting the file
   directly.

I tried changing the code in a similar fashion, but without the
get-file-buffer check, like this, but it didn't have the desrired
result, no question pops up if I wish to revisit the file normally.
Any ideas?

*** vc-arch.el  28 Jan 2007 21:10:40 +0100      1.23
--- vc-arch.el  27 Mar 2007 20:56:19 +0200      
***************
*** 122,134 ****
          (concat ".arch-ids/" (file-name-nondirectory file) ".id")
          (file-name-directory file)))
        ;; Check the presence of a tagline.
!       (with-current-buffer (find-file-noselect file)
!         (save-excursion
!           (goto-char (point-max))
!           (or (re-search-backward vc-arch-tagline-re (- (point) 1000) t)
!               (progn
!                 (goto-char (point-min))
!                 (re-search-forward vc-arch-tagline-re (+ (point) 1000) t)))))
        ;; FIXME: check =tagging-method to see whether untagged files might
        ;; be source or not.
        (with-current-buffer
--- 122,135 ----
          (concat ".arch-ids/" (file-name-nondirectory file) ".id")
          (file-name-directory file)))
        ;; Check the presence of a tagline.
!       (with-temp-buffer
!           (insert-file-contents-literally file)
!           (save-excursion
!             (goto-char (point-max))
!             (or (re-search-backward vc-arch-tagline-re (- (point) 1000) t)
!                 (progn
!                   (goto-char (point-min))
!                   (re-search-forward vc-arch-tagline-re (+ (point) 1000) 
t)))))
        ;; FIXME: check =tagging-method to see whether untagged files might
        ;; be source or not.
        (with-current-buffer