(view-buffer): Allow running in `special' modes if we're visiting a file.

Fixes: debbugs:8615

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50e4cd4..0699a93 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * view.el (view-buffer): Allow running in `special' modes if we're
+       visiting a file (bug#8615).
+
 2011-07-19  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (display-buffer-alist-of-strings-p)

diff --git a/lisp/view.el b/lisp/view.el
index ee85b4e..21479a7 100644 (file)
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -311,9 +311,10 @@ file: Users may suspend viewing in order to modify the buffer.
 Exiting View mode will then discard the user's edits.  Setting
 EXIT-ACTION to `kill-buffer-if-not-modified' avoids this."
   (interactive "bView buffer: ")
-  (if (eq (with-current-buffer buffer
-           (get major-mode 'mode-class))
-         'special)
+  (if (with-current-buffer buffer
+       (and (eq (get major-mode 'mode-class)
+                'special)
+            (null buffer-file-name)))
       (progn
        (switch-to-buffer buffer)
        (message "Not using View mode because the major mode is special"))