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

[Stefan Monnier]

Index: emacs/lisp/view.el
diff -c emacs/lisp/view.el:1.69 emacs/lisp/view.el:1.70
*** emacs/lisp/view.el:1.69     Sat May  3 09:52:17 2003
--- emacs/lisp/view.el  Sat May 31 13:53:24 2003
***************
*** 242,247 ****
--- 242,248 ----
  
  This command runs the normal hook `view-mode-hook'."
    (interactive "fView file: ")
+   (unless (file-exists-p file) (error "%s does not exist" file))
    (let ((had-a-buf (get-file-buffer file)))
      (view-buffer (find-file-noselect file)
                 (and (not had-a-buf) 'kill-buffer))))
***************
*** 258,263 ****
--- 259,265 ----
  
  This command runs the normal hook `view-mode-hook'."
    (interactive "fIn other window view file: ")
+   (unless (file-exists-p file) (error "%s does not exist" file))
    (let ((had-a-buf (get-file-buffer file)))
      (view-buffer-other-window (find-file-noselect file) nil
                              (and (not had-a-buf) 'kill-buffer))))
***************
*** 274,279 ****
--- 276,282 ----
  
  This command runs the normal hook `view-mode-hook'."
    (interactive "fIn other frame view file: ")
+   (unless (file-exists-p file) (error "%s does not exist" file))
    (let ((had-a-buf (get-file-buffer file)))
      (view-buffer-other-frame (find-file-noselect file) nil
                             (and (not had-a-buf) 'kill-buffer))))