diff options
| author | Stefan Monnier | 2000-06-12 05:20:23 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-06-12 05:20:23 +0000 |
| commit | aeb18228252e3997edaa5f49373a1704dfaf3d21 (patch) | |
| tree | 0b537c740173369b166dd8a67a8a92daad383d9e | |
| parent | f2116cf90d6bb85ec5fac7d7edb8b1936328dcbf (diff) | |
| download | emacs-aeb18228252e3997edaa5f49373a1704dfaf3d21.tar.gz emacs-aeb18228252e3997edaa5f49373a1704dfaf3d21.zip | |
(ange-ftp-vms-delete-file-entry)
(ange-ftp-vms-add-file-entry): Don't quote lambda.
| -rw-r--r-- | lisp/net/ange-ftp.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index fc39ae3eb51..1c114913585 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -4897,9 +4897,9 @@ Other orders of $ and _ seem to all work just fine.") | |||
| 4897 | ;; versions left. If not, then delete the | 4897 | ;; versions left. If not, then delete the |
| 4898 | ;; root entry. | 4898 | ;; root entry. |
| 4899 | (mapatoms | 4899 | (mapatoms |
| 4900 | '(lambda (sym) | 4900 | (lambda (sym) |
| 4901 | (and (string-match regexp (get sym 'key)) | 4901 | (and (string-match regexp (get sym 'key)) |
| 4902 | (setq versions t))) | 4902 | (setq versions t))) |
| 4903 | files) | 4903 | files) |
| 4904 | (or versions | 4904 | (or versions |
| 4905 | (ange-ftp-del-hash-entry root files)))))))))) | 4905 | (ange-ftp-del-hash-entry root files)))))))))) |
| @@ -4929,15 +4929,15 @@ Other orders of $ and _ seem to all work just fine.") | |||
| 4929 | ";\\([0-9]+\\)$")) | 4929 | ";\\([0-9]+\\)$")) |
| 4930 | (version 0)) | 4930 | (version 0)) |
| 4931 | (mapatoms | 4931 | (mapatoms |
| 4932 | '(lambda (sym) | 4932 | (lambda (sym) |
| 4933 | (let ((name (get sym 'key))) | 4933 | (let ((name (get sym 'key))) |
| 4934 | (and (string-match regexp name) | 4934 | (and (string-match regexp name) |
| 4935 | (setq version | 4935 | (setq version |
| 4936 | (max version | 4936 | (max version |
| 4937 | (string-to-int | 4937 | (string-to-int |
| 4938 | (substring name | 4938 | (substring name |
| 4939 | (match-beginning 1) | 4939 | (match-beginning 1) |
| 4940 | (match-end 1)))))))) | 4940 | (match-end 1)))))))) |
| 4941 | files) | 4941 | files) |
| 4942 | (setq version (1+ version)) | 4942 | (setq version (1+ version)) |
| 4943 | (ange-ftp-put-hash-entry | 4943 | (ange-ftp-put-hash-entry |