Function: dired-mark-for-click
dired-mark-for-click is an interactive and byte-compiled function
defined in dired.el.gz.
Signature
(dired-mark-for-click EVENT)
Documentation
Mark or unmark the file underneath the mouse click at EVENT.
See dired-click-to-select-mode(var)/dired-click-to-select-mode(fun) for more details.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/dired.el.gz
(defun dired-mark-for-click (event)
"Mark or unmark the file underneath the mouse click at EVENT.
See `dired-click-to-select-mode' for more details."
(interactive "e" dired-mode)
(let ((posn (event-start event))
(inhibit-read-only t))
(with-selected-window (posn-window posn)
(goto-char (posn-point posn))
(save-excursion
(dired-repeat-over-lines
1 (lambda ()
(let ((char (char-after)))
(when (or (not (looking-at-p dired-re-dot))
(not (equal dired-marker-char dired-del-marker)))
(delete-char 1)
(insert (if (eq char dired-marker-char)
;; Insert a space to unmark the file if
;; it's already marked.
?\s
;; Otherwise mark the file.
dired-marker-char))))))))))