Mercurial > emacs
comparison lisp/net/goto-addr.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 0560d7169eba |
| children | 9277afae9517 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 206 `goto-address-find-address-at-point'. If no address is found | 206 `goto-address-find-address-at-point'. If no address is found |
| 207 there, then load the URL at or before point." | 207 there, then load the URL at or before point." |
| 208 (interactive) | 208 (interactive) |
| 209 (save-excursion | 209 (save-excursion |
| 210 (let ((address (save-excursion (goto-address-find-address-at-point)))) | 210 (let ((address (save-excursion (goto-address-find-address-at-point)))) |
| 211 (if (and address | 211 (if (and address |
| 212 (save-excursion | 212 (save-excursion |
| 213 (goto-char (previous-single-char-property-change | 213 (goto-char (previous-single-char-property-change |
| 214 (point) 'goto-address nil | 214 (point) 'goto-address nil |
| 215 (line-beginning-position))) | 215 (line-beginning-position))) |
| 216 (not (looking-at goto-address-url-regexp)))) | 216 (not (looking-at goto-address-url-regexp)))) |