/[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.252 by kfstorm, Tue Jan 14 23:10:14 2003 UTC revision 1.253 by lektu, Fri Jan 31 15:14:50 2003 UTC
# Line 65  some of the `ls' switches are not suppor Line 65  some of the `ls' switches are not suppor
65    
66  ;;;###autoload  ;;;###autoload
67  (defvar dired-chown-program  (defvar dired-chown-program
68    (if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux))    (if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux cygwin))
69        "chown"        "chown"
70      (if (file-exists-p "/usr/sbin/chown")      (if (file-exists-p "/usr/sbin/chown")
71          "/usr/sbin/chown"          "/usr/sbin/chown"
# Line 299  Subexpression 2 must end right before th Line 299  Subexpression 2 must end right before th
299           '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))           '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face)))
300     ;;     ;;
301     ;; Symbolic links.     ;; Symbolic links.
302     (list dired-re-sym     (list dired-re-sym
303           '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))           '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face)))
304     ;;     ;;
305     ;; Files suffixed with `completion-ignored-extensions'.     ;; Files suffixed with `completion-ignored-extensions'.
# Line 530  If DIRNAME is already in a dired buffer, Line 530  If DIRNAME is already in a dired buffer,
530            (setq buffer (create-file-buffer (directory-file-name dirname)))))            (setq buffer (create-file-buffer (directory-file-name dirname)))))
531      (set-buffer buffer)      (set-buffer buffer)
532      (if (not new-buffer-p)     ; existing buffer ...      (if (not new-buffer-p)     ; existing buffer ...
533          (cond (switches        ; ... but new switches              (cond (switches        ; ... but new switches
534                 ;; file list may have changed                 ;; file list may have changed
535                 (setq dired-directory dir-or-list)                 (setq dired-directory dir-or-list)
536                 ;; this calls dired-revert                 ;; this calls dired-revert
537                 (dired-sort-other switches))                   (dired-sort-other switches))
538                ;; If directory has changed on disk, offer to revert.                ;; If directory has changed on disk, offer to revert.
539                ((if (let ((attributes (file-attributes dirname))                ((if (let ((attributes (file-attributes dirname))
540                           (modtime (visited-file-modtime)))                           (modtime (visited-file-modtime)))
# Line 1769  You can then feed the file name(s) to ot Line 1769  You can then feed the file name(s) to ot
1769               (substring pattern matched-in-pattern))               (substring pattern matched-in-pattern))
1770              "\\'")))              "\\'")))
1771    
1772                    
1773    
1774  (defun dired-advertise ()  (defun dired-advertise ()
1775    ;;"Advertise in variable `dired-buffers' that we dired `default-directory'."    ;;"Advertise in variable `dired-buffers' that we dired `default-directory'."
# Line 2053  Anything else means ask for each directo Line 2053  Anything else means ask for each directo
2053                   (const :tag "Confirm for each top directory only" top))                   (const :tag "Confirm for each top directory only" top))
2054    :group 'dired)    :group 'dired)
2055    
2056  ;; Match anything but `.' and `..'.  ;; Match anything but `.' and `..'.
2057  (defvar dired-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")  (defvar dired-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")
2058    
2059  ;; Delete file, possibly delete a directory and all its files.  ;; Delete file, possibly delete a directory and all its files.
# Line 2174  if there are no flagged files." Line 2174  if there are no flagged files."
2174              (setq success-list (cons (buffer-name buf) success-list)))))              (setq success-list (cons (buffer-name buf) success-list)))))
2175      success-list))      success-list))
2176    
2177  ;; Delete the entry for FILE from  ;; Delete the entry for FILE from
2178  (defun dired-delete-entry (file)  (defun dired-delete-entry (file)
2179    (save-excursion    (save-excursion
2180      (and (dired-goto-file file)      (and (dired-goto-file file)
# Line 2572  A prefix argument says to unflag those f Line 2572  A prefix argument says to unflag those f
2572  (defvar dired-garbage-files-regexp  (defvar dired-garbage-files-regexp
2573    (concat (regexp-opt    (concat (regexp-opt
2574             '(".log" ".toc" ".dvi" ".bak" ".orig" ".rej" ".aux"))             '(".log" ".toc" ".dvi" ".bak" ".orig" ".rej" ".aux"))
2575            "\\'")            "\\'")
2576    "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.")    "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.")
2577    
2578  (defun dired-flag-garbage-files ()  (defun dired-flag-garbage-files ()
# Line 2632  OLD and NEW are both characters used to Line 2632  OLD and NEW are both characters used to
2632    
2633  (defun dired-unmark-all-files (mark &optional arg)  (defun dired-unmark-all-files (mark &optional arg)
2634    "Remove a specific mark (or any mark) from every file.    "Remove a specific mark (or any mark) from every file.
2635  After this command, type the mark character to remove,  After this command, type the mark character to remove,
2636  or type RET to remove all marks.  or type RET to remove all marks.
2637  With prefix arg, query for each marked file.  With prefix arg, query for each marked file.
2638  Type \\[help-command] at that time for help."  Type \\[help-command] at that time for help."
# Line 2683  Thus, use \\[backward-page] to find the Line 2683  Thus, use \\[backward-page] to find the
2683    ;; Log a message or the contents of a buffer.    ;; Log a message or the contents of a buffer.
2684    ;; If LOG is a string and there are more args, it is formatted with    ;; If LOG is a string and there are more args, it is formatted with
2685    ;; those ARGS.  Usually the LOG string ends with a \n.    ;; those ARGS.  Usually the LOG string ends with a \n.
2686    ;; End each bunch of errors with (dired-log t):    ;; End each bunch of errors with (dired-log t):
2687    ;; this inserts the current time and buffer at the start of the page,    ;; this inserts the current time and buffer at the start of the page,
2688    ;; and \f (formfeed) at the end.    ;; and \f (formfeed) at the end.
2689    (let ((obuf (current-buffer)))    (let ((obuf (current-buffer)))
# Line 3076  Use \\[dired-hide-subdir] to (un)hide a Line 3076  Use \\[dired-hide-subdir] to (un)hide a
3076  (autoload 'dired-show-file-type "dired-aux"  (autoload 'dired-show-file-type "dired-aux"
3077    "Print the type of FILE, according to the `file' command.    "Print the type of FILE, according to the `file' command.
3078  If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is  If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
3079  true then the type of the file linked to by FILE is printed instead."  true then the type of the file linked to by FILE is printed instead."
3080    t)    t)
3081    
3082  (autoload 'dired-run-shell-command "dired-aux")  (autoload 'dired-run-shell-command "dired-aux")

Legend:
Removed from v.1.252  
changed lines
  Added in v.1.253

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