Lines Matching defs:marked
51 ;; from dired, C-t m enter in thumbs-mode with all marked files
175 (defvar thumbs-marked-list nil
176 "List of marked files.")
177 (make-variable-buffer-local 'thumbs-marked-list)
178 (put 'thumbs-marked-list 'permanent-local t)
350 (defun thumbs-insert-image (img type relief &optional marked)
354 If MARKED is non-nil, the image is marked."
358 :conversion ,(if marked 'disabled)
364 (defun thumbs-insert-thumb (img &optional marked)
366 If MARKED is non-nil, the image is marked."
368 (thumbs-make-thumb img) 'jpeg thumbs-relief marked)
382 (member img thumbs-marked-list))
414 (defun thumbs-dired-show-marked ()
415 "In dired, make a thumbs buffer with marked files."
417 (thumbs-show-thumbs-list (dired-get-marked-files) nil t))
514 "Delete the image at point (and its thumbnail) (or marked files if any)."
516 (let ((files (or thumbs-marked-list (list (thumbs-current-image)))))
531 (setq thumbs-marked-list
532 (delq x thumbs-marked-list)))))))))
535 "Rename the image at point (and its thumbnail) (or marked files if any)."
537 (let ((files (or thumbs-marked-list (list (thumbs-current-image))))
540 thumbs-marked-list)
542 (error "Renaming marked files to file name `%s'" newfile)
562 (setq thumbs-marked-list
563 (delq file thumbs-marked-list)))))))
626 (push elt thumbs-marked-list)
638 (setq thumbs-marked-list (delete elt thumbs-marked-list))
813 (define-key dired-mode-map "\C-tm" 'thumbs-dired-show-marked)