Mercurial > emacs
comparison lisp/browse-url.el @ 13224:e19603a14c3f
Repair line wrapping damage.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Sun, 15 Oct 1995 03:09:16 +0000 |
| parents | 7a20f2bb5ac9 |
| children | efd6ce432dc5 |
comparison
equal
deleted
inserted
replaced
| 13223:b0717b54e8b6 | 13224:e19603a14c3f |
|---|---|
| 101 ;; (autoload 'browse-url-of-buffer "browse-url" | 101 ;; (autoload 'browse-url-of-buffer "browse-url" |
| 102 ;; "Ask a WWW browser to display BUFFER." t) | 102 ;; "Ask a WWW browser to display BUFFER." t) |
| 103 ;; (autoload 'browse-url-of-file "browse-url" | 103 ;; (autoload 'browse-url-of-file "browse-url" |
| 104 ;; "Ask a WWW browser to display FILE." t) | 104 ;; "Ask a WWW browser to display FILE." t) |
| 105 ;; (autoload 'browse-url-of-dired-file "browse-url" | 105 ;; (autoload 'browse-url-of-dired-file "browse-url" |
| 106 ;; "In Dired, ask a WWW browser to display the file named on this line." | 106 ;; "In Dired, ask a WWW browser to display the file named on this line." t) |
| 107 t) | |
| 108 | 107 |
| 109 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 108 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 110 ;; Usage | 109 ;; Usage |
| 111 | 110 |
| 112 ;; To display the URL at or before point: | 111 ;; To display the URL at or before point: |
| 131 ;; To bind the browse-url commands to keys with the `C-c u' prefix: | 130 ;; To bind the browse-url commands to keys with the `C-c u' prefix: |
| 132 ;; (global-set-key "\C-cu." 'browse-url-at-point) | 131 ;; (global-set-key "\C-cu." 'browse-url-at-point) |
| 133 ;; (global-set-key "\C-cub" 'browse-url-of-buffer) | 132 ;; (global-set-key "\C-cub" 'browse-url-of-buffer) |
| 134 ;; (global-set-key "\C-cuf" 'browse-url-of-file) | 133 ;; (global-set-key "\C-cuf" 'browse-url-of-file) |
| 135 ;; (add-hook 'dired-mode-hook | 134 ;; (add-hook 'dired-mode-hook |
| 136 ;; (function (lambda () | 135 ;; (lambda () |
| 137 ;; (local-set-key "\C-cuf" | 136 ;; (local-set-key "\C-cuf" 'browse-url-of-dired-file)))) |
| 138 'browse-url-of-dired-file)))) | |
| 139 ;; (if (boundp 'browse-url-browser-function) | 137 ;; (if (boundp 'browse-url-browser-function) |
| 140 ;; (global-set-key "\C-cuu" browse-url-browser-function) | 138 ;; (global-set-key "\C-cuu" browse-url-browser-function) |
| 141 ;; (eval-after-load | 139 ;; (eval-after-load |
| 142 ;; "browse-url" | 140 ;; "browse-url" |
| 143 ;; '(global-set-key "\C-cuu" browse-url-browser-function))) | 141 ;; '(global-set-key "\C-cuu" browse-url-browser-function))) |
| 160 ;; (add-hook 'local-write-file-hooks | 158 ;; (add-hook 'local-write-file-hooks |
| 161 ;; (function (lambda () | 159 ;; (function (lambda () |
| 162 ;; (let ((local-write-file-hooks)) | 160 ;; (let ((local-write-file-hooks)) |
| 163 ;; (save-buffer)) | 161 ;; (save-buffer)) |
| 164 ;; (browse-url-netscape-reload) | 162 ;; (browse-url-netscape-reload) |
| 165 ;; t)) ; => file written | 163 ;; t)) ; => file written by hook |
| 166 by hook | 164 ;; t)))) ; append to l-w-f-hooks |
| 167 ;; t)))) ; append to | |
| 168 l-w-f-hooks | |
| 169 ;; | 165 ;; |
| 170 ;; [Does this work for html-mode too?] | 166 ;; [Does this work for html-mode too?] |
| 171 ;; | 167 ;; |
| 172 ;; OR browse-url-of-file ask Netscape to load and then reload the | 168 ;; OR browse-url-of-file ask Netscape to load and then reload the |
| 173 ;; file: | 169 ;; file: |
| 272 | 268 |
| 273 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 269 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 274 ;;; Code: | 270 ;;; Code: |
| 275 | 271 |
| 276 (defvar browse-url-regexp | 272 (defvar browse-url-regexp |
| 277 "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mai | 273 "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" |
| 278 lto:\\)[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" | |
| 279 "A regular expression probably matching a URL.") | 274 "A regular expression probably matching a URL.") |
| 280 | 275 |
| 281 (defvar browse-url-browser-function | 276 (defvar browse-url-browser-function |
| 282 'browse-url-netscape | 277 'browse-url-netscape |
| 283 "*Function to display the current buffer in a WWW browser. | 278 "*Function to display the current buffer in a WWW browser. |