# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1057767414 0
# Node ID 2ec7d96e306e4d1b01f63c4bc4868a44ed140e8b
# Parent  1415d5164b81b41af3bba99bc5a7ecdce1fe0c6f
(view-file): If existing buffer's major mode is special,
don't go into view mode.

diff -r 1415d5164b81 -r 2ec7d96e306e lisp/view.el
--- a/lisp/view.el	Wed Jul 09 16:15:24 2003 +0000
+++ b/lisp/view.el	Wed Jul 09 16:16:54 2003 +0000
@@ -243,9 +243,15 @@
 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))))
+  (let ((had-a-buf (get-file-buffer file))
+	(buffer (find-file-noselect file)))
+    (if (eq (with-current-buffer buffer
+	      (get major-mode 'mode-class))
+	    'special)
+	(progn
+	  (switch-to-buffer buffer)
+	  (message "Not using View mode because the major mode is special"))
+      (view-buffer buffer (and (not had-a-buf) 'kill-buffer)))))
 
 ;;;###autoload
 (defun view-file-other-window (file)