# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1094322870 0
# Node ID ff141f26a0cb7b4ea6a204e6bd25f61eacc59519
# Parent  4858311cd6501035d0c9564d8a4f0edd32d9bad7
(thumbs-view-image-mode-map): Fix `thumbs-set-root' command name typo.
(thumbs-view-image-mode): Make buffer read-only.

diff -r 4858311cd650 -r ff141f26a0cb lisp/thumbs.el
--- a/lisp/thumbs.el	Sat Sep 04 13:46:13 2004 +0000
+++ b/lisp/thumbs.el	Sat Sep 04 18:34:30 2004 +0000
@@ -769,14 +769,15 @@
     (define-key map "r" 'thumbs-resize-interactive)
     (define-key map "s" 'thumbs-save-current-image)
     (define-key map "q" 'thumbs-kill-buffer)
-    (define-key map "w" 'thunbs-set-root)
+    (define-key map "w" 'thumbs-set-root)
     map)
   "Keymap for `thumbs-view-image-mode'.")
 
 ;; thumbs-view-image-mode
 (put 'thumbs-view-image-mode 'mode-class 'special)
 (define-derived-mode thumbs-view-image-mode
-  fundamental-mode "image-view-mode")
+  fundamental-mode "image-view-mode"
+  (setq buffer-read-only t))
 
 ;;;###autoload
 (defun thumbs-dired-setroot ()