Lines Matching +defs:forward +defs:comment
58 ;; file-name-non-directory;comment:comment-text;tag1;tag2;tag3;...;tagN
488 with the comment."
570 'comment (image-dired-get-comment original-file-name)))))
881 (if (search-forward-regexp (format "^%s.*$" file) nil t)
885 (when (not (search-forward (format ";%s" tag) end t))
903 (when (search-forward-regexp
908 (when (search-forward-regexp (format "\\(;%s\\)" tag) end t)
915 (when (not (search-forward ";" end t))
931 (when (search-forward-regexp
936 (if (search-forward ";" end t)
937 (if (search-forward "comment:" end t)
938 (if (search-forward ";" end t)
1014 (if (not (search-forward file-name nil t))
1048 (forward-char 1)))
1073 (defun image-dired-forward-image (&optional arg)
1082 (forward-char)
1085 (forward-char))
1141 (defun image-dired-format-properties-string (buf file props comment)
1145 comment."
1152 (cons ?c (or comment "")))))
1163 (comment (get-text-property (point) 'comment)))
1170 comment))))))
1192 (if (search-forward file-name nil t)
1205 (image-dired-forward-image))
1211 (image-dired-forward-image))
1217 (image-dired-forward-image))
1265 (define-key image-dired-thumbnail-mode-map [right] 'image-dired-forward-image)
1269 (define-key image-dired-thumbnail-mode-map "\C-f" 'image-dired-forward-image)
1319 (define-key image-dired-thumbnail-mode-map "c" 'image-dired-comment-thumbnail)
1356 [menu-bar image-dired image-dired-comment-thumbnail]
1357 '("Comment thumbnail" . image-dired-comment-thumbnail))
1506 (define-key dired-mode-map "\C-tc" 'image-dired-dired-comment-files)
1516 (define-key dired-mode-map [menu-bar image-dired image-dired-dired-comment-files]
1517 '("Comment files" . image-dired-dired-comment-files))
1661 (forward-char)
1668 (forward-char)
1675 (forward-char)
1989 (while (search-forward-regexp "[\n\r]" nil t)
2024 (image-dired-forward-image)
2038 (let (end comment-beg-pos comment-end-pos file comment)
2043 comment (cdr elt))
2045 (if (search-forward-regexp (format "^%s.*$" file) nil t)
2049 ;; Delete old comment, if any
2050 (when (search-forward ";comment:" end t)
2051 (setq comment-beg-pos (match-beginning 0))
2052 ;; Any tags after the comment?
2053 (if (search-forward ";" end t)
2054 (setq comment-end-pos (- (point) 1))
2055 (setq comment-end-pos end))
2056 ;; Delete comment tag and comment
2057 (delete-region comment-beg-pos comment-end-pos))
2058 ;; Insert new comment
2060 (unless (search-forward ";" end t)
2063 (insert (format "comment:%s;" comment)))
2066 (insert (format "\n%s;comment:%s" file comment)))))))
2077 (defun image-dired-dired-comment-files ()
2078 "Add comment to current or marked files in dired."
2080 (let ((comment (image-dired-read-comment)))
2084 (cons curr-file comment))
2087 (defun image-dired-comment-thumbnail ()
2088 "Add comment to current thumbnail in thumbnail buffer."
2091 (comment (image-dired-read-comment file)))
2092 (image-dired-write-comments (list (cons file comment)))
2093 (image-dired-update-property 'comment comment))
2096 (defun image-dired-read-comment (&optional file)
2097 "Read comment for an image.
2098 Read comment for an image, optionally using old comment from FILE
2100 (let ((comment
2103 (if file (image-dired-get-comment file)))))
2104 comment))
2106 (defun image-dired-get-comment (file)
2107 "Get comment for file FILE."
2109 (let (end buf comment-beg-pos comment-end-pos comment)
2112 (when (search-forward-regexp
2117 (cond ((search-forward ";comment:" end t)
2118 (setq comment-beg-pos (point))
2119 (if (search-forward ";" end t)
2120 (setq comment-end-pos (- (point) 1))
2121 (setq comment-end-pos end))
2122 (setq comment (buffer-substring
2123 comment-beg-pos comment-end-pos)))))
2125 comment)))
2143 (while (search-forward-regexp
2160 (when (search-forward-regexp (format "\\s %s$" curr-file) nil t)
2215 (comment (image-dired-get-comment file)))
2222 comment)))))
2230 (defvar image-dired-file-comment-list nil
2279 (defun image-dired-add-to-file-comment-list (file comment)
2286 image-dired-file-comment-list:
2291 (if image-dired-file-comment-list
2292 (if (not (assoc file image-dired-file-comment-list))
2293 (setcdr image-dired-file-comment-list
2294 (cons (cons file comment)
2295 (cdr image-dired-file-comment-list))))
2296 (setq image-dired-file-comment-list (list (cons file comment)))))
2304 (setq image-dired-file-comment-list nil)
2306 (while (search-forward-regexp "^." nil t)
2311 (if (not (search-forward ";" end nil))
2318 (if (not (string-match "^comment:\\(.*\\)" x))
2320 (image-dired-add-to-file-comment-list file (match-string 1 x))))
2351 comment file-tags tag-link tag-link-list)
2408 ;; Insert comment, if any
2409 (if (setq comment (cdr (assoc file image-dired-file-comment-list)))
2410 (insert (format "<br>\n%s<br>\n" comment))
2451 (defun image-dired-dired-edit-comment-and-tags ()
2452 "Edit comment and tags of current or marked image files.
2453 Edit comment and tags for all marked image files in an
2468 with a comma. Move forward between fields using TAB or RET.
2472 ;; Here comes all images and a comment and tag field for each
2474 (let (thumb-file img comment-widget tag-widget)
2483 (setq comment-widget
2487 :value (or (image-dired-get-comment file) "")))
2502 (list (list file comment-widget tag-widget))))
2525 (widget-forward 1)))
2531 `image-dired-dired-edit-comment-and-tags'."
2532 (let (file comment tag-string tag-list lst)
2537 comment (widget-value (cadr widget)))
2538 (cons file comment))