Mercurial > emacs
comparison lisp/thumbs.el @ 56934:ff141f26a0cb
(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 | c5c73c8c2b3e |
| children | 5e17e1a1eacf cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
| 56933:4858311cd650 | 56934:ff141f26a0cb |
|---|---|
| 767 (define-key map ">" 'thumbs-rotate-right) | 767 (define-key map ">" 'thumbs-rotate-right) |
| 768 (define-key map "e" 'thumbs-emboss-image) | 768 (define-key map "e" 'thumbs-emboss-image) |
| 769 (define-key map "r" 'thumbs-resize-interactive) | 769 (define-key map "r" 'thumbs-resize-interactive) |
| 770 (define-key map "s" 'thumbs-save-current-image) | 770 (define-key map "s" 'thumbs-save-current-image) |
| 771 (define-key map "q" 'thumbs-kill-buffer) | 771 (define-key map "q" 'thumbs-kill-buffer) |
| 772 (define-key map "w" 'thunbs-set-root) | 772 (define-key map "w" 'thumbs-set-root) |
| 773 map) | 773 map) |
| 774 "Keymap for `thumbs-view-image-mode'.") | 774 "Keymap for `thumbs-view-image-mode'.") |
| 775 | 775 |
| 776 ;; thumbs-view-image-mode | 776 ;; thumbs-view-image-mode |
| 777 (put 'thumbs-view-image-mode 'mode-class 'special) | 777 (put 'thumbs-view-image-mode 'mode-class 'special) |
| 778 (define-derived-mode thumbs-view-image-mode | 778 (define-derived-mode thumbs-view-image-mode |
| 779 fundamental-mode "image-view-mode") | 779 fundamental-mode "image-view-mode" |
| 780 (setq buffer-read-only t)) | |
| 780 | 781 |
| 781 ;;;###autoload | 782 ;;;###autoload |
| 782 (defun thumbs-dired-setroot () | 783 (defun thumbs-dired-setroot () |
| 783 "In dired, Call the setroot program on the image at point." | 784 "In dired, Call the setroot program on the image at point." |
| 784 (interactive) | 785 (interactive) |