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

[D . Goel]

Index: erbot/erbcountry.el
diff -u erbot/erbcountry.el:1.2 erbot/erbcountry.el:1.3
--- erbot/erbcountry.el:1.2     Wed Apr  6 16:38:06 2005
+++ erbot/erbcountry.el Wed Apr  6 16:49:49 2005
@@ -493,6 +493,16 @@
 (erbcountry-create-list)
 
 
+
+(defun erbcountry-search (name)
+  (with-temp-buffer
+    (insert erbcountry-string)
+    (goto-char (point-min))
+    (if (search-forward name nil t)
+       (buffer-substring-no-properties (line-beginning-position)
+                                       (line-end-position))
+      (error "No match. "))))
+
   
 (defun erbcountry-lookup (ct)
   ;;(unless (stringp ct) (setq ct (format "%s" ct)))