Mercurial > emacs

changeset 56934:ff141f26a0cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(thumbs-view-image-mode-map): Fix `thumbs-set-root' command name typo. (thumbs-view-image-mode): Make buffer read-only.
author John Paul Wallington <jpw@pobox.com>
date Sat, 04 Sep 2004 18:34:30 +0000
parents 4858311cd650
children 8c69d00e9fac
files lisp/thumbs.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 ()