Mercurial > emacs
comparison lisp/eshell/esh-arg.el @ 32446:aab90b31807c
Added better remote directory support to Eshell, as well as a few bug
fixes. See the ChangeLog.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Fri, 13 Oct 2000 09:02:39 +0000 |
| parents | 34b1ab9d583d |
| children | 8e57189d61b4 |
comparison
equal
deleted
inserted
replaced
| 32445:05513a882886 | 32446:aab90b31807c |
|---|---|
| 326 (list 'eshell-escape-arg string)))))) | 326 (list 'eshell-escape-arg string)))))) |
| 327 | 327 |
| 328 (defun eshell-parse-double-quote () | 328 (defun eshell-parse-double-quote () |
| 329 "Parse a double quoted string, which allows for variable interpolation." | 329 "Parse a double quoted string, which allows for variable interpolation." |
| 330 (when (eq (char-after) ?\") | 330 (when (eq (char-after) ?\") |
| 331 (forward-char) | |
| 332 (let* ((end (eshell-find-delimiter ?\" ?\" nil nil t)) | 331 (let* ((end (eshell-find-delimiter ?\" ?\" nil nil t)) |
| 333 (eshell-current-quoted t)) | 332 (eshell-current-quoted t)) |
| 334 (if (not end) | 333 (if (not end) |
| 335 (throw 'eshell-incomplete ?\") | 334 (throw 'eshell-incomplete ?\") |
| 336 (prog1 | 335 (prog1 |
| 337 (save-restriction | 336 (save-restriction |
| 337 (forward-char) | |
| 338 (narrow-to-region (point) end) | 338 (narrow-to-region (point) end) |
| 339 (list 'eshell-escape-arg | 339 (list 'eshell-escape-arg |
| 340 (eshell-parse-argument))) | 340 (eshell-parse-argument))) |
| 341 (goto-char (1+ end))))))) | 341 (goto-char (1+ end))))))) |
| 342 | 342 |