diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-05-16 10:51:25 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-05-16 10:51:25 +0000 |
| commit | 098bab7118316f57fedba6469d87ab81a4487c73 (patch) | |
| tree | ef49954a2ac3f4871a24e78ceba464fd395a8b0f | |
| parent | 2edf0b67d096ff196bcdcea7810d76b402a859a1 (diff) | |
| download | emacs-098bab7118316f57fedba6469d87ab81a4487c73.tar.gz | |
(dired-recursive-deletes, dired-recursive-copies): Doc fixes.
| -rw-r--r-- | lisp/dired.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index c618eec5159..4244954d467 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1360,10 +1360,10 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map [menu-bar regexp image-dired-mark-tagged-files] '(menu-item "Mark From Image Tag..." image-dired-mark-tagged-files - :help "Mark files whose image tags matches regexp")) - + :help "Mark files whose image tags matches regexp")) + (define-key map [menu-bar regexp dashes-1] - '("--")) + '("--")) (define-key map [menu-bar regexp downcase] '(menu-item "Downcase" dired-downcase @@ -1471,9 +1471,9 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." [menu-bar operate image-dired-display-thumbs] '(menu-item "Display Image-Dired" image-dired-display-thumbs :help "Display image-dired for current or marked image files")) - + (define-key map [menu-bar operate dashes-3] - '("--")) + '("--")) (define-key map [menu-bar operate query-replace] '(menu-item "Query Replace in Files..." dired-do-query-replace-regexp @@ -2364,7 +2364,7 @@ Optional argument means return a file name relative to `default-directory'." (defcustom dired-recursive-deletes nil ; Default only delete empty directories. "*Decide whether recursive deletes are allowed. -nil means no recursive deletes. +A value of nil means no recursive deletes. `always' means delete recursively without asking. This is DANGEROUS! `top' means ask for each directory at top level, but delete its subdirectories without asking. @@ -3101,7 +3101,7 @@ The idea is to set this buffer-locally in special dired buffers.") (when (eq major-mode 'dired-mode) (setq mode-name (let (case-fold-search) - (cond ((string-match + (cond ((string-match dired-sort-by-name-regexp dired-actual-switches) "Dired by name") ((string-match @@ -3208,7 +3208,7 @@ To be called first in body of `dired-sort-other', etc." (defcustom dired-recursive-copies nil "*Decide whether recursive copies are allowed. -nil means no recursive copies. +A value of nil means no recursive copies. `always' means copy recursively without asking. `top' means ask for each directory at top level. Anything else means ask for each directory." |