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

Diff of /emacs/lisp/dired-aux.el

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

revision 1.121 by teirllm, Wed Jun 9 00:25:30 2004 UTC revision 1.122 by teirllm, Wed Jun 9 01:04:28 2004 UTC
# Line 255  This calls chmod, thus symbolic modes li Line 255  This calls chmod, thus symbolic modes li
255        (error "chown not supported on this system"))        (error "chown not supported on this system"))
256    (dired-do-chxxx "Owner" dired-chown-program 'chown arg))    (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
257    
258    ;;;###autoload
259  (defun dired-do-touch (&optional arg)  (defun dired-do-touch (&optional arg)
260    "Change the timestamp of the marked (or next ARG) files.    "Change the timestamp of the marked (or next ARG) files.
261  This calls touch."  This calls touch."
# Line 342  Uses the shell command coming from varia Line 343  Uses the shell command coming from varia
343    
344  (defvar dired-file-version-alist)  (defvar dired-file-version-alist)
345    
346    ;;;###autoload
347  (defun dired-clean-directory (keep)  (defun dired-clean-directory (keep)
348    "Flag numerical backups for deletion.    "Flag numerical backups for deletion.
349  Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.  Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.
# Line 551  the list of file names explicitly with t Line 553  the list of file names explicitly with t
553          (funcall stuff-it files)))))          (funcall stuff-it files)))))
554    
555  ;; This is an extra function so that it can be redefined by ange-ftp.  ;; This is an extra function so that it can be redefined by ange-ftp.
556    ;;;###autoload
557  (defun dired-run-shell-command (command)  (defun dired-run-shell-command (command)
558    (let ((handler    (let ((handler
559           (find-file-name-handler (directory-file-name default-directory)           (find-file-name-handler (directory-file-name default-directory)
# Line 805  Otherwise, the rule is a compression rul Line 808  Otherwise, the rule is a compression rul
808      ;; None of these keys quit - use C-g for that.      ;; None of these keys quit - use C-g for that.
809      ))      ))
810    
811    ;;;###autoload
812  (defun dired-query (qs-var qs-prompt &rest qs-args)  (defun dired-query (qs-var qs-prompt &rest qs-args)
813    ;; Query user and return nil or t.    ;; Query user and return nil or t.
814    ;; Store answer in symbol VAR (which must initially be bound to nil).    ;; Store answer in symbol VAR (which must initially be bound to nil).

Legend:
Removed from v.1.121  
changed lines
  Added in v.1.122

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