493 |
(erbcountry-create-list) |
(erbcountry-create-list) |
494 |
|
|
495 |
|
|
496 |
|
|
497 |
|
(defun erbcountry-search (name) |
498 |
|
(with-temp-buffer |
499 |
|
(insert erbcountry-string) |
500 |
|
(goto-char (point-min)) |
501 |
|
(if (search-forward name nil t) |
502 |
|
(buffer-substring-no-properties (line-beginning-position) |
503 |
|
(line-end-position)) |
504 |
|
(error "No match. ")))) |
505 |
|
|
506 |
|
|
507 |
(defun erbcountry-lookup (ct) |
(defun erbcountry-lookup (ct) |
508 |
;;(unless (stringp ct) (setq ct (format "%s" ct))) |
;;(unless (stringp ct) (setq ct (format "%s" ct))) |