Lines Matching +defs:mark +defs:marker
249 (define-key dired-mode-map "*O" 'dired-mark-omitted)
250 (define-key dired-mode-map "\M-(" 'dired-mark-sexp)
251 (define-key dired-mode-map "*(" 'dired-mark-sexp)
252 (define-key dired-mode-map "*." 'dired-mark-extension)
288 (let ((menu (lookup-key menu-bar [mark])))
299 [mark-extension]
302 dired-mark-extension
307 [mark-omitted]
310 dired-mark-omitted
312 'mark-extension))
354 \\[dired-mark-sexp]\t-- mark by Lisp expression
433 (defun dired-mark-extension (extension &optional marker-char)
437 ;; Optional MARKER-CHAR is marker to use.
441 (dired-mark-files-regexp
446 marker-char))
452 (dired-mark-extension extension dired-del-marker))
563 (defvar dired-omit-marker-char ?\017
564 "Temporary marker used by dired-omit.
565 Should never be used as marker by the user or other packages.")
575 (defun dired-mark-omitted ()
579 (dired-mark-unmarked-files (dired-omit-regexp) nil nil dired-omit-localp))
602 This functions works by temporarily binding `dired-marker-char' to
603 `dired-omit-marker-char' and calling `dired-do-kill-lines'."
618 (let ((dired-marker-char dired-omit-marker-char))
620 (if (dired-mark-unmarked-files omit-re nil nil dired-omit-localp)
630 (re-search-forward dired-re-mark nil t))))
644 (defun dired-mark-unmarked-files (regexp msg &optional unflag-p localp)
647 Does not re-mark files which already have a mark.
651 (let ((dired-marker-char (if unflag-p ?\s dired-marker-char)))
652 (dired-mark-if
662 (defun dired-omit-new-add-entry (filename &optional marker-char relative)
681 (dired-omit-old-add-entry filename marker-char relative)
686 (dired-omit-old-add-entry filename marker-char relative)))
1243 (dired-mark-pop-up
1246 (format prompt (dired-mark-prompt arg files)) ; PROMPT
1253 (defvar dired-keep-marker-relsymlink ?S
1254 "See variable `dired-keep-marker-move'.")
1323 "RelSymLink" arg dired-keep-marker-relsymlink))
1329 (interactive (dired-mark-read-regexp "RelSymLink"))
1332 "RelSymLink" arg regexp newname whole-name dired-keep-marker-relsymlink))
1557 (defun dired-mark-sexp (predicate &optional unflag-p)
1580 to mark all zero length files."
1587 (let ((dired-marker-char (if unflag-p ?\040 dired-marker-char))
1589 (dired-mark-if