Mercurial > emacs
comparison lisp/tumme.el @ 71023:613d5f4255bd
(tumme-show-all-from-dir-max-files): Fix typo.
(tumme-show-all-from-dir): Add autoload.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 27 May 2006 22:45:48 +0000 |
| parents | 95bd5a8f89a3 |
| children | 9b8668bfcf4c a8190f7e546e |
comparison
equal
deleted
inserted
replaced
| 71022:e21047351343 | 71023:613d5f4255bd |
|---|---|
| 506 Used by `tumme-copy-with-exif-file-name'." | 506 Used by `tumme-copy-with-exif-file-name'." |
| 507 :type 'string | 507 :type 'string |
| 508 :group 'tumme) | 508 :group 'tumme) |
| 509 | 509 |
| 510 (defcustom tumme-show-all-from-dir-max-files 50 | 510 (defcustom tumme-show-all-from-dir-max-files 50 |
| 511 "*Maximum number of files to show using`tumme-show-all-from-dir'. | 511 "*Maximum number of files to show using `tumme-show-all-from-dir'. |
| 512 before warning the user." | 512 before warning the user." |
| 513 :type 'integer | 513 :type 'integer |
| 514 :group 'tumme) | 514 :group 'tumme) |
| 515 | 515 |
| 516 (defun tumme-dir () | 516 (defun tumme-dir () |
| 838 (tumme-line-up-dynamic)))) | 838 (tumme-line-up-dynamic)))) |
| 839 (if do-not-pop | 839 (if do-not-pop |
| 840 (display-buffer tumme-thumbnail-buffer) | 840 (display-buffer tumme-thumbnail-buffer) |
| 841 (pop-to-buffer tumme-thumbnail-buffer)))) | 841 (pop-to-buffer tumme-thumbnail-buffer)))) |
| 842 | 842 |
| 843 ;;;###autoload | |
| 843 (defun tumme-show-all-from-dir (dir) | 844 (defun tumme-show-all-from-dir (dir) |
| 844 "Make a preview buffer for all images in DIR and display it. | 845 "Make a preview buffer for all images in DIR and display it. |
| 845 If the number of files in DIR matching `image-file-name-regexp' | 846 If the number of files in DIR matching `image-file-name-regexp' |
| 846 exceeds `tumme-show-all-from-dir-max-files', a warning will be | 847 exceeds `tumme-show-all-from-dir-max-files', a warning will be |
| 847 displayed." | 848 displayed." |