changeset 102824:607b4f5da59c

(doc-view-mode): Don't give up if the file doesn't exist.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 02 Apr 2009 21:12:54 +0000
parents 3b582fef386d
children 14923c394d62
files lisp/ChangeLog lisp/doc-view.el
diffstat 2 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Apr 02 19:43:27 2009 +0000
+++ b/lisp/ChangeLog	Thu Apr 02 21:12:54 2009 +0000
@@ -1,3 +1,7 @@
+2009-04-02  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* doc-view.el (doc-view-mode): Don't give up if the file doesn't exist.
+
 2009-04-02  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/diary-lib.el (diary-cyclic): Check for +ve N.
--- a/lisp/doc-view.el	Thu Apr 02 19:43:27 2009 +0000
+++ b/lisp/doc-view.el	Thu Apr 02 21:12:54 2009 +0000
@@ -1121,10 +1121,10 @@
 \\{doc-view-mode-map}"
   (interactive)
 
-  (if (or (not (file-exists-p buffer-file-name))
-	  (= (point-min) (point-max)))
+  (if (= (point-min) (point-max))
       ;; The doc is empty or doesn't exist at all, so fallback to
-      ;; another mode.
+      ;; another mode.  We used to also check file-exists-p, but this
+      ;; returns nil for tar members.
       (let ((auto-mode-alist (remq (rassq 'doc-view-mode auto-mode-alist)
 				   auto-mode-alist)))
 	(normal-mode))