758 |
(define-derived-mode thumbs-mode |
(define-derived-mode thumbs-mode |
759 |
fundamental-mode "thumbs" |
fundamental-mode "thumbs" |
760 |
"Preview images in a thumbnails buffer" |
"Preview images in a thumbnails buffer" |
|
(make-variable-buffer-local 'thumbs-markedL) |
|
761 |
(setq buffer-read-only t) |
(setq buffer-read-only t) |
762 |
(setq thumbs-markedL nil)) |
(set (make-local-variable 'thumbs-markedL) nil)) |
763 |
|
|
764 |
(defvar thumbs-view-image-mode-map |
(defvar thumbs-view-image-mode-map |
765 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
796 |
|
|
797 |
(provide 'thumbs) |
(provide 'thumbs) |
798 |
|
|
799 |
|
;; arch-tag: f9ac1ef8-83fc-42c0-8069-1fae43fd2e5c |
800 |
;;; thumbs.el ends here |
;;; thumbs.el ends here |
|
|
|
|
|
|
|
;;; arch-tag: f9ac1ef8-83fc-42c0-8069-1fae43fd2e5c |
|