diff options
| author | Juanma Barranquero | 2006-02-07 10:16:12 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2006-02-07 10:16:12 +0000 |
| commit | ef8bff33ddbbe419cf508a534ef15fa27983012f (patch) | |
| tree | 2c8fa41594236b06e92dbc5122db6fd88658239e /lisp | |
| parent | 1b5053637e5137830b58fdb451c3eb150bccaae8 (diff) | |
| download | emacs-ef8bff33ddbbe419cf508a534ef15fa27983012f.tar.gz emacs-ef8bff33ddbbe419cf508a534ef15fa27983012f.zip | |
(tumme-get-thumbnail-image): Add missing arg to `error'.
Fix typo in message.
(tumme-gallery-generate): Fix typo in `error' message.
(tumme-display-window-height-correction, tumme-display-window-width-correction,
tumme-line-up-dynamic, tumme-line-up-interactive): Dox fixes.
(tumme-cmd-rotate-original-options, tumme-display-properties-format,
tumme-restore-window-configuration, tumme-format-properties-string,
tumme-create-thumbs, tumme-display-previous-thumbnail-original): Fix typos in
docstrings.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/tumme.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/tumme.el b/lisp/tumme.el index 34a768f398d..dcb1d05c10d 100644 --- a/lisp/tumme.el +++ b/lisp/tumme.el | |||
| @@ -685,7 +685,7 @@ Available options are %p which is replaced by | |||
| 685 | number of (positive) degrees to rotate the image, normally 90 or | 685 | number of (positive) degrees to rotate the image, normally 90 or |
| 686 | 270 \(for 90 degrees right and left), %o which is replaced by the | 686 | 270 \(for 90 degrees right and left), %o which is replaced by the |
| 687 | original image file name and %t which is replaced by | 687 | original image file name and %t which is replaced by |
| 688 | `tumme-temp-image-file'" | 688 | `tumme-temp-image-file'." |
| 689 | :type 'string | 689 | :type 'string |
| 690 | :group 'tumme) | 690 | :group 'tumme) |
| 691 | 691 | ||
| @@ -778,7 +778,7 @@ line-up means that no automatic line-up will be done." | |||
| 778 | :group 'tumme) | 778 | :group 'tumme) |
| 779 | 779 | ||
| 780 | (defcustom tumme-display-window-width-correction 1 | 780 | (defcustom tumme-display-window-width-correction 1 |
| 781 | "*Number to be used to correct image display window height. | 781 | "*Number to be used to correct image display window width. |
| 782 | Change if the default (1) does not work (i.e. if the image does not | 782 | Change if the default (1) does not work (i.e. if the image does not |
| 783 | completely fit)." | 783 | completely fit)." |
| 784 | :type 'integer | 784 | :type 'integer |
| @@ -786,7 +786,7 @@ completely fit)." | |||
| 786 | 786 | ||
| 787 | (defcustom tumme-display-window-height-correction 0 | 787 | (defcustom tumme-display-window-height-correction 0 |
| 788 | "*Number to be used to correct image display window height. | 788 | "*Number to be used to correct image display window height. |
| 789 | Use if the default (0) does not work (i.e. if the image does not | 789 | Change if the default (0) does not work (i.e. if the image does not |
| 790 | completely fit)." | 790 | completely fit)." |
| 791 | :type 'integer | 791 | :type 'integer |
| 792 | :group 'tumme) | 792 | :group 'tumme) |
| @@ -819,7 +819,7 @@ dired and you might want to turn it off." | |||
| 819 | :group 'tumme) | 819 | :group 'tumme) |
| 820 | 820 | ||
| 821 | (defcustom tumme-display-properties-format "%b: %f (%t): %c" | 821 | (defcustom tumme-display-properties-format "%b: %f (%t): %c" |
| 822 | "* Display format for thumbnail properties. | 822 | "*Display format for thumbnail properties. |
| 823 | %b is replaced with associated dired buffer name, %f with file name | 823 | %b is replaced with associated dired buffer name, %f with file name |
| 824 | \(without path) of original image file, %t with the list of tags and %c | 824 | \(without path) of original image file, %t with the list of tags and %c |
| 825 | with the comment." | 825 | with the comment." |
| @@ -857,7 +857,7 @@ Used by `tumme-copy-with-exif-file-name'." | |||
| 857 | (defun tumme-get-thumbnail-image (file) | 857 | (defun tumme-get-thumbnail-image (file) |
| 858 | "Return the image descriptor for a thumbnail of image file FILE." | 858 | "Return the image descriptor for a thumbnail of image file FILE." |
| 859 | (unless (string-match (image-file-name-regexp) file) | 859 | (unless (string-match (image-file-name-regexp) file) |
| 860 | (error "%s is not a valid image file.")) | 860 | (error "%s is not a valid image file" file)) |
| 861 | (let ((thumb-file (tumme-thumb-name file))) | 861 | (let ((thumb-file (tumme-thumb-name file))) |
| 862 | (unless (and (file-exists-p thumb-file) | 862 | (unless (and (file-exists-p thumb-file) |
| 863 | (<= (float-time (nth 5 (file-attributes file))) | 863 | (<= (float-time (nth 5 (file-attributes file))) |
| @@ -1047,7 +1047,7 @@ calling `tumme-restore-window-configuration'." | |||
| 1047 | (defun tumme-restore-window-configuration () | 1047 | (defun tumme-restore-window-configuration () |
| 1048 | "Restore window configuration. | 1048 | "Restore window configuration. |
| 1049 | Restore any changes to the window configuration made by calling | 1049 | Restore any changes to the window configuration made by calling |
| 1050 | `tumme-dired-with-window-configuration'" | 1050 | `tumme-dired-with-window-configuration'." |
| 1051 | (interactive) | 1051 | (interactive) |
| 1052 | (if tumme-saved-window-configuration | 1052 | (if tumme-saved-window-configuration |
| 1053 | (set-window-configuration tumme-saved-window-configuration) | 1053 | (set-window-configuration tumme-saved-window-configuration) |
| @@ -1393,7 +1393,7 @@ move ARG lines." | |||
| 1393 | (defun tumme-format-properties-string (buf file props comment) | 1393 | (defun tumme-format-properties-string (buf file props comment) |
| 1394 | "Format display properties. | 1394 | "Format display properties. |
| 1395 | BUF is the associated dired buffer, FILE is the original image file | 1395 | BUF is the associated dired buffer, FILE is the original image file |
| 1396 | name, PROPS is a list of tags and COMMENT is the images files's | 1396 | name, PROPS is a list of tags and COMMENT is the image files's |
| 1397 | comment." | 1397 | comment." |
| 1398 | (format-spec | 1398 | (format-spec |
| 1399 | tumme-display-properties-format | 1399 | tumme-display-properties-format |
| @@ -1823,7 +1823,7 @@ Note that n, p and <down> and <up> will be hijacked and bound to | |||
| 1823 | (defun tumme-create-thumbs (&optional arg) | 1823 | (defun tumme-create-thumbs (&optional arg) |
| 1824 | "Create thumbnail images for all marked files in dired. | 1824 | "Create thumbnail images for all marked files in dired. |
| 1825 | With prefix argument ARG, create thumbnails even if they already exist | 1825 | With prefix argument ARG, create thumbnails even if they already exist |
| 1826 | \(i.e. use this to refresh your thumbnails)." | 1826 | \(i.e. use this to refresh your thumbnails)." |
| 1827 | (interactive "P") | 1827 | (interactive "P") |
| 1828 | (let (curr-file thumb-name files count) | 1828 | (let (curr-file thumb-name files count) |
| 1829 | (setq files (dired-get-marked-files)) | 1829 | (setq files (dired-get-marked-files)) |
| @@ -1928,7 +1928,7 @@ See also `tumme-line-up-dynamic'." | |||
| 1928 | 1928 | ||
| 1929 | (defun tumme-line-up-dynamic () | 1929 | (defun tumme-line-up-dynamic () |
| 1930 | "Line up thumbnails images dynamically. | 1930 | "Line up thumbnails images dynamically. |
| 1931 | Calculate how many thumbnails that fits." | 1931 | Calculate how many thumbnails fit." |
| 1932 | (interactive) | 1932 | (interactive) |
| 1933 | (let* ((char-width (frame-char-width)) | 1933 | (let* ((char-width (frame-char-width)) |
| 1934 | (width (tumme-window-width-pixels (tumme-thumbnail-window))) | 1934 | (width (tumme-window-width-pixels (tumme-thumbnail-window))) |
| @@ -1941,7 +1941,7 @@ Calculate how many thumbnails that fits." | |||
| 1941 | 1941 | ||
| 1942 | (defun tumme-line-up-interactive () | 1942 | (defun tumme-line-up-interactive () |
| 1943 | "Line up thumbnails interactively. | 1943 | "Line up thumbnails interactively. |
| 1944 | Ask user how many thumbnails that should be displayed per row." | 1944 | Ask user how many thumbnails should be displayed per row." |
| 1945 | (interactive) | 1945 | (interactive) |
| 1946 | (let ((tumme-thumbs-per-row | 1946 | (let ((tumme-thumbs-per-row |
| 1947 | (string-to-number (read-string "How many thumbs per row: ")))) | 1947 | (string-to-number (read-string "How many thumbs per row: ")))) |
| @@ -2279,7 +2279,7 @@ browse and tag them using rest of the functionality in `tumme'." | |||
| 2279 | (tumme-display-thumbnail-original-image)) | 2279 | (tumme-display-thumbnail-original-image)) |
| 2280 | 2280 | ||
| 2281 | (defun tumme-display-previous-thumbnail-original () | 2281 | (defun tumme-display-previous-thumbnail-original () |
| 2282 | "Move to previous thumbnail and display image." | 2282 | "Move to previous thumbnail and display image." |
| 2283 | 2283 | ||
| 2284 | (interactive) | 2284 | (interactive) |
| 2285 | (tumme-backward-char) | 2285 | (tumme-backward-char) |
| @@ -2598,7 +2598,7 @@ when using per-directory thumbnail file storage")) | |||
| 2598 | ;; Make sure gallery root exist | 2598 | ;; Make sure gallery root exist |
| 2599 | (if (file-exists-p tumme-gallery-dir) | 2599 | (if (file-exists-p tumme-gallery-dir) |
| 2600 | (if (not (file-directory-p tumme-gallery-dir)) | 2600 | (if (not (file-directory-p tumme-gallery-dir)) |
| 2601 | (error "Tumme-gallery-dir is not a directory")) | 2601 | (error "tumme-gallery-dir is not a directory")) |
| 2602 | (make-directory tumme-gallery-dir)) | 2602 | (make-directory tumme-gallery-dir)) |
| 2603 | ;; Open index file | 2603 | ;; Open index file |
| 2604 | (setq index-buf (find-file | 2604 | (setq index-buf (find-file |