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

Diff of /erbot/erbcountry.el

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

revision 1.2 by deego, Wed Apr 6 16:38:06 2005 UTC revision 1.3 by deego, Wed Apr 6 16:49:49 2005 UTC
# Line 493  Line 493 
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)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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