Parent Directory | Revision Log | Patch
revision 1.7 by pj, Sat Feb 16 09:44:00 2002 UTC | revision 1.8 by walters, Fri Mar 1 01:47:35 2002 UTC | |
---|---|---|
# | Line 427 Possible options are: | Line 427 Possible options are: |
427 | (let ((end (eshell-find-delimiter ?\< ?\>))) | (let ((end (eshell-find-delimiter ?\< ?\>))) |
428 | (if (not end) | (if (not end) |
429 | (throw 'eshell-incomplete ?\<) | (throw 'eshell-incomplete ?\<) |
430 | (let* ((temp (make-temp-name temporary-file-directory)) | (let* ((temp (make-temp-file temporary-file-directory)) |
431 | (cmd (concat (buffer-substring (1+ (point)) end) | (cmd (concat (buffer-substring (1+ (point)) end) |
432 | " > " temp))) | " > " temp))) |
433 | (prog1 | (prog1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |