/[emacs]/emacs/lisp/thumbs.el
ViewVC logotype

Diff of /emacs/lisp/thumbs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by jpw, Sat Sep 4 18:34:30 2004 UTC revision 1.8 by jpw, Mon Nov 1 07:57:19 2004 UTC
# Line 30  Line 30 
30  ;;; Commentary:  ;;; Commentary:
31    
32  ;; This package create two new mode: thumbs-mode and  ;; This package create two new mode: thumbs-mode and
33  ;; thumbs-view-image-mode. It is used for images browsing and viewing  ;; thumbs-view-image-mode.  It is used for images browsing and viewing
34  ;; from within emacs. Minimal image manipulation functions are also  ;; from within Emacs.  Minimal image manipulation functions are also
35  ;; available via external programs.  ;; available via external programs.
36  ;;  ;;
37  ;; The 'convert' program from 'ImageMagick'  ;; The 'convert' program from 'ImageMagick'
# Line 62  Line 62 
62    
63  (defgroup thumbs nil  (defgroup thumbs nil
64    "Thumbnails previewer."    "Thumbnails previewer."
65      :version "21.4"
66    :group 'multimedia)    :group 'multimedia)
67    
68  (defcustom thumbs-thumbsdir  (defcustom thumbs-thumbsdir
# Line 416  and SAME-WINDOW to show thumbs in the sa Line 417  and SAME-WINDOW to show thumbs in the sa
417  (defalias 'thumbs 'thumbs-show-all-from-dir)  (defalias 'thumbs 'thumbs-show-all-from-dir)
418    
419  (defun thumbs-find-image (img &optional num otherwin)  (defun thumbs-find-image (img &optional num otherwin)
420    (funcall    (funcall
421     (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer)     (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer)
422     (concat "*Image: " (file-name-nondirectory img) " - "     (concat "*Image: " (file-name-nondirectory img) " - "
423             (number-to-string (or num 0)) "*"))             (number-to-string (or num 0)) "*"))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26