From b2abcb9b3946fca74662e76fa7cef37d712628b2 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 21 Nov 2001 15:13:29 +0000 Subject: [PATCH] * elmo-util.el (elmo-copy-file): Added argument `ok-if-already-exists'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 8bd7a66..92debf1 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-11-21 Hiroya Murata + + * elmo-util.el (elmo-copy-file): Added argument + `ok-if-already-exists'. + 2001-11-21 Kenichi OKADA * elmo-pipe.el (elmo-pipe-drain): Load killed-list. diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index caacaeb..2322005 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -1066,10 +1066,10 @@ Emacs 19.28 or earlier does not have `unintern'." (setq filename (substring filename (+ (match-end 0) 1)))) (concat result filename))) -(defsubst elmo-copy-file (src dst) +(defsubst elmo-copy-file (src dst &otional ok-if-already-exists) (condition-case err - (elmo-add-name-to-file src dst t) - (error (copy-file src dst t)))) + (elmo-add-name-to-file src dst ok-if-already-exists) + (error (copy-file src dst ok-if-already-exists t)))) (defsubst elmo-buffer-exists-p (buffer) (if (bufferp buffer) -- 1.7.10.4