1 |
;;; erbc.el --- Erbot user-interface commands -- see also erbc5.el |
;;; erbc.el --- Erbot user-interface commands -- see also erbc5.el |
2 |
;; Time-stamp: <2005-05-07 16:48:21 deego> |
;; Time-stamp: <2005-07-06 10:26:43 deego> |
3 |
;; Copyright (C) 2002 D. Goel |
;; Copyright (C) 2002 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbc.el |
;; Filename: erbc.el |
3737 |
(erbbdb-get-exact-name dest)) |
(erbbdb-get-exact-name dest)) |
3738 |
(error "Destination %S already seems to exist" dest)) |
(error "Destination %S already seems to exist" dest)) |
3739 |
(let ((tmp (format "TMPMV-%S" (random 1000)))) |
(let ((tmp (format "TMPMV-%S" (random 1000)))) |
3740 |
(erbbdb-working |
(erbot-working |
3741 |
(ignore-errors (fs-forget tmp)) |
(ignore-errors (fs-forget tmp)) |
3742 |
(fs-mv name tmp) |
(fs-mv name tmp) |
3743 |
(fs-mv tmp dest)) |
(fs-mv tmp dest)) |