[Emacs-diffs] emacs/lisp ChangeLog doc-view.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/04/02 21:12:56

Modified files:
        lisp           : ChangeLog doc-view.el 

Log message:
        (doc-view-mode): Don't give up if the file doesn't exist.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15543&r2=1.15544
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/doc-view.el?cvsroot=emacs&r1=1.86&r2=1.87

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15543
retrieving revision 1.15544
diff -u -b -r1.15543 -r1.15544
--- ChangeLog   2 Apr 2009 11:43:12 -0000       1.15543
+++ ChangeLog   2 Apr 2009 21:12:54 -0000       1.15544
@@ -1,3 +1,7 @@
+2009-04-02  Stefan Monnier  <address@hidden>
+
+       * doc-view.el (doc-view-mode): Don't give up if the file doesn't exist.
+
 2009-04-02  Glenn Morris  <address@hidden>
 
        * calendar/diary-lib.el (diary-cyclic): Check for +ve N.

Index: doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -b -r1.86 -r1.87
--- doc-view.el 14 Mar 2009 02:12:06 -0000      1.86
+++ doc-view.el 2 Apr 2009 21:12:56 -0000       1.87
@@ -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))