- "File already visited literally")))))))
- (progn
- (setq buf (create-file-buffer filename))
- (set-buffer-major-mode buf)
- (find-file-noselect-1 buf filename nowarn rawfile truename number)))
- buf)))
+ "File already visited literally"))))))
+ ;; Return the buffer we are using.
+ buf)
+ ;; Create a new buffer.
+ (setq buf (create-file-buffer filename))
+ (set-buffer-major-mode buf)
+ ;; find-file-noselect-1 may use a different buffer.
+ (find-file-noselect-1 buf filename nowarn
+ rawfile truename number)))))