Mercurial > emacs
changeset 12905:5c9d2e139925
(dired-expand-newtext): Function deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 21 Aug 1995 01:12:12 +0000 |
| parents | 0352cffbcc0d |
| children | 28a8f63327fc |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 0 insertions(+), 33 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Sun Aug 20 16:04:10 1995 +0000 +++ b/lisp/dired-aux.el Mon Aug 21 01:12:12 1995 +0000 @@ -992,39 +992,6 @@ (dired-normalize-subdir (dired-replace-in-string regexp newtext (car elt))))))) -(defun dired-expand-newtext (string newtext) - ;; Expand \& and \1..\9 (referring to STRING) in NEWTEXT, using match data. - ;; Note that in Emacs 18 match data are clipped to current buffer - ;; size...so the buffer should better not be smaller than STRING. - (let ((pos 0) - (len (length newtext)) - (expanded-newtext "")) - (while (< pos len) - (setq expanded-newtext - (concat expanded-newtext - (let ((c (aref newtext pos))) - (if (= ?\\ c) - (cond ((= ?\& (setq c - (aref newtext - (setq pos (1+ pos))))) - (substring string - (match-beginning 0) - (match-end 0))) - ((and (>= c ?1) (<= c ?9)) - ;; return empty string if N'th - ;; sub-regexp did not match: - (let ((n (- c ?0))) - (if (match-beginning n) - (substring string - (match-beginning n) - (match-end n)) - ""))) - (t - (char-to-string c))) - (char-to-string c))))) - (setq pos (1+ pos))) - expanded-newtext)) - ;; The basic function for half a dozen variations on cp/mv/ln/ln -s. (defun dired-create-files (file-creator operation fn-list name-constructor &optional marker-char)