[Emacs-diffs] Changes to emacs/lisp/thumbs.el

[Juanma Barranquero]

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 ----