diff options
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index d9f57022dc0..34f4ca86d6b 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -696,8 +696,10 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 696 | (define-key dired-mode-map "\M-{" 'dired-prev-marked-file) | 696 | (define-key dired-mode-map "\M-{" 'dired-prev-marked-file) |
| 697 | (define-key dired-mode-map "\M-}" 'dired-next-marked-file) | 697 | (define-key dired-mode-map "\M-}" 'dired-next-marked-file) |
| 698 | ;; Make all regexp commands share a `%' prefix: | 698 | ;; Make all regexp commands share a `%' prefix: |
| 699 | (defalias 'dired-regexp-prefix (make-sparse-keymap)) | 699 | ;; We used to get to the submap via a symbol dired-regexp-prefix, |
| 700 | (define-key dired-mode-map "%" 'dired-regexp-prefix) | 700 | ;; but that seems to serve little purpose, and copy-keymap |
| 701 | ;; does a better job without it. | ||
| 702 | (define-key dired-mode-map "%" nil) | ||
| 701 | (define-key dired-mode-map "%u" 'dired-upcase) | 703 | (define-key dired-mode-map "%u" 'dired-upcase) |
| 702 | (define-key dired-mode-map "%l" 'dired-downcase) | 704 | (define-key dired-mode-map "%l" 'dired-downcase) |
| 703 | (define-key dired-mode-map "%d" 'dired-flag-files-regexp) | 705 | (define-key dired-mode-map "%d" 'dired-flag-files-regexp) |