mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
permanent-local.
(thumbs-insert-thumb): Make help-echo non-sticky.
(thumbs-file-alist): Use eolp as check for (non)-image.
This commit is contained in:
Nick Roberts 2006-01-30 09:52:49 +00:00
parent 75e49434a5
commit 0868cd7045
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/thumbs.el
View file

@ -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)))
"x"
(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))))))
;;;###autoload
@ -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)
(thumbs-current-image))
@ -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)))