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" |
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'. |
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))) |
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'." |
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. |
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) |
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 () |
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." |
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))) |
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") |