Function: thumbs-mark

thumbs-mark is an interactive and byte-compiled function defined in thumbs.el.gz.

Signature

(thumbs-mark)

Documentation

Mark the image at point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/thumbs.el.gz
(defun thumbs-mark ()
  "Mark the image at point."
  (interactive)
  (let ((elt (thumbs-current-image)))
    (unless elt
      (error "No image here"))
    (push elt thumbs-marked-list)
    (let ((inhibit-read-only t))
      (delete-char 1)
      (thumbs-insert-thumb elt t)))
  (when (eolp) (forward-char)))