From: John Paul Wallington <jpw@pobox.com>
Date: Sat, 4 Sep 2004 18:34:30 +0000 (+0000)
Subject: (thumbs-view-image-mode-map): Fix `thumbs-set-root' command name typo.
X-Git-Tag: ttn-vms-21-2-B4~5063
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=288f8357fd2857b83eee4e409f79b231dced44e2;p=emacs.git

(thumbs-view-image-mode-map): Fix `thumbs-set-root' command name typo.
(thumbs-view-image-mode): Make buffer read-only.
---

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 1fbf2d224a2..13970e59ee8 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -769,14 +769,15 @@ ACTION and ARG should be legal convert command."
     (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 ()