[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/thumbs.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/thumbs.el |
Date: |
Tue, 02 Aug 2005 06:25:26 -0400 |
Index: emacs/lisp/thumbs.el
diff -c emacs/lisp/thumbs.el:1.18 emacs/lisp/thumbs.el:1.19
*** emacs/lisp/thumbs.el:1.18 Mon Jul 4 23:08:58 2005
--- emacs/lisp/thumbs.el Tue Aug 2 10:25:26 2005
***************
*** 138,160 ****
:group 'thumbs)
;; Initialize some variable, for later use.
! (defvar thumbs-current-tmp-filename
! nil
"Temporary filename of current image.")
! (defvar thumbs-current-image-filename
! nil
"Filename of current image.")
! (defvar thumbs-current-image-size
! nil
"Size of current image.")
! (defvar thumbs-image-num
! nil
"Number of current image.")
! (defvar thumbs-current-dir
! nil
"Current directory.")
! (defvar thumbs-markedL
! nil
"List of marked files.")
(defalias 'thumbs-gensym
--- 138,162 ----
:group 'thumbs)
;; Initialize some variable, for later use.
! (defvar thumbs-current-tmp-filename nil
"Temporary filename of current image.")
! (make-variable-buffer-local 'thumbs-current-tmp-filename)
!
! (defvar thumbs-current-image-filename nil
"Filename of current image.")
! (make-variable-buffer-local 'thumbs-current-image-filename)
!
! (defvar thumbs-current-image-size nil
"Size of current image.")
!
! (defvar thumbs-image-num nil
"Number of current image.")
! (make-variable-buffer-local 'thumbs-image-num)
!
! (defvar thumbs-current-dir nil
"Current directory.")
!
! (defvar thumbs-markedL nil
"List of marked files.")
(defalias 'thumbs-gensym
***************
*** 365,372 ****
:conversion ,(if marked 'disabled)
:margin ,thumbs-margin)))
(insert-image i)
! (setq thumbs-current-image-size
! (image-size i t))))
(defun thumbs-insert-thumb (img &optional marked)
"Insert the thumbnail for IMG at point.
--- 367,374 ----
:conversion ,(if marked 'disabled)
:margin ,thumbs-margin)))
(insert-image i)
! (set (make-local-variable 'thumbs-current-image-size)
! (image-size i t))))
(defun thumbs-insert-thumb (img &optional marked)
"Insert the thumbnail for IMG at point.
***************
*** 397,404 ****
(thumbs-mode)
(thumbs-do-thumbs-insertion L)
(goto-char (point-min))
! (setq thumbs-current-dir default-directory)
! (make-variable-buffer-local 'thumbs-current-dir)))
;;;###autoload
(defun thumbs-show-all-from-dir (dir &optional reg same-window)
--- 399,405 ----
(thumbs-mode)
(thumbs-do-thumbs-insertion L)
(goto-char (point-min))
! (set (make-local-variable 'thumbs-current-dir) default-directory)))
;;;###autoload
(defun thumbs-show-all-from-dir (dir &optional reg same-window)
***************
*** 436,445 ****
(setq thumbs-current-image-filename img
thumbs-current-tmp-filename nil
thumbs-image-num (or num 0))
- (make-variable-buffer-local 'thumbs-current-image-filename)
- (make-variable-buffer-local 'thumbs-current-tmp-filename)
- (make-variable-buffer-local 'thumbs-current-image-size)
- (make-variable-buffer-local 'thumbs-image-num)
(delete-region (point-min)(point-max))
(thumbs-insert-image img (thumbs-image-type img) 0)))
--- 437,442 ----
- [Emacs-diffs] Changes to emacs/lisp/thumbs.el,
Juanma Barranquero <=