Mercurial > emacs
comparison lisp/net/webjump.el @ 62122:96701ef6c56d
(webjump): Replace `assoc-ignore-case' by `assoc-string'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 06 May 2005 19:26:33 +0000 |
| parents | 4fdf85312c1c |
| children | df55e63482c4 62afea0771d8 |
comparison
equal
deleted
inserted
replaced
| 62121:9d18baf82550 | 62122:96701ef6c56d |
|---|---|
| 272 | 272 |
| 273 Please submit bug reports and other feedback to the author, Neil W. Van Dyke | 273 Please submit bug reports and other feedback to the author, Neil W. Van Dyke |
| 274 <nwv@acm.org>." | 274 <nwv@acm.org>." |
| 275 (interactive) | 275 (interactive) |
| 276 (let* ((completion-ignore-case t) | 276 (let* ((completion-ignore-case t) |
| 277 (item (assoc-ignore-case | 277 (item (assoc-string |
| 278 (completing-read "WebJump to site: " webjump-sites nil t) | 278 (completing-read "WebJump to site: " webjump-sites nil t) |
| 279 webjump-sites)) | 279 webjump-sites t)) |
| 280 (name (car item)) | 280 (name (car item)) |
| 281 (expr (cdr item))) | 281 (expr (cdr item))) |
| 282 (browse-url (webjump-url-fix | 282 (browse-url (webjump-url-fix |
| 283 (cond ((not expr) "") | 283 (cond ((not expr) "") |
| 284 ((stringp expr) expr) | 284 ((stringp expr) expr) |