diff options
| author | Gerd Moellmann | 1999-11-10 12:11:55 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-11-10 12:11:55 +0000 |
| commit | e178969580b48e940a91569893ee2f87ab9ce49f (patch) | |
| tree | 8309f35f8d519cde90aae862bf59ccf89dbd017c | |
| parent | 765712a7012ea230e5056a46a5312c41603f955c (diff) | |
| download | emacs-e178969580b48e940a91569893ee2f87ab9ce49f.tar.gz emacs-e178969580b48e940a91569893ee2f87ab9ce49f.zip | |
(file-local-copy): Remove optional BUFFER argument
because that's not used by anything.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/files.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 12b0f725547..9165cb9e168 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 1999-11-10 Gerd Moellmann <gerd@gnu.org> | 1 | 1999-11-10 Gerd Moellmann <gerd@gnu.org> |
| 2 | 2 | ||
| 3 | * files.el (file-local-copy): Remove optional BUFFER argument | ||
| 4 | because that's not used by anything. | ||
| 5 | |||
| 3 | * mail/mh-comp.el (mh-smail-batch): If TO is nil, use "" as | 6 | * mail/mh-comp.el (mh-smail-batch): If TO is nil, use "" as |
| 4 | to-address. | 7 | to-address. |
| 5 | 8 | ||
diff --git a/lisp/files.el b/lisp/files.el index 731f12339f9..3c3aeed60d9 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -501,10 +501,12 @@ This is an interface to the function `load'." | |||
| 501 | (interactive "sLoad library: ") | 501 | (interactive "sLoad library: ") |
| 502 | (load library)) | 502 | (load library)) |
| 503 | 503 | ||
| 504 | (defun file-local-copy (file &optional buffer) | 504 | (defun file-local-copy (file) |
| 505 | "Copy the file FILE into a temporary file on this machine. | 505 | "Copy the file FILE into a temporary file on this machine. |
| 506 | Returns the name of the local copy, or nil, if FILE is directly | 506 | Returns the name of the local copy, or nil, if FILE is directly |
| 507 | accessible." | 507 | accessible." |
| 508 | ;; This formerly had an optional BUFFER argument that wasn't used by | ||
| 509 | ;; anything. | ||
| 508 | (let ((handler (find-file-name-handler file 'file-local-copy))) | 510 | (let ((handler (find-file-name-handler file 'file-local-copy))) |
| 509 | (if handler | 511 | (if handler |
| 510 | (funcall handler 'file-local-copy file) | 512 | (funcall handler 'file-local-copy file) |