Lines Matching +defs:old +defs:mark
45 (defgroup dired-mark nil
104 :group 'dired-mark)
125 :group 'dired-mark)
134 :group 'dired-mark)
143 :group 'dired-mark)
152 :group 'dired-mark)
227 "In Dired, the current mark character.
228 This is what the do-commands look for, and what the mark-commands store.")
259 (defvar dired-re-mark "^[^ \n]")
262 (defvar dired-re-maybe-mark "^. ")
265 (defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[^:]"))
266 (defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[^:]"))
270 (concat dired-re-maybe-mark dired-re-inode-size x)))
313 (defface dired-mark
318 (defvar dired-mark-face 'dired-mark
376 (list dired-re-mark '(0 dired-mark-face))
396 ;;; (list (concat dired-re-maybe-mark dired-re-inode-size
404 (list (concat dired-re-maybe-mark dired-re-inode-size
407 (list (concat dired-re-maybe-mark dired-re-inode-size
449 (defmacro dired-mark-if (predicate msg)
684 ;; buffer's old value, so call dired-sort-other, which does
694 (old-buf (current-buffer)))
740 (set-buffer old-buf)
1036 Preserves old cursor, marks/flags, hidden-p."
1041 (mark-alist nil) ; save marked files
1043 (old-subdir-alist (cdr (reverse dired-subdir-alist))) ; except pwd
1047 (setq mark-alist;; only after dired-remember-hidden since this unhides:
1055 (dired-insert-old-subdirs old-subdir-alist))
1056 (dired-mark-remembered mark-alist) ; mark files that were marked
1084 (while (re-search-forward dired-re-mark end t)
1090 (defun dired-mark-remembered (alist)
1118 (defun dired-insert-old-subdirs (old-subdir-alist)
1123 (while old-subdir-alist
1124 (setq elt (car old-subdir-alist)
1125 old-subdir-alist (cdr old-subdir-alist)
1149 ;; Commands to mark or flag certain categories of files
1192 (define-key map "%g" 'dired-mark-files-containing-regexp)
1193 (define-key map "%m" 'dired-mark-files-regexp)
1201 (define-key map "**" 'dired-mark-executables)
1202 (define-key map "*/" 'dired-mark-directories)
1203 (define-key map "*@" 'dired-mark-symlinks)
1204 (define-key map "*%" 'dired-mark-files-regexp)
1206 (define-key map "*s" 'dired-mark-subdir-files)
1207 (define-key map "*m" 'dired-mark)
1228 (define-key map "m" 'dired-mark)
1269 (define-key map "\C-tf" 'image-dired-mark-tagged-files)
1366 [menu-bar regexp image-dired-mark-tagged-files]
1367 '(menu-item "Mark From Image Tag..." image-dired-mark-tagged-files
1401 (define-key map [menu-bar regexp mark]
1402 '(menu-item "Mark..." dired-mark-files-regexp
1404 (define-key map [menu-bar regexp mark-cont]
1405 '(menu-item "Mark Containing..." dired-mark-files-containing-regexp
1408 (define-key map [menu-bar mark]
1411 (define-key map [menu-bar mark prev]
1414 (define-key map [menu-bar mark next]
1417 (define-key map [menu-bar mark marks]
1420 (define-key map [menu-bar mark unmark-all]
1422 (define-key map [menu-bar mark symlinks]
1423 '(menu-item "Mark Symlinks" dired-mark-symlinks
1426 (define-key map [menu-bar mark directories]
1427 '(menu-item "Mark Directories" dired-mark-directories
1429 (define-key map [menu-bar mark directory]
1431 :help "Flag old numbered backups for deletion"))
1432 (define-key map [menu-bar mark executables]
1433 '(menu-item "Mark Executables" dired-mark-executables
1435 (define-key map [menu-bar mark garbage-files]
1438 (define-key map [menu-bar mark backup-files]
1441 (define-key map [menu-bar mark auto-save-files]
1444 (define-key map [menu-bar mark deletion]
1447 (define-key map [menu-bar mark unmark]
1450 (define-key map [menu-bar mark mark]
1451 '(menu-item "Mark" dired-mark
1453 (define-key map [menu-bar mark toggle-marks]
1552 and insert subdirectories into the same buffer. You can \"mark\"
1558 Type \\[dired-mark] to Mark a file or subdirectory for later commands.
1985 (eq (preceding-char) ?@) ;; did ls really mark the link?
2287 (prog1 ; let push-mark display its message
2291 (push-mark)))
2473 (if (dired-mark-pop-up
2475 (format "Delete %s " (dired-mark-prompt arg files)))
2543 (defun dired-mark-prompt (arg files)
2612 (defun dired-mark-pop-up (bufname op-symbol files function &rest args)
2671 ;; Commands to mark or flag file(s) at or near current line.
2708 (re-search-forward dired-re-mark nil t arg)
2710 (re-search-backward dired-re-mark nil t (- arg)))
2734 (defun dired-mark-files-in-region (start end)
2750 (defun dired-mark (arg)
2752 If on a subdir headerline, mark all its files except `.' and `..'.
2759 (save-excursion (dired-mark-subdir-files))
2770 (dired-mark arg)))
2776 If on a subdir headerline, mark all its files except `.' and `..'."
2779 (dired-mark arg)))
2810 ;;; Commands to mark or flag files based on their characteristics or names.
2818 (defun dired-mark-files-regexp (regexp &optional marker-char)
2824 object files--just `.o' will mark more than you might think."
2830 (dired-mark-if
2837 (defun dired-mark-files-containing-regexp (regexp &optional marker-char)
2846 (dired-mark-if
2874 (dired-mark-files-regexp regexp dired-del-marker))
2876 (defun dired-mark-symlinks (unflag-p)
2881 (dired-mark-if (looking-at dired-re-sym) "symbolic link")))
2883 (defun dired-mark-directories (unflag-p)
2888 (dired-mark-if (and (looking-at dired-re-dir)
2892 (defun dired-mark-executables (unflag-p)
2897 (dired-mark-if (looking-at dired-re-exe) "executable file")))
2899 ;; dired-x.el has a dired-mark-sexp interactive command: mark
2907 (dired-mark-if
2947 (dired-mark-if
2964 (defun dired-change-marks (&optional old new)
2966 OLD and NEW are both characters used to mark files."
2969 (old (progn (message "Change (old mark): ") (read-char)))
2970 (new (progn (message "Change %c marks to (new mark): " old)
2972 (list old new)))
2973 (if (or (eq old ?\r) (eq new ?\r))
2975 (let ((string (format "\n%c" old))
2980 (if (if (= old ?\s)
2985 (match-end 0) old new)))))))
2992 (defun dired-unmark-all-files (mark &optional arg)
2993 "Remove a specific mark (or any mark) from every file.
2994 After this command, type the mark character to remove,
3002 (string (format "\n%c" mark))
3007 (while (if (eq mark ?\r)
3008 (re-search-forward dired-re-mark nil t)
3018 (message (if (= count 1) "1 mark removed"
3157 ;; old toggle scheme: look for some 't' switch and add/remove it