diff lisp/thumbs.el @ 83201:8a6fd1c164cd

Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-521 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-522 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-525 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-526 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-527 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-528 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-241
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 06 Sep 2004 07:53:44 +0000
parents ff141f26a0cb
children 5e17e1a1eacf cce1c0ee76ee
line wrap: on
line diff
--- a/lisp/thumbs.el	Thu Sep 02 07:43:01 2004 +0000
+++ b/lisp/thumbs.el	Mon Sep 06 07:53:44 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 ()