Mercurial > emacs
comparison lisp/thumbs.el @ 62927:bb23fe0bf1d3
(thumbs-mode): Fix misuse of make-variable-buffer-local.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 31 May 2005 13:27:27 +0000 |
| parents | 58c1e48ab7bc |
| children | 2d7151e2c3ee 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62926:1cee97f4847c | 62927:bb23fe0bf1d3 |
|---|---|
| 756 | 756 |
| 757 (put 'thumbs-mode 'mode-class 'special) | 757 (put 'thumbs-mode 'mode-class 'special) |
| 758 (define-derived-mode thumbs-mode | 758 (define-derived-mode thumbs-mode |
| 759 fundamental-mode "thumbs" | 759 fundamental-mode "thumbs" |
| 760 "Preview images in a thumbnails buffer" | 760 "Preview images in a thumbnails buffer" |
| 761 (make-variable-buffer-local 'thumbs-markedL) | |
| 762 (setq buffer-read-only t) | 761 (setq buffer-read-only t) |
| 763 (setq thumbs-markedL nil)) | 762 (set (make-local-variable 'thumbs-markedL) nil)) |
| 764 | 763 |
| 765 (defvar thumbs-view-image-mode-map | 764 (defvar thumbs-view-image-mode-map |
| 766 (let ((map (make-sparse-keymap))) | 765 (let ((map (make-sparse-keymap))) |
| 767 (define-key map [prior] 'thumbs-previous-image) | 766 (define-key map [prior] 'thumbs-previous-image) |
| 768 (define-key map [next] 'thumbs-next-image) | 767 (define-key map [next] 'thumbs-next-image) |
| 795 (define-key dired-mode-map "\C-tm" 'thumbs-dired-show-marked) | 794 (define-key dired-mode-map "\C-tm" 'thumbs-dired-show-marked) |
| 796 (define-key dired-mode-map "\C-tw" 'thumbs-dired-setroot) | 795 (define-key dired-mode-map "\C-tw" 'thumbs-dired-setroot) |
| 797 | 796 |
| 798 (provide 'thumbs) | 797 (provide 'thumbs) |
| 799 | 798 |
| 799 ;; arch-tag: f9ac1ef8-83fc-42c0-8069-1fae43fd2e5c | |
| 800 ;;; thumbs.el ends here | 800 ;;; thumbs.el ends here |
| 801 | |
| 802 | |
| 803 ;;; arch-tag: f9ac1ef8-83fc-42c0-8069-1fae43fd2e5c |