Mercurial > emacs
comparison lisp/dired-aux.el @ 3591:507f64624555
Apply typo patches from Paul Eggert.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 09 Jun 1993 11:59:12 +0000 |
parents | 4fb117e74844 |
children | 6e13c3b03b67 |
comparison
equal
deleted
inserted
replaced
3590:d5f22061277d | 3591:507f64624555 |
---|---|
267 ;;; Shell commands | 267 ;;; Shell commands |
268 ;;>>> install (move this function into simple.el) | 268 ;;>>> install (move this function into simple.el) |
269 (defun dired-shell-quote (filename) | 269 (defun dired-shell-quote (filename) |
270 "Quote a file name for inferior shell (see variable `shell-file-name')." | 270 "Quote a file name for inferior shell (see variable `shell-file-name')." |
271 ;; Quote everything except POSIX filename characters. | 271 ;; Quote everything except POSIX filename characters. |
272 ;; This should be safe enough even for really wierd shells. | 272 ;; This should be safe enough even for really weird shells. |
273 (let ((result "") (start 0) end) | 273 (let ((result "") (start 0) end) |
274 (while (string-match "[^---0-9a-zA-Z_./]" filename start) | 274 (while (string-match "[^---0-9a-zA-Z_./]" filename start) |
275 (setq end (match-beginning 0) | 275 (setq end (match-beginning 0) |
276 result (concat result (substring filename start end) | 276 result (concat result (substring filename start end) |
277 "\\" (substring filename end (1+ end))) | 277 "\\" (substring filename end (1+ end))) |
478 from-file))) | 478 from-file))) |
479 | 479 |
480 (defun dired-compress-file (file) | 480 (defun dired-compress-file (file) |
481 ;; Compress or uncompress FILE. | 481 ;; Compress or uncompress FILE. |
482 ;; Return the name of the compressed or uncompressed file. | 482 ;; Return the name of the compressed or uncompressed file. |
483 ;; Rerurn nil if no change in files. | 483 ;; Return nil if no change in files. |
484 (let ((handler (find-file-name-handler file))) | 484 (let ((handler (find-file-name-handler file))) |
485 (cond (handler | 485 (cond (handler |
486 (funcall handler 'dired-compress-file file)) | 486 (funcall handler 'dired-compress-file file)) |
487 ((file-symlink-p file) | 487 ((file-symlink-p file) |
488 nil) | 488 nil) |
765 (dired-move-to-filename)) | 765 (dired-move-to-filename)) |
766 ;; return nil if all went well | 766 ;; return nil if all went well |
767 nil)) | 767 nil)) |
768 (if reason ; don't move away on failure | 768 (if reason ; don't move away on failure |
769 (goto-char opoint)) | 769 (goto-char opoint)) |
770 (not reason))) ; return t on succes, nil else | 770 (not reason))) ; return t on success, nil else |
771 | 771 |
772 ;; This is a separate function for the sake of nested dired format. | 772 ;; This is a separate function for the sake of nested dired format. |
773 (defun dired-add-entry-do-indentation (marker-char) | 773 (defun dired-add-entry-do-indentation (marker-char) |
774 ;; two spaces or a marker plus a space: | 774 ;; two spaces or a marker plus a space: |
775 (insert (if marker-char | 775 (insert (if marker-char |
1098 ;; Create a new file for each marked file. | 1098 ;; Create a new file for each marked file. |
1099 ;; Prompts user for target, which is a directory in which to create | 1099 ;; Prompts user for target, which is a directory in which to create |
1100 ;; the new files. Target may be a plain file if only one marked | 1100 ;; the new files. Target may be a plain file if only one marked |
1101 ;; file exists. | 1101 ;; file exists. |
1102 ;; OP-SYMBOL is the symbol for the operation. Function `dired-mark-pop-up' | 1102 ;; OP-SYMBOL is the symbol for the operation. Function `dired-mark-pop-up' |
1103 ;; will determine wether pop-ups are appropriate for this OP-SYMBOL. | 1103 ;; will determine whether pop-ups are appropriate for this OP-SYMBOL. |
1104 ;; FILE-CREATOR and OPERATION as in dired-create-files. | 1104 ;; FILE-CREATOR and OPERATION as in dired-create-files. |
1105 ;; ARG as in dired-get-marked-files. | 1105 ;; ARG as in dired-get-marked-files. |
1106 ;; Optional arg OP1 is an alternate form for OPERATION if there is | 1106 ;; Optional arg OP1 is an alternate form for OPERATION if there is |
1107 ;; only one file. | 1107 ;; only one file. |
1108 ;; Optional arg MARKER-CHAR as in dired-create-files. | 1108 ;; Optional arg MARKER-CHAR as in dired-create-files. |