[Erbot-cvs] Changes to erbot/erbc.el

[D . Goel]

Index: erbot/erbc.el
diff -u erbot/erbc.el:1.100 erbot/erbc.el:1.101
--- erbot/erbc.el:1.100 Fri Apr  1 18:16:00 2005
+++ erbot/erbc.el       Wed Apr  6 16:49:49 2005
@@ -1,5 +1,5 @@
 ;;; erbc.el --- Erbot user-interface commands.
-;; Time-stamp: <2005-04-01 13:14:13 deego>
+;; Time-stamp: <2005-04-06 12:48:22 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -4157,6 +4157,15 @@
     (if addp (setq ct (concat "." ct))))
   (erbcountry (downcase ct)))
 
+
+
+(defun fsi-country-search (&rest names)
+  (unless names (error 
+             (format "Syntax: %s country-search NM (example , country japa)" 
erbn-char)))
+  (erbcountry-search
+   (mapconcat (lambda (arg) (format "%s" arg)) names " ")))
+
+
 ;;; 2003-02-09 T13:40:04-0500 (Sunday)    D. Goel
 (defun fsi-spook (&rest args)
   (with-temp-buffer