[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erbot-cvs] Changes to erbot/erbcountry.el
From: |
D . Goel |
Subject: |
[Erbot-cvs] Changes to erbot/erbcountry.el |
Date: |
Wed, 06 Apr 2005 12:49:55 -0400 |
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)))