aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2006-02-07 10:16:12 +0000
committerJuanma Barranquero2006-02-07 10:16:12 +0000
commitef8bff33ddbbe419cf508a534ef15fa27983012f (patch)
tree2c8fa41594236b06e92dbc5122db6fd88658239e
parent1b5053637e5137830b58fdb451c3eb150bccaae8 (diff)
downloademacs-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.
-rw-r--r--lisp/tumme.el24
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
685number of (positive) degrees to rotate the image, normally 90 or 685number of (positive) degrees to rotate the image, normally 90 or
686270 \(for 90 degrees right and left), %o which is replaced by the 686270 \(for 90 degrees right and left), %o which is replaced by the
687original image file name and %t which is replaced by 687original 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.
782Change if the default (1) does not work (i.e. if the image does not 782Change if the default (1) does not work (i.e. if the image does not
783completely fit)." 783completely 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.
789Use if the default (0) does not work (i.e. if the image does not 789Change if the default (0) does not work (i.e. if the image does not
790completely fit)." 790completely 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
825with the comment." 825with 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.
1049Restore any changes to the window configuration made by calling 1049Restore 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.
1395BUF is the associated dired buffer, FILE is the original image file 1395BUF is the associated dired buffer, FILE is the original image file
1396name, PROPS is a list of tags and COMMENT is the images files's 1396name, PROPS is a list of tags and COMMENT is the image files's
1397comment." 1397comment."
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.
1825With prefix argument ARG, create thumbnails even if they already exist 1825With 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.
1931Calculate how many thumbnails that fits." 1931Calculate 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.
1944Ask user how many thumbnails that should be displayed per row." 1944Ask 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