Mercurial > emacs

comparison lisp/dired.el @ 4169:45b07ea88511

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-unmark-all-files-no-query): New command. (dired-mode-map): Use that for the Unmark All item. Fix typo that made the Flag Backup Files item not show up.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 01:11:28 +0000
parents b62687587309
children 52d79980a2e3
comparison
equal deleted inserted replaced
4168:c720be6f3fae 4169:45b07ea88511
805 '("Previous Marked" . dired-prev-marked-file)) 805 '("Previous Marked" . dired-prev-marked-file))
806 (define-key dired-mode-map [menu-bar mark next] 806 (define-key dired-mode-map [menu-bar mark next]
807 '("Next Marked" . dired-next-marked-file)) 807 '("Next Marked" . dired-next-marked-file))
808 (define-key dired-mode-map [menu-bar mark marks] 808 (define-key dired-mode-map [menu-bar mark marks]
809 '("Change Marks..." . dired-change-marks)) 809 '("Change Marks..." . dired-change-marks))
810 (define-key dired-mode-map [menu-bar mark unmark-all]
811 '("Unmark All" . dired-unmark-all-files-no-query))
810 (define-key dired-mode-map [menu-bar mark symlinks] 812 (define-key dired-mode-map [menu-bar mark symlinks]
811 '("Mark Symlinks" . dired-mark-symlinks)) 813 '("Mark Symlinks" . dired-mark-symlinks))
812 (define-key dired-mode-map [menu-bar mark directories] 814 (define-key dired-mode-map [menu-bar mark directories]
813 '("Mark Directories" . dired-mark-directories)) 815 '("Mark Directories" . dired-mark-directories))
814 (define-key dired-mode-map [menu-bar mark directory] 816 (define-key dired-mode-map [menu-bar mark directory]
815 '("Mark Old Backups" . dired-clean-directory)) 817 '("Mark Old Backups" . dired-clean-directory))
816 (define-key dired-mode-map [menu-bar mark executables] 818 (define-key dired-mode-map [menu-bar mark executables]
817 '("Mark Executables" . dired-mark-executables)) 819 '("Mark Executables" . dired-mark-executables))
818 (define-key dired-mode-map [menu-bar mark unmark-all] 820 (define-key dired-mode-map [menu-bar mark backup-files]
819 '("Unmark All" . dired-unmark-all-files))
820 (define-key dired-mode-map [menu-bar mark files]
821 '("Flag Backup Files" . dired-flag-backup-files)) 821 '("Flag Backup Files" . dired-flag-backup-files))
822 (define-key dired-mode-map [menu-bar mark files] 822 (define-key dired-mode-map [menu-bar mark auto-save-files]
823 '("Flag Auto-save Files" . dired-flag-auto-save-files)) 823 '("Flag Auto-save Files" . dired-flag-auto-save-files))
824 (define-key dired-mode-map [menu-bar mark deletion] 824 (define-key dired-mode-map [menu-bar mark deletion]
825 '("Flag" . dired-flag-file-deletion)) 825 '("Flag" . dired-flag-file-deletion))
826 (define-key dired-mode-map [menu-bar mark unmark] 826 (define-key dired-mode-map [menu-bar mark unmark]
827 '("Unmark" . dired-unmark)) 827 '("Unmark" . dired-unmark))
1909 (goto-char (point-min)) 1909 (goto-char (point-min))
1910 (while (search-forward string nil t) 1910 (while (search-forward string nil t)
1911 (subst-char-in-region (match-beginning 0) 1911 (subst-char-in-region (match-beginning 0)
1912 (match-end 0) old new)))))) 1912 (match-end 0) old new))))))
1913 1913
1914 (defun dired-unmark-all-files-no-query ()
1915 "Remove all marks from all files in the Dired buffer."
1916 (interactive)
1917 (dired-unmark-all-files ?\r))
1918
1914 (defun dired-unmark-all-files (mark &optional arg) 1919 (defun dired-unmark-all-files (mark &optional arg)
1915 "Remove a specific mark (or any mark) from every file. 1920 "Remove a specific mark (or any mark) from every file.
1916 After this command, type the mark character to remove, 1921 After this command, type the mark character to remove,
1917 or type RET to remove all marks. 1922 or type RET to remove all marks.
1918 With prefix arg, query for each marked file. 1923 With prefix arg, query for each marked file.