/[emacs]/emacs/lisp/dired.el
ViewVC logotype

Diff of /emacs/lisp/dired.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.230.2.13 by miles, Tue Jul 6 09:47:52 2004 UTC revision 1.230.2.14 by miles, Tue Jul 6 10:00:03 2004 UTC
# Line 970  Do so according to the former subdir ali Line 970  Do so according to the former subdir ali
970            (condition-case ()            (condition-case ()
971                (progn                (progn
972                  (dired-uncache dir)                  (dired-uncache dir)
973                  (dired-insert-subdir dir)                  (dired-insert-subdir dir))
                 (let ((switches (cdr (assoc-string dir dired-switches-alist))))  
                   (and switches  
                        (string-match "R" switches)  
                        (dolist (cur-ass (copy-sequence old-subdir-alist))  
                          (when (dired-in-this-tree (car cur-ass) dir)  
                            (setq old-subdir-alist  
                                  (delete cur-ass old-subdir-alist)))))))  
974              (error nil))))))              (error nil))))))
975    
976  (defun dired-uncache (dir)  (defun dired-uncache (dir)
# Line 3036  To be called first in body of `dired-sor Line 3029  To be called first in body of `dired-sor
3029              ;; listing:              ;; listing:
3030              (list (car (reverse dired-subdir-alist))))))))              (list (car (reverse dired-subdir-alist))))))))
3031    
 ;; To make this file smaller, the less common commands  
 ;; go in a separate file.  But autoload them here  
 ;; to make the separation invisible.  
   
 (autoload 'dired-diff "dired-aux"  
   "Compare file at point with file FILE using `diff'.  
 FILE defaults to the file at the mark.  (That's the mark set by  
 \\[set-mark-command], not by Dired's \\[dired-mark] command.)  
 The prompted-for file is the first file given to `diff'."  
   t)  
   
 (autoload 'dired-backup-diff "dired-aux"  
   "Diff this file with its backup file or vice versa.  
 Uses the latest backup, if there are several numerical backups.  
 If this file is a backup, diff it with its original.  
 The backup file is the first file given to `diff'."  
   t)  
   
 (autoload 'dired-clean-directory "dired-aux"  
   "Flag numerical backups for deletion.  
 Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.  
 Positive prefix arg KEEP overrides `dired-kept-versions';  
 Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive.  
   
 To clear the flags on these files, you can use \\[dired-flag-backup-files]  
 with a prefix argument."  
   t)  
   
 (autoload 'dired-do-chmod "dired-aux"  
   "Change the mode of the marked (or next ARG) files.  
 This calls chmod, thus symbolic modes like `g+w' are allowed."  
   t)  
   
 (autoload 'dired-do-chgrp "dired-aux"  
   "Change the group of the marked (or next ARG) files."  
   t)  
   
 (autoload 'dired-do-chown "dired-aux"  
   "Change the owner of the marked (or next ARG) files."  
   t)  
   
 (autoload 'dired-do-touch "dired-aux"  
   "Change the timestamp of the marked (or next ARG) files."  
   t)  
   
 (autoload 'dired-do-print "dired-aux"  
   "Print the marked (or next ARG) files.  
 Uses the shell command coming from variables `lpr-command' and  
 `lpr-switches' as default."  
   t)  
   
 (autoload 'dired-do-shell-command "dired-aux"  
   "Run a shell command COMMAND on the marked files.  
 If no files are marked or a specific numeric prefix arg is given,  
 the next ARG files are used.  Just \\[universal-argument] means the current file.  
 The prompt mentions the file(s) or the marker, as appropriate.  
   
 If there is a `*' in COMMAND, surrounded by whitespace, this runs  
 COMMAND just once with the entire file list substituted there.  
   
 If there is no `*', but there is a `?' in COMMAND, surrounded by  
 whitespace, this runs COMMAND on each file individually with the  
 file name substituted for `?'.  
   
 Otherwise, this runs COMMAND on each file individually with the  
 file name added at the end of COMMAND (separated by a space).  
   
 `*' and `?' when not surrounded by whitespace have no special  
 significance for `dired-do-shell-command', and are passed through  
 normally to the shell, but you must confirm first.  To pass `*' by  
 itself to the shell as a wildcard, type `*\"\"'.  
   
 If COMMAND produces output, it goes to a separate buffer.  
   
 This feature does not try to redisplay Dired buffers afterward, as  
 there's no telling what files COMMAND may have changed.  
 Type \\[dired-do-redisplay] to redisplay the marked files.  
   
 When COMMAND runs, its working directory is the top-level directory of  
 the Dired buffer, so output files usually are created there instead of  
 in a subdir.  
   
 In a noninteractive call (from Lisp code), you must specify  
 the list of file names explicitly with the FILE-LIST argument."  
   t)  
   
 (autoload 'dired-do-kill-lines "dired-aux"  
   "Kill all marked lines (not the files).  
 With a prefix arg, kill all lines not marked or flagged."  
   t)  
   
 (autoload 'dired-do-compress "dired-aux"  
   "Compress or uncompress marked (or next ARG) files."  
   t)  
   
 (autoload 'dired-do-byte-compile "dired-aux"  
   "Byte compile marked (or next ARG) Emacs Lisp files."  
   t)  
   
 (autoload 'dired-do-load "dired-aux"  
   "Load the marked (or next ARG) Emacs Lisp files."  
   t)  
   
 (autoload 'dired-do-redisplay "dired-aux"  
   "Redisplay all marked (or next ARG) files.  
 If on a subdir line, redisplay that subdirectory.  In that case,  
 a prefix arg lets you edit the `ls' switches used for the new listing."  
   t)  
   
 (autoload 'dired-create-directory "dired-aux"  
   "Create a directory called DIRECTORY."  
   t)  
   
 (autoload 'dired-do-copy "dired-aux"  
   "Copy all marked (or next ARG) files, or copy the current file.  
 Thus, a zero prefix argument copies nothing.  But it toggles the  
 variable `dired-copy-preserve-time' (which see)."  
   t)  
   
 (autoload 'dired-do-symlink "dired-aux"  
   "Make symbolic links to current file or all marked (or next ARG) files.  
 When operating on just the current file, you specify the new name.  
 When operating on multiple or marked files, you specify a directory  
 and new symbolic links are made in that directory  
 with the same names that the files currently have."  
   t)  
   
 (autoload 'dired-do-hardlink "dired-aux"  
   "Add names (hard links) current file or all marked (or next ARG) files.  
 When operating on just the current file, you specify the new name.  
 When operating on multiple or marked files, you specify a directory  
 and new hard links are made in that directory  
 with the same names that the files currently have."  
   t)  
   
 (autoload 'dired-do-rename "dired-aux"  
   "Rename current file or all marked (or next ARG) files.  
 When renaming just the current file, you specify the new name.  
 When renaming multiple or marked files, you specify a directory."  
   t)  
   
 (autoload 'dired-do-rename-regexp "dired-aux"  
   "Rename marked files containing REGEXP to NEWNAME.  
 As each match is found, the user must type a character saying  
   what to do with it.  For directions, type \\[help-command] at that time.  
 NEWNAME may contain \\=\\<n> or \\& as in `query-replace-regexp'.  
 REGEXP defaults to the last regexp used.  
 With a zero prefix arg, renaming by regexp affects the full file name;  
 usually only the non-directory part of file names is used and changed."  
   t)  
   
 (autoload 'dired-do-copy-regexp "dired-aux"  
   "Copy all marked files containing REGEXP to NEWNAME.  
 See function `dired-do-rename-regexp' for more info."  
   t)  
   
 (autoload 'dired-do-hardlink-regexp "dired-aux"  
   "Hardlink all marked files containing REGEXP to NEWNAME.  
 See function `dired-do-rename-regexp' for more info."  
   t)  
   
 (autoload 'dired-do-symlink-regexp "dired-aux"  
   "Symlink all marked files containing REGEXP to NEWNAME.  
 See function `dired-do-rename-regexp' for more info."  
   t)  
   
 (autoload 'dired-upcase "dired-aux"  
   "Rename all marked (or next ARG) files to upper case."  
   t)  
   
 (autoload 'dired-downcase "dired-aux"  
   "Rename all marked (or next ARG) files to lower case."  
   t)  
   
 (autoload 'dired-maybe-insert-subdir "dired-aux"  
   "Insert this subdirectory into the same dired buffer.  
 If it is already present, just move to it (type \\[dired-do-redisplay] to refresh),  
   else inserts it at its natural place (as `ls -lR' would have done).  
 With a prefix arg, you may edit the ls switches used for this listing.  
   You can add `R' to the switches to expand the whole tree starting at  
   this subdirectory.  
 This function takes some pains to conform to `ls -lR' output."  
   t)  
   
 (autoload 'dired-next-subdir "dired-aux"  
   "Go to next subdirectory, regardless of level."  
   t)  
   
 (autoload 'dired-prev-subdir "dired-aux"  
   "Go to previous subdirectory, regardless of level.  
 When called interactively and not on a subdir line, go to this subdir's line."  
   t)  
   
 (autoload 'dired-goto-subdir "dired-aux"  
   "Go to end of header line of DIR in this dired buffer.  
 Return value of point on success, otherwise return nil.  
 The next char is either \\n, or \\r if DIR is hidden."  
   t)  
   
 (autoload 'dired-mark-subdir-files "dired-aux"  
   "Mark all files except `.' and `..'."  
   t)  
   
 (autoload 'dired-kill-subdir "dired-aux"  
   "Remove all lines of current subdirectory.  
 Lower levels are unaffected."  
   t)  
   
 (autoload 'dired-tree-up "dired-aux"  
   "Go up ARG levels in the dired tree."  
   t)  
   
 (autoload 'dired-tree-down "dired-aux"  
   "Go down in the dired tree."  
   t)  
   
 (autoload 'dired-hide-subdir "dired-aux"  
   "Hide or unhide the current subdirectory and move to next directory.  
 Optional prefix arg is a repeat factor.  
 Use \\[dired-hide-all] to (un)hide all directories."  
   t)  
   
 (autoload 'dired-hide-all "dired-aux"  
   "Hide all subdirectories, leaving only their header lines.  
 If there is already something hidden, make everything visible again.  
 Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."  
   t)  
   
 (autoload 'dired-show-file-type "dired-aux"  
   "Print the type of FILE, according to the `file' command.  
 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is  
 true then the type of the file linked to by FILE is printed instead."  
   t)  
   
 (autoload 'dired-run-shell-command "dired-aux")  
   
 (autoload 'dired-query "dired-aux")  
   
3032    
3033  ;;;;  Drag and drop support  ;;;;  Drag and drop support
3034    

Legend:
Removed from v.1.230.2.13  
changed lines
  Added in v.1.230.2.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26