(vc-annotate-mode): Derive from special-mode

instead of using view-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d85a93c6898680a3051d6bb2399baa14cec763d9..e71ef1acee1db90264537fa4f2b09692b202a275 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-23  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-annotate.el (vc-annotate-mode): Derive from special-mode
+       instead of using view-mode.
+
 2008-06-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * Makefile.in (distclean): Don't delete *.elc and autogen files.

diff --git a/lisp/vc-annotate.el b/lisp/vc-annotate.el
index fbc1ba1247de07d0828838ad9fb6fdfdeec5f248..eadce2db9579da51be0806792d0ee0a39c914c18 100644 (file)
--- a/lisp/vc-annotate.el
+++ b/lisp/vc-annotate.el
@@ -149,7 +149,7 @@ List of factors, used to expand/compress the time scale.  See `vc-annotate'."
   ;; The fontification is done by vc-annotate-lines instead of font-lock.
   '((vc-annotate-lines)))
 
-(define-derived-mode vc-annotate-mode fundamental-mode "Annotate"
+(define-derived-mode vc-annotate-mode special-mode "Annotate"
   "Major mode for output buffers of the `vc-annotate' command.
 
 You can use the mode-specific menu to alter the time-span of the used
@@ -161,8 +161,7 @@ menu items."
   (remove-from-invisibility-spec 'foo)
   (set (make-local-variable 'truncate-lines) t)
   (set (make-local-variable 'font-lock-defaults)
-       '(vc-annotate-font-lock-keywords t))
-  (view-mode 1))
+       '(vc-annotate-font-lock-keywords t)))
 
 (defun vc-annotate-toggle-annotation-visibility ()
   "Toggle whether or not the annotation is visible."