[Emacs-diffs] Changes to emacs/lisp/dired.el

[Richard M. Stallman]

Index: emacs/lisp/dired.el
diff -c emacs/lisp/dired.el:1.224 emacs/lisp/dired.el:1.225
*** emacs/lisp/dired.el:1.224   Thu Mar 21 04:35:35 2002
--- emacs/lisp/dired.el Thu Mar 28 13:32:59 2002
***************
*** 907,913 ****
      (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)
!     (define-key map "*t" 'dired-do-toggle)
      ;; Lower keys for commands not operating on all the marked files
      (define-key map "a" 'dired-find-alternate-file)
      (define-key map "d" 'dired-flag-file-deletion)
--- 907,913 ----
      (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)
!     (define-key map "*t" 'dired-toggle-marks)
      ;; Lower keys for commands not operating on all the marked files
      (define-key map "a" 'dired-find-alternate-file)
      (define-key map "d" 'dired-flag-file-deletion)
***************
*** 926,932 ****
      (define-key map "p" 'dired-previous-line)
      (define-key map "q" 'quit-window)
      (define-key map "s" 'dired-sort-toggle-or-edit)
!     (define-key map "t" 'dired-do-toggle)
      (define-key map "u" 'dired-unmark)
      (define-key map "v" 'dired-view-file)
      (define-key map "w" 'dired-copy-filename-as-kill)
--- 926,932 ----
      (define-key map "p" 'dired-previous-line)
      (define-key map "q" 'quit-window)
      (define-key map "s" 'dired-sort-toggle-or-edit)
!     (define-key map "t" 'dired-toggle-marks)
      (define-key map "u" 'dired-unmark)
      (define-key map "v" 'dired-view-file)
      (define-key map "w" 'dired-copy-filename-as-kill)
***************
*** 1107,1113 ****
        '(menu-item "Mark" dired-mark
                  :help "Mark current line's file for future operations"))
      (define-key map [menu-bar mark toggle-marks]
!       '(menu-item "Toggle Marks" dired-do-toggle
                  :help "Mark unmarked files, unmark marked ones"))
  
      (define-key map [menu-bar operate]
--- 1107,1113 ----
        '(menu-item "Mark" dired-mark
                  :help "Mark current line's file for future operations"))
      (define-key map [menu-bar mark toggle-marks]
!       '(menu-item "Toggle Marks" dired-toggle-marks
                  :help "Mark unmarked files, unmark marked ones"))
  
      (define-key map [menu-bar operate]
***************
*** 2359,2367 ****
    (interactive "p")
    (dired-unmark (- arg)))
  
! (defun dired-do-toggle ()
!   "Toggle marks.
! That is, currently marked files become unmarked and vice versa.
  Files marked with other flags (such as `D') are not affected.
  `.' and `..' are never toggled.
  As always, hidden subdirs are not affected."
--- 2359,2366 ----
    (interactive "p")
    (dired-unmark (- arg)))
  
! (defun dired-toggle-marks ()
!   "Toggle marks: marked files become unmarked, and vice versa.
  Files marked with other flags (such as `D') are not affected.
  `.' and `..' are never toggled.
  As always, hidden subdirs are not affected."