1 |
;;; erbc.el --- Erbot user-interface commands. |
;;; erbc.el --- Erbot user-interface commands. |
2 |
;; Time-stamp: <2005-04-07 10:06:50 deego> |
;; Time-stamp: <2005-04-08 11:22:33 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 |
3686 |
(fs-forget name "all")) |
(fs-forget name "all")) |
3687 |
(when erbn-merge-redirect-p |
(when erbn-merge-redirect-p |
3688 |
(erbot-working |
(erbot-working |
3689 |
(fsi-set-term name (format "is redirect %s" dest)))) |
(fsi-set-term name (format "redirect %s" dest)))) |
3690 |
(erbbdb-save) |
(erbbdb-save) |
3691 |
(if erbn-merge-redirect-p |
(if erbn-merge-redirect-p |
3692 |
(format "Merged %S into %S, redirected %S to %S" name dest |
(format "Merged %S into %S, redirected %S to %S" name dest |