Mercurial > emacs
comparison lisp/net/webjump.el @ 90180:62afea0771d8
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-51
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 289-301)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 68)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 12 May 2005 03:41:19 +0000 |
| parents | 68c22ea6027c 96701ef6c56d |
| children | f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 90179:b745036dab36 | 90180:62afea0771d8 |
|---|---|
| 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) |