diff options
| author | Richard M. Stallman | 1995-08-08 05:16:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-08 05:16:23 +0000 |
| commit | 3e1fb00f0b2b1f85a4b87f5695103938d636020f (patch) | |
| tree | d9c86f4f1363205635e279756f442dfeafb124aa | |
| parent | 3fe8e9a22e3e6dd1b8591fe38cbba73fa1d4e630 (diff) | |
| download | emacs-3e1fb00f0b2b1f85a4b87f5695103938d636020f.tar.gz emacs-3e1fb00f0b2b1f85a4b87f5695103938d636020f.zip | |
(dired-mode-map): Set up the map completely
before storing it into dired-mode-map.
| -rw-r--r-- | lisp/dired.el | 449 |
1 files changed, 225 insertions, 224 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index eeb0f7891f1..1385c798535 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -710,230 +710,231 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 710 | ;; This looks ugly when substitute-command-keys uses C-d instead d: | 710 | ;; This looks ugly when substitute-command-keys uses C-d instead d: |
| 711 | ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) | 711 | ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) |
| 712 | 712 | ||
| 713 | (setq dired-mode-map (make-keymap)) | 713 | (let ((map (make-keymap))) |
| 714 | (suppress-keymap dired-mode-map) | 714 | (suppress-keymap map) |
| 715 | (define-key dired-mode-map [mouse-2] 'dired-mouse-find-file-other-window) | 715 | (define-key map [mouse-2] 'dired-mouse-find-file-other-window) |
| 716 | ;; Commands to mark or flag certain categories of files | 716 | ;; Commands to mark or flag certain categories of files |
| 717 | (define-key dired-mode-map "#" 'dired-flag-auto-save-files) | 717 | (define-key map "#" 'dired-flag-auto-save-files) |
| 718 | (define-key dired-mode-map "*" 'dired-mark-executables) | 718 | (define-key map "*" 'dired-mark-executables) |
| 719 | (define-key dired-mode-map "." 'dired-clean-directory) | 719 | (define-key map "." 'dired-clean-directory) |
| 720 | (define-key dired-mode-map "/" 'dired-mark-directories) | 720 | (define-key map "/" 'dired-mark-directories) |
| 721 | (define-key dired-mode-map "@" 'dired-mark-symlinks) | 721 | (define-key map "@" 'dired-mark-symlinks) |
| 722 | (define-key dired-mode-map "~" 'dired-flag-backup-files) | 722 | (define-key map "~" 'dired-flag-backup-files) |
| 723 | ;; Upper case keys (except !) for operating on the marked files | 723 | ;; Upper case keys (except !) for operating on the marked files |
| 724 | (define-key dired-mode-map "A" 'dired-do-search) | 724 | (define-key map "A" 'dired-do-search) |
| 725 | (define-key dired-mode-map "C" 'dired-do-copy) | 725 | (define-key map "C" 'dired-do-copy) |
| 726 | (define-key dired-mode-map "B" 'dired-do-byte-compile) | 726 | (define-key map "B" 'dired-do-byte-compile) |
| 727 | (define-key dired-mode-map "D" 'dired-do-delete) | 727 | (define-key map "D" 'dired-do-delete) |
| 728 | (define-key dired-mode-map "G" 'dired-do-chgrp) | 728 | (define-key map "G" 'dired-do-chgrp) |
| 729 | (define-key dired-mode-map "H" 'dired-do-hardlink) | 729 | (define-key map "H" 'dired-do-hardlink) |
| 730 | (define-key dired-mode-map "L" 'dired-do-load) | 730 | (define-key map "L" 'dired-do-load) |
| 731 | (define-key dired-mode-map "M" 'dired-do-chmod) | 731 | (define-key map "M" 'dired-do-chmod) |
| 732 | (define-key dired-mode-map "O" 'dired-do-chown) | 732 | (define-key map "O" 'dired-do-chown) |
| 733 | (define-key dired-mode-map "P" 'dired-do-print) | 733 | (define-key map "P" 'dired-do-print) |
| 734 | (define-key dired-mode-map "Q" 'dired-do-query-replace) | 734 | (define-key map "Q" 'dired-do-query-replace) |
| 735 | (define-key dired-mode-map "R" 'dired-do-rename) | 735 | (define-key map "R" 'dired-do-rename) |
| 736 | (define-key dired-mode-map "S" 'dired-do-symlink) | 736 | (define-key map "S" 'dired-do-symlink) |
| 737 | (define-key dired-mode-map "X" 'dired-do-shell-command) | 737 | (define-key map "X" 'dired-do-shell-command) |
| 738 | (define-key dired-mode-map "Z" 'dired-do-compress) | 738 | (define-key map "Z" 'dired-do-compress) |
| 739 | (define-key dired-mode-map "!" 'dired-do-shell-command) | 739 | (define-key map "!" 'dired-do-shell-command) |
| 740 | ;; Comparison commands | 740 | ;; Comparison commands |
| 741 | (define-key dired-mode-map "=" 'dired-diff) | 741 | (define-key map "=" 'dired-diff) |
| 742 | (define-key dired-mode-map "\M-=" 'dired-backup-diff) | 742 | (define-key map "\M-=" 'dired-backup-diff) |
| 743 | ;; Tree Dired commands | 743 | ;; Tree Dired commands |
| 744 | (define-key dired-mode-map "\M-\C-?" 'dired-unmark-all-files) | 744 | (define-key map "\M-\C-?" 'dired-unmark-all-files) |
| 745 | (define-key dired-mode-map "\M-\C-d" 'dired-tree-down) | 745 | (define-key map "\M-\C-d" 'dired-tree-down) |
| 746 | (define-key dired-mode-map "\M-\C-u" 'dired-tree-up) | 746 | (define-key map "\M-\C-u" 'dired-tree-up) |
| 747 | (define-key dired-mode-map "\M-\C-n" 'dired-next-subdir) | 747 | (define-key map "\M-\C-n" 'dired-next-subdir) |
| 748 | (define-key dired-mode-map "\M-\C-p" 'dired-prev-subdir) | 748 | (define-key map "\M-\C-p" 'dired-prev-subdir) |
| 749 | ;; move to marked files | 749 | ;; move to marked files |
| 750 | (define-key dired-mode-map "\M-{" 'dired-prev-marked-file) | 750 | (define-key map "\M-{" 'dired-prev-marked-file) |
| 751 | (define-key dired-mode-map "\M-}" 'dired-next-marked-file) | 751 | (define-key map "\M-}" 'dired-next-marked-file) |
| 752 | ;; Make all regexp commands share a `%' prefix: | 752 | ;; Make all regexp commands share a `%' prefix: |
| 753 | ;; We used to get to the submap via a symbol dired-regexp-prefix, | 753 | ;; We used to get to the submap via a symbol dired-regexp-prefix, |
| 754 | ;; but that seems to serve little purpose, and copy-keymap | 754 | ;; but that seems to serve little purpose, and copy-keymap |
| 755 | ;; does a better job without it. | 755 | ;; does a better job without it. |
| 756 | (define-key dired-mode-map "%" nil) | 756 | (define-key map "%" nil) |
| 757 | (define-key dired-mode-map "%u" 'dired-upcase) | 757 | (define-key map "%u" 'dired-upcase) |
| 758 | (define-key dired-mode-map "%l" 'dired-downcase) | 758 | (define-key map "%l" 'dired-downcase) |
| 759 | (define-key dired-mode-map "%d" 'dired-flag-files-regexp) | 759 | (define-key map "%d" 'dired-flag-files-regexp) |
| 760 | (define-key dired-mode-map "%m" 'dired-mark-files-regexp) | 760 | (define-key map "%m" 'dired-mark-files-regexp) |
| 761 | (define-key dired-mode-map "%r" 'dired-do-rename-regexp) | 761 | (define-key map "%r" 'dired-do-rename-regexp) |
| 762 | (define-key dired-mode-map "%C" 'dired-do-copy-regexp) | 762 | (define-key map "%C" 'dired-do-copy-regexp) |
| 763 | (define-key dired-mode-map "%H" 'dired-do-hardlink-regexp) | 763 | (define-key map "%H" 'dired-do-hardlink-regexp) |
| 764 | (define-key dired-mode-map "%R" 'dired-do-rename-regexp) | 764 | (define-key map "%R" 'dired-do-rename-regexp) |
| 765 | (define-key dired-mode-map "%S" 'dired-do-symlink-regexp) | 765 | (define-key map "%S" 'dired-do-symlink-regexp) |
| 766 | ;; Lower keys for commands not operating on all the marked files | 766 | ;; Lower keys for commands not operating on all the marked files |
| 767 | (define-key dired-mode-map "c" 'dired-change-marks) | 767 | (define-key map "c" 'dired-change-marks) |
| 768 | (define-key dired-mode-map "d" 'dired-flag-file-deletion) | 768 | (define-key map "d" 'dired-flag-file-deletion) |
| 769 | (define-key dired-mode-map "e" 'dired-find-file) | 769 | (define-key map "e" 'dired-find-file) |
| 770 | (define-key dired-mode-map "f" 'dired-find-file) | 770 | (define-key map "f" 'dired-find-file) |
| 771 | (define-key dired-mode-map "\C-m" 'dired-advertised-find-file) | 771 | (define-key map "\C-m" 'dired-advertised-find-file) |
| 772 | (define-key dired-mode-map "g" 'revert-buffer) | 772 | (define-key map "g" 'revert-buffer) |
| 773 | (define-key dired-mode-map "h" 'describe-mode) | 773 | (define-key map "h" 'describe-mode) |
| 774 | (define-key dired-mode-map "i" 'dired-maybe-insert-subdir) | 774 | (define-key map "i" 'dired-maybe-insert-subdir) |
| 775 | (define-key dired-mode-map "k" 'dired-do-kill-lines) | 775 | (define-key map "k" 'dired-do-kill-lines) |
| 776 | (define-key dired-mode-map "l" 'dired-do-redisplay) | 776 | (define-key map "l" 'dired-do-redisplay) |
| 777 | (define-key dired-mode-map "m" 'dired-mark) | 777 | (define-key map "m" 'dired-mark) |
| 778 | (define-key dired-mode-map "n" 'dired-next-line) | 778 | (define-key map "n" 'dired-next-line) |
| 779 | (define-key dired-mode-map "o" 'dired-find-file-other-window) | 779 | (define-key map "o" 'dired-find-file-other-window) |
| 780 | (define-key dired-mode-map "\C-o" 'dired-display-file) | 780 | (define-key map "\C-o" 'dired-display-file) |
| 781 | (define-key dired-mode-map "p" 'dired-previous-line) | 781 | (define-key map "p" 'dired-previous-line) |
| 782 | (define-key dired-mode-map "q" 'dired-quit) | 782 | (define-key map "q" 'dired-quit) |
| 783 | (define-key dired-mode-map "s" 'dired-sort-toggle-or-edit) | 783 | (define-key map "s" 'dired-sort-toggle-or-edit) |
| 784 | (define-key dired-mode-map "u" 'dired-unmark) | 784 | (define-key map "u" 'dired-unmark) |
| 785 | (define-key dired-mode-map "v" 'dired-view-file) | 785 | (define-key map "v" 'dired-view-file) |
| 786 | (define-key dired-mode-map "x" 'dired-do-flagged-delete) | 786 | (define-key map "x" 'dired-do-flagged-delete) |
| 787 | (define-key dired-mode-map "+" 'dired-create-directory) | 787 | (define-key map "+" 'dired-create-directory) |
| 788 | ;; moving | 788 | ;; moving |
| 789 | (define-key dired-mode-map "<" 'dired-prev-dirline) | 789 | (define-key map "<" 'dired-prev-dirline) |
| 790 | (define-key dired-mode-map ">" 'dired-next-dirline) | 790 | (define-key map ">" 'dired-next-dirline) |
| 791 | (define-key dired-mode-map "^" 'dired-up-directory) | 791 | (define-key map "^" 'dired-up-directory) |
| 792 | (define-key dired-mode-map " " 'dired-next-line) | 792 | (define-key map " " 'dired-next-line) |
| 793 | (define-key dired-mode-map "\C-n" 'dired-next-line) | 793 | (define-key map "\C-n" 'dired-next-line) |
| 794 | (define-key dired-mode-map "\C-p" 'dired-previous-line) | 794 | (define-key map "\C-p" 'dired-previous-line) |
| 795 | (define-key dired-mode-map [down] 'dired-next-line) | 795 | (define-key map [down] 'dired-next-line) |
| 796 | (define-key dired-mode-map [up] 'dired-previous-line) | 796 | (define-key map [up] 'dired-previous-line) |
| 797 | ;; hiding | 797 | ;; hiding |
| 798 | (define-key dired-mode-map "$" 'dired-hide-subdir) | 798 | (define-key map "$" 'dired-hide-subdir) |
| 799 | (define-key dired-mode-map "\M-$" 'dired-hide-all) | 799 | (define-key map "\M-$" 'dired-hide-all) |
| 800 | ;; misc | 800 | ;; misc |
| 801 | (define-key dired-mode-map "?" 'dired-summary) | 801 | (define-key map "?" 'dired-summary) |
| 802 | (define-key dired-mode-map "\177" 'dired-unmark-backward) | 802 | (define-key map "\177" 'dired-unmark-backward) |
| 803 | (define-key dired-mode-map "\C-_" 'dired-undo) | 803 | (define-key map "\C-_" 'dired-undo) |
| 804 | (define-key dired-mode-map "\C-xu" 'dired-undo) | 804 | (define-key map "\C-xu" 'dired-undo) |
| 805 | ) | 805 | |
| 806 | 806 | ;; Make menu bar items. | |
| 807 | ;; Make menu bar items. | 807 | |
| 808 | 808 | ;; Get rid of the Edit menu bar item to save space. | |
| 809 | ;; Get rid of the Edit menu bar item to save space. | 809 | (define-key map [menu-bar edit] 'undefined) |
| 810 | (define-key dired-mode-map [menu-bar edit] 'undefined) | 810 | |
| 811 | 811 | (define-key map [menu-bar subdir] | |
| 812 | (define-key dired-mode-map [menu-bar subdir] | 812 | (cons "Subdir" (make-sparse-keymap "Subdir"))) |
| 813 | (cons "Subdir" (make-sparse-keymap "Subdir"))) | 813 | |
| 814 | 814 | (define-key map [menu-bar subdir hide-all] | |
| 815 | (define-key dired-mode-map [menu-bar subdir hide-all] | 815 | '("Hide All" . dired-hide-all)) |
| 816 | '("Hide All" . dired-hide-all)) | 816 | (define-key map [menu-bar subdir hide-subdir] |
| 817 | (define-key dired-mode-map [menu-bar subdir hide-subdir] | 817 | '("Hide Subdir" . dired-hide-subdir)) |
| 818 | '("Hide Subdir" . dired-hide-subdir)) | 818 | (define-key map [menu-bar subdir tree-down] |
| 819 | (define-key dired-mode-map [menu-bar subdir tree-down] | 819 | '("Tree Down" . dired-tree-down)) |
| 820 | '("Tree Down" . dired-tree-down)) | 820 | (define-key map [menu-bar subdir tree-up] |
| 821 | (define-key dired-mode-map [menu-bar subdir tree-up] | 821 | '("Tree Up" . dired-tree-up)) |
| 822 | '("Tree Up" . dired-tree-up)) | 822 | (define-key map [menu-bar subdir up] |
| 823 | (define-key dired-mode-map [menu-bar subdir up] | 823 | '("Up Directory" . dired-up-directory)) |
| 824 | '("Up Directory" . dired-up-directory)) | 824 | (define-key map [menu-bar subdir prev-subdir] |
| 825 | (define-key dired-mode-map [menu-bar subdir prev-subdir] | 825 | '("Prev Subdir" . dired-prev-subdir)) |
| 826 | '("Prev Subdir" . dired-prev-subdir)) | 826 | (define-key map [menu-bar subdir next-subdir] |
| 827 | (define-key dired-mode-map [menu-bar subdir next-subdir] | 827 | '("Next Subdir" . dired-next-subdir)) |
| 828 | '("Next Subdir" . dired-next-subdir)) | 828 | (define-key map [menu-bar subdir prev-dirline] |
| 829 | (define-key dired-mode-map [menu-bar subdir prev-dirline] | 829 | '("Prev Dirline" . dired-prev-dirline)) |
| 830 | '("Prev Dirline" . dired-prev-dirline)) | 830 | (define-key map [menu-bar subdir next-dirline] |
| 831 | (define-key dired-mode-map [menu-bar subdir next-dirline] | 831 | '("Next Dirline" . dired-next-dirline)) |
| 832 | '("Next Dirline" . dired-next-dirline)) | 832 | (define-key map [menu-bar subdir insert] |
| 833 | (define-key dired-mode-map [menu-bar subdir insert] | 833 | '("Insert This Subdir" . dired-maybe-insert-subdir)) |
| 834 | '("Insert This Subdir" . dired-maybe-insert-subdir)) | 834 | |
| 835 | 835 | (define-key map [menu-bar immediate] | |
| 836 | (define-key dired-mode-map [menu-bar immediate] | 836 | (cons "Immediate" (make-sparse-keymap "Immediate"))) |
| 837 | (cons "Immediate" (make-sparse-keymap "Immediate"))) | 837 | |
| 838 | 838 | (define-key map [menu-bar immediate backup-diff] | |
| 839 | (define-key dired-mode-map [menu-bar immediate backup-diff] | 839 | '("Compare with Backup" . dired-backup-diff)) |
| 840 | '("Compare with Backup" . dired-backup-diff)) | 840 | (define-key map [menu-bar immediate diff] |
| 841 | (define-key dired-mode-map [menu-bar immediate diff] | 841 | '("Diff" . dired-diff)) |
| 842 | '("Diff" . dired-diff)) | 842 | (define-key map [menu-bar immediate view] |
| 843 | (define-key dired-mode-map [menu-bar immediate view] | 843 | '("View This File" . dired-view-file)) |
| 844 | '("View This File" . dired-view-file)) | 844 | (define-key map [menu-bar immediate display] |
| 845 | (define-key dired-mode-map [menu-bar immediate display] | 845 | '("Display in Other Window" . dired-display-file)) |
| 846 | '("Display in Other Window" . dired-display-file)) | 846 | (define-key map [menu-bar immediate find-file-other-window] |
| 847 | (define-key dired-mode-map [menu-bar immediate find-file-other-window] | 847 | '("Find in Other Window" . dired-find-file-other-window)) |
| 848 | '("Find in Other Window" . dired-find-file-other-window)) | 848 | (define-key map [menu-bar immediate find-file] |
| 849 | (define-key dired-mode-map [menu-bar immediate find-file] | 849 | '("Find This File" . dired-find-file)) |
| 850 | '("Find This File" . dired-find-file)) | 850 | (define-key map [menu-bar immediate create-directory] |
| 851 | (define-key dired-mode-map [menu-bar immediate create-directory] | 851 | '("Create Directory..." . dired-create-directory)) |
| 852 | '("Create Directory..." . dired-create-directory)) | 852 | |
| 853 | 853 | (define-key map [menu-bar regexp] | |
| 854 | (define-key dired-mode-map [menu-bar regexp] | 854 | (cons "Regexp" (make-sparse-keymap "Regexp"))) |
| 855 | (cons "Regexp" (make-sparse-keymap "Regexp"))) | 855 | |
| 856 | 856 | (define-key map [menu-bar regexp downcase] | |
| 857 | (define-key dired-mode-map [menu-bar regexp downcase] | 857 | '("Downcase" . dired-downcase)) |
| 858 | '("Downcase" . dired-downcase)) | 858 | (define-key map [menu-bar regexp upcase] |
| 859 | (define-key dired-mode-map [menu-bar regexp upcase] | 859 | '("Upcase" . dired-upcase)) |
| 860 | '("Upcase" . dired-upcase)) | 860 | (define-key map [menu-bar regexp hardlink] |
| 861 | (define-key dired-mode-map [menu-bar regexp hardlink] | 861 | '("Hardlink..." . dired-do-hardlink-regexp)) |
| 862 | '("Hardlink..." . dired-do-hardlink-regexp)) | 862 | (define-key map [menu-bar regexp symlink] |
| 863 | (define-key dired-mode-map [menu-bar regexp symlink] | 863 | '("Symlink..." . dired-do-symlink-regexp)) |
| 864 | '("Symlink..." . dired-do-symlink-regexp)) | 864 | (define-key map [menu-bar regexp rename] |
| 865 | (define-key dired-mode-map [menu-bar regexp rename] | 865 | '("Rename..." . dired-do-rename-regexp)) |
| 866 | '("Rename..." . dired-do-rename-regexp)) | 866 | (define-key map [menu-bar regexp copy] |
| 867 | (define-key dired-mode-map [menu-bar regexp copy] | 867 | '("Copy..." . dired-do-copy-regexp)) |
| 868 | '("Copy..." . dired-do-copy-regexp)) | 868 | (define-key map [menu-bar regexp flag] |
| 869 | (define-key dired-mode-map [menu-bar regexp flag] | 869 | '("Flag..." . dired-flag-files-regexp)) |
| 870 | '("Flag..." . dired-flag-files-regexp)) | 870 | (define-key map [menu-bar regexp mark] |
| 871 | (define-key dired-mode-map [menu-bar regexp mark] | 871 | '("Mark..." . dired-mark-files-regexp)) |
| 872 | '("Mark..." . dired-mark-files-regexp)) | 872 | |
| 873 | 873 | (define-key map [menu-bar mark] | |
| 874 | (define-key dired-mode-map [menu-bar mark] | 874 | (cons "Mark" (make-sparse-keymap "Mark"))) |
| 875 | (cons "Mark" (make-sparse-keymap "Mark"))) | 875 | |
| 876 | 876 | (define-key map [menu-bar mark prev] | |
| 877 | (define-key dired-mode-map [menu-bar mark prev] | 877 | '("Previous Marked" . dired-prev-marked-file)) |
| 878 | '("Previous Marked" . dired-prev-marked-file)) | 878 | (define-key map [menu-bar mark next] |
| 879 | (define-key dired-mode-map [menu-bar mark next] | 879 | '("Next Marked" . dired-next-marked-file)) |
| 880 | '("Next Marked" . dired-next-marked-file)) | 880 | (define-key map [menu-bar mark marks] |
| 881 | (define-key dired-mode-map [menu-bar mark marks] | 881 | '("Change Marks..." . dired-change-marks)) |
| 882 | '("Change Marks..." . dired-change-marks)) | 882 | (define-key map [menu-bar mark unmark-all] |
| 883 | (define-key dired-mode-map [menu-bar mark unmark-all] | 883 | '("Unmark All" . dired-unmark-all-files-no-query)) |
| 884 | '("Unmark All" . dired-unmark-all-files-no-query)) | 884 | (define-key map [menu-bar mark symlinks] |
| 885 | (define-key dired-mode-map [menu-bar mark symlinks] | 885 | '("Mark Symlinks" . dired-mark-symlinks)) |
| 886 | '("Mark Symlinks" . dired-mark-symlinks)) | 886 | (define-key map [menu-bar mark directories] |
| 887 | (define-key dired-mode-map [menu-bar mark directories] | 887 | '("Mark Directories" . dired-mark-directories)) |
| 888 | '("Mark Directories" . dired-mark-directories)) | 888 | (define-key map [menu-bar mark directory] |
| 889 | (define-key dired-mode-map [menu-bar mark directory] | 889 | '("Mark Old Backups" . dired-clean-directory)) |
| 890 | '("Mark Old Backups" . dired-clean-directory)) | 890 | (define-key map [menu-bar mark executables] |
| 891 | (define-key dired-mode-map [menu-bar mark executables] | 891 | '("Mark Executables" . dired-mark-executables)) |
| 892 | '("Mark Executables" . dired-mark-executables)) | 892 | (define-key map [menu-bar mark backup-files] |
| 893 | (define-key dired-mode-map [menu-bar mark backup-files] | 893 | '("Flag Backup Files" . dired-flag-backup-files)) |
| 894 | '("Flag Backup Files" . dired-flag-backup-files)) | 894 | (define-key map [menu-bar mark auto-save-files] |
| 895 | (define-key dired-mode-map [menu-bar mark auto-save-files] | 895 | '("Flag Auto-save Files" . dired-flag-auto-save-files)) |
| 896 | '("Flag Auto-save Files" . dired-flag-auto-save-files)) | 896 | (define-key map [menu-bar mark deletion] |
| 897 | (define-key dired-mode-map [menu-bar mark deletion] | 897 | '("Flag" . dired-flag-file-deletion)) |
| 898 | '("Flag" . dired-flag-file-deletion)) | 898 | (define-key map [menu-bar mark unmark] |
| 899 | (define-key dired-mode-map [menu-bar mark unmark] | 899 | '("Unmark" . dired-unmark)) |
| 900 | '("Unmark" . dired-unmark)) | 900 | (define-key map [menu-bar mark mark] |
| 901 | (define-key dired-mode-map [menu-bar mark mark] | 901 | '("Mark" . dired-mark)) |
| 902 | '("Mark" . dired-mark)) | 902 | |
| 903 | 903 | (define-key map [menu-bar operate] | |
| 904 | (define-key dired-mode-map [menu-bar operate] | 904 | (cons "Operate" (make-sparse-keymap "Operate"))) |
| 905 | (cons "Operate" (make-sparse-keymap "Operate"))) | 905 | |
| 906 | 906 | (define-key map [menu-bar operate query-replace] | |
| 907 | (define-key dired-mode-map [menu-bar operate query-replace] | 907 | '("Query Replace in Files..." . dired-do-query-replace)) |
| 908 | '("Query Replace in Files..." . dired-do-query-replace)) | 908 | (define-key map [menu-bar operate search] |
| 909 | (define-key dired-mode-map [menu-bar operate search] | 909 | '("Search Files..." . dired-do-search)) |
| 910 | '("Search Files..." . dired-do-search)) | 910 | (define-key map [menu-bar operate chown] |
| 911 | (define-key dired-mode-map [menu-bar operate chown] | 911 | '("Change Owner..." . dired-do-chown)) |
| 912 | '("Change Owner..." . dired-do-chown)) | 912 | (define-key map [menu-bar operate chgrp] |
| 913 | (define-key dired-mode-map [menu-bar operate chgrp] | 913 | '("Change Group..." . dired-do-chgrp)) |
| 914 | '("Change Group..." . dired-do-chgrp)) | 914 | (define-key map [menu-bar operate chmod] |
| 915 | (define-key dired-mode-map [menu-bar operate chmod] | 915 | '("Change Mode..." . dired-do-chmod)) |
| 916 | '("Change Mode..." . dired-do-chmod)) | 916 | (define-key map [menu-bar operate load] |
| 917 | (define-key dired-mode-map [menu-bar operate load] | 917 | '("Load" . dired-do-load)) |
| 918 | '("Load" . dired-do-load)) | 918 | (define-key map [menu-bar operate compile] |
| 919 | (define-key dired-mode-map [menu-bar operate compile] | 919 | '("Byte-compile" . dired-do-byte-compile)) |
| 920 | '("Byte-compile" . dired-do-byte-compile)) | 920 | (define-key map [menu-bar operate compress] |
| 921 | (define-key dired-mode-map [menu-bar operate compress] | 921 | '("Compress" . dired-do-compress)) |
| 922 | '("Compress" . dired-do-compress)) | 922 | (define-key map [menu-bar operate print] |
| 923 | (define-key dired-mode-map [menu-bar operate print] | 923 | '("Print" . dired-do-print)) |
| 924 | '("Print" . dired-do-print)) | 924 | (define-key map [menu-bar operate hardlink] |
| 925 | (define-key dired-mode-map [menu-bar operate hardlink] | 925 | '("Hardlink to..." . dired-do-hardlink)) |
| 926 | '("Hardlink to..." . dired-do-hardlink)) | 926 | (define-key map [menu-bar operate symlink] |
| 927 | (define-key dired-mode-map [menu-bar operate symlink] | 927 | '("Symlink to..." . dired-do-symlink)) |
| 928 | '("Symlink to..." . dired-do-symlink)) | 928 | (define-key map [menu-bar operate command] |
| 929 | (define-key dired-mode-map [menu-bar operate command] | 929 | '("Shell Command..." . dired-do-shell-command)) |
| 930 | '("Shell Command..." . dired-do-shell-command)) | 930 | (define-key map [menu-bar operate delete] |
| 931 | (define-key dired-mode-map [menu-bar operate delete] | 931 | '("Delete" . dired-do-delete)) |
| 932 | '("Delete" . dired-do-delete)) | 932 | (define-key map [menu-bar operate rename] |
| 933 | (define-key dired-mode-map [menu-bar operate rename] | 933 | '("Rename to..." . dired-do-rename)) |
| 934 | '("Rename to..." . dired-do-rename)) | 934 | (define-key map [menu-bar operate copy] |
| 935 | (define-key dired-mode-map [menu-bar operate copy] | 935 | '("Copy to..." . dired-do-copy)) |
| 936 | '("Copy to..." . dired-do-copy)) | 936 | |
| 937 | (setq dired-mode-map map))) | ||
| 937 | 938 | ||
| 938 | ;; Dired mode is suitable only for specially formatted data. | 939 | ;; Dired mode is suitable only for specially formatted data. |
| 939 | (put 'dired-mode 'mode-class 'special) | 940 | (put 'dired-mode 'mode-class 'special) |