diff options
| -rw-r--r-- | lisp/tumme.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/tumme.el b/lisp/tumme.el index a75f5627eb9..005258790c2 100644 --- a/lisp/tumme.el +++ b/lisp/tumme.el | |||
| @@ -1208,6 +1208,7 @@ displayed." | |||
| 1208 | (kill-buffer buf) | 1208 | (kill-buffer buf) |
| 1209 | (split-string tags ";")))) | 1209 | (split-string tags ";")))) |
| 1210 | 1210 | ||
| 1211 | ;;;###autoload | ||
| 1211 | (defun tumme-tag-files (arg) | 1212 | (defun tumme-tag-files (arg) |
| 1212 | "Tag marked file(s) in dired. With prefix ARG, tag file at point." | 1213 | "Tag marked file(s) in dired. With prefix ARG, tag file at point." |
| 1213 | (interactive "P") | 1214 | (interactive "P") |
| @@ -1226,6 +1227,7 @@ displayed." | |||
| 1226 | (tumme-update-property | 1227 | (tumme-update-property |
| 1227 | 'tags (tumme-list-tags (tumme-original-file-name)))) | 1228 | 'tags (tumme-list-tags (tumme-original-file-name)))) |
| 1228 | 1229 | ||
| 1230 | ;;;###autoload | ||
| 1229 | (defun tumme-tag-remove (arg) | 1231 | (defun tumme-tag-remove (arg) |
| 1230 | "Remove tag for selected file(s). | 1232 | "Remove tag for selected file(s). |
| 1231 | With prefix argument ARG, remove tag from file at point." | 1233 | With prefix argument ARG, remove tag from file at point." |
| @@ -1489,6 +1491,7 @@ You probably want to use this together with | |||
| 1489 | (select-window window)) | 1491 | (select-window window)) |
| 1490 | (message "Associated dired buffer not visible")))) | 1492 | (message "Associated dired buffer not visible")))) |
| 1491 | 1493 | ||
| 1494 | ;;;###autoload | ||
| 1492 | (defun tumme-jump-thumbnail-buffer () | 1495 | (defun tumme-jump-thumbnail-buffer () |
| 1493 | "Jump to thumbnail buffer." | 1496 | "Jump to thumbnail buffer." |
| 1494 | (interactive) | 1497 | (interactive) |
| @@ -1887,11 +1890,13 @@ Ask user for number of images to show and the delay in between." | |||
| 1887 | (if (looking-at " ") | 1890 | (if (looking-at " ") |
| 1888 | (delete-char 1)))) | 1891 | (delete-char 1)))) |
| 1889 | 1892 | ||
| 1893 | ;;;###autoload | ||
| 1890 | (defun tumme-display-thumbs-append () | 1894 | (defun tumme-display-thumbs-append () |
| 1891 | "Append thumbnails to `tumme-thumbnail-buffer'." | 1895 | "Append thumbnails to `tumme-thumbnail-buffer'." |
| 1892 | (interactive) | 1896 | (interactive) |
| 1893 | (tumme-display-thumbs nil t)) | 1897 | (tumme-display-thumbs nil t)) |
| 1894 | 1898 | ||
| 1899 | ;;;###autoload | ||
| 1895 | (defun tumme-display-thumb () | 1900 | (defun tumme-display-thumb () |
| 1896 | "Shorthard for `tumme-display-thumbs' with prefix argument." | 1901 | "Shorthard for `tumme-display-thumbs' with prefix argument." |
| 1897 | (interactive) | 1902 | (interactive) |
| @@ -1962,6 +1967,7 @@ Ask user how many thumbnails should be displayed per row." | |||
| 1962 | tumme-external-viewer | 1967 | tumme-external-viewer |
| 1963 | file)))))) | 1968 | file)))))) |
| 1964 | 1969 | ||
| 1970 | ;;;###autoload | ||
| 1965 | (defun tumme-dired-display-external () | 1971 | (defun tumme-dired-display-external () |
| 1966 | "Display file at point using an external viewer." | 1972 | "Display file at point using an external viewer." |
| 1967 | (interactive) | 1973 | (interactive) |
| @@ -2070,6 +2076,7 @@ With prefix argument ARG, display image in its original size." | |||
| 2070 | (tumme-display-image file arg) | 2076 | (tumme-display-image file arg) |
| 2071 | (display-buffer tumme-display-image-buffer)))))) | 2077 | (display-buffer tumme-display-image-buffer)))))) |
| 2072 | 2078 | ||
| 2079 | ;;;###autoload | ||
| 2073 | (defun tumme-display-dired-image (&optional arg) | 2080 | (defun tumme-display-dired-image (&optional arg) |
| 2074 | "Display current image file. | 2081 | "Display current image file. |
| 2075 | See documentation for `tumme-display-image' for more information. | 2082 | See documentation for `tumme-display-image' for more information. |
| @@ -2320,6 +2327,7 @@ browse and tag them using rest of the functionality in `tumme'." | |||
| 2320 | prop | 2327 | prop |
| 2321 | value))) | 2328 | value))) |
| 2322 | 2329 | ||
| 2330 | ;;;###autoload | ||
| 2323 | (defun tumme-dired-comment-files () | 2331 | (defun tumme-dired-comment-files () |
| 2324 | "Add comment to current or marked files in dired." | 2332 | "Add comment to current or marked files in dired." |
| 2325 | (interactive) | 2333 | (interactive) |
| @@ -2370,6 +2378,7 @@ browse and tag them using rest of the functionality in `tumme'." | |||
| 2370 | (kill-buffer buf) | 2378 | (kill-buffer buf) |
| 2371 | comment))) | 2379 | comment))) |
| 2372 | 2380 | ||
| 2381 | ;;;###autoload | ||
| 2373 | (defun tumme-mark-tagged-files () | 2382 | (defun tumme-mark-tagged-files () |
| 2374 | "Use regexp to mark files with matching tag." | 2383 | "Use regexp to mark files with matching tag." |
| 2375 | (interactive) | 2384 | (interactive) |