Commit 0868cd70 authored by Nick Roberts's avatar Nick Roberts
Browse files

(thumbs-marked-list): Make buffer-local and

(thumbs-insert-thumb): Make help-echo non-sticky.
(thumbs-file-alist): Use eolp as check for (non)-image.
parent 75e49434
......@@ -174,6 +174,8 @@ this value can let another user see some of your images."
(defvar thumbs-marked-list nil
"List of marked files.")
(make-variable-buffer-local 'thumbs-marked-list)
(put 'thumbs-marked-list 'permanent-local t)
(defalias 'thumbs-gensym
(if (fboundp 'gensym)
......@@ -334,9 +336,9 @@ smaller according to whether INCREMENT is 1 or -1."
((string-match ".*\\.tiff?\\'" img) 'tiff)))
(defun thumbs-file-size (img)
(let ((i (image-size (find-image `((:type ,(thumbs-image-type img) :file ,img))) t)))
(concat (number-to-string (round (car i)))
(let ((i (image-size
(find-image `((:type ,(thumbs-image-type img) :file ,img))) t)))
(concat (number-to-string (round (car i))) "x"
(number-to-string (round (cdr i))))))
......@@ -366,7 +368,8 @@ If MARKED is non-nil, the image is marked."
(thumbs-make-thumb img) 'jpeg thumbs-relief marked)
(add-text-properties (1- (point)) (point)
`(thumb-image-file ,img
help-echo ,(file-name-nondirectory img))))
help-echo ,(file-name-nondirectory img)
rear-nonsticky help-echo)))
(defun thumbs-do-thumbs-insertion (list)
"Insert all thumbnails into thumbs buffer."
......@@ -488,7 +491,7 @@ Open another window."
(let (list)
(goto-char (point-min))
(while (not (eobp))
(unless (= 0 (mod (point) (1+ thumbs-per-line)))
(unless (eolp)
(if (thumbs-current-image)
(push (cons (point-marker)
......@@ -774,8 +777,7 @@ ACTION and ARG should be a valid convert command."
(define-derived-mode thumbs-mode
fundamental-mode "thumbs"
"Preview images in a thumbnails buffer"
(setq buffer-read-only t)
(set (make-local-variable 'thumbs-marked-list) nil))
(setq buffer-read-only t))
(defvar thumbs-view-image-mode-map
(let ((map (make-sparse-keymap)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment