1 |
;;; erbc.el --- Erbot user-interface commands. |
;;; erbc.el --- Erbot user-interface commands. |
2 |
;; Time-stamp: <2005-04-06 15:27:12 deego> |
;; Time-stamp: <2005-04-06 15:32:16 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 |
3749 |
(when (string= (downcase name) (downcase dest)) |
(when (string= (downcase name) (downcase dest)) |
3750 |
(error "Can't swap term with itself. ")) |
(error "Can't swap term with itself. ")) |
3751 |
(let ((tmp (format "TMPMV-%S" (random 1000)))) |
(let ((tmp (format "TMPMV-%S" (random 1000)))) |
3752 |
(erbbdb-working |
(erbot-working |
3753 |
(ignore-errors (fs-forget tmp)) |
(ignore-errors (fs-forget tmp)) |
3754 |
(fs-mv name tmp) |
(fs-mv name tmp) |
3755 |
|
(fs-mv dest name) |
3756 |
(fs-mv tmp dest)) |
(fs-mv tmp dest)) |
3757 |
(erbbdb-save) |
(erbbdb-save) |
3758 |
(format "Readjusted case from %S to %S" name dest))) |
(format "Readjusted case from %S to %S" name dest))) |