/[erbot]/erbot/erbc.el
ViewVC logotype

Diff of /erbot/erbc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.102 by deego, Wed Apr 6 19:30:17 2005 UTC revision 1.103 by deego, Wed Apr 6 19:35:49 2005 UTC
# Line 1  Line 1 
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
# Line 3749  order of entries within a given term. " Line 3749  order of entries within a given term. "
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)))

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26