From 4a3ca6ed7a3c863bc20a49c8425aa8dfaf933cf8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 2 Nov 1996 07:56:50 +0000 Subject: [PATCH] (dired-mode-map): Make * a prefix for mark commands. Delete the old *, / and @ keybindings. --- lisp/dired.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 679d82936e7..88fdead3a1c 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -775,10 +775,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." (define-key map [mouse-2] 'dired-mouse-find-file-other-window) ;; Commands to mark or flag certain categories of files (define-key map "#" 'dired-flag-auto-save-files) - (define-key map "*" 'dired-mark-executables) (define-key map "." 'dired-clean-directory) - (define-key map "/" 'dired-mark-directories) - (define-key map "@" 'dired-mark-symlinks) (define-key map "~" 'dired-flag-backup-files) ;; Upper case keys (except !) for operating on the marked files (define-key map "A" 'dired-do-search) @@ -823,8 +820,21 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." (define-key map "%H" 'dired-do-hardlink-regexp) (define-key map "%R" 'dired-do-rename-regexp) (define-key map "%S" 'dired-do-symlink-regexp) + ;; Commands for marking and unmarking. + (define-key map "*" nil) + (define-key map "**" 'dired-mark-executables) + (define-key map "*/" 'dired-mark-directories) + (define-key map "*@" 'dired-mark-symlinks) + (define-key map "*%" 'dired-mark-files-regexp) + (define-key map "*c" 'dired-change-marks) + (define-key map "*m" 'dired-mark) + (define-key map "*u" 'dired-unmark) + (define-key map "*?" 'dired-unmark-all-files) + (define-key map "*!" 'dired-unmark-all-files-noquery) + (define-key map "*\177" 'dired-unmark-backward) + (define-key map "*\C-n" 'dired-next-marked-file) + (define-key map "*\C-p" 'dired-prev-marked-file) ;; Lower keys for commands not operating on all the marked files - (define-key map "c" 'dired-change-marks) (define-key map "d" 'dired-flag-file-deletion) (define-key map "e" 'dired-find-file) (define-key map "f" 'dired-find-file) -- 2.39.5