changeset 51371:463499edca88

(view-file, view-file-other-window, view-file-other-frame): Signal an error when trying to visit an inexistent file.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 31 May 2003 17:53:24 +0000
parents a7a449bb9443
children 810f6674ff1d
files lisp/view.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/view.el	Sat May 31 17:43:28 2003 +0000
+++ b/lisp/view.el	Sat May 31 17:53:24 2003 +0000
@@ -242,6 +242,7 @@
 
 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,6 +259,7 @@
 
 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,6 +276,7 @@
 
 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))))