summaryrefslogtreecommitdiff
path: root/lisp/browse-url.el
diff options
context:
space:
mode:
authorErik Naggum <erik@naggum.no>1995-10-15 03:09:16 +0000
committerErik Naggum <erik@naggum.no>1995-10-15 03:09:16 +0000
commit6d12db37b430c1be300757f8dae820d33d370c3d (patch)
treee2949f65e7a0fe606dc091ab95e6985d4751a0e6 /lisp/browse-url.el
parent18ecb91fa20c5006db685804467dd52459d6239d (diff)
downloademacs-6d12db37b430c1be300757f8dae820d33d370c3d.tar.gz
Repair line wrapping damage.
Diffstat (limited to 'lisp/browse-url.el')
-rw-r--r--lisp/browse-url.el17
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el
index e99462a0e4d..2a8072f508f 100644
--- a/lisp/browse-url.el
+++ b/lisp/browse-url.el
@@ -103,8 +103,7 @@
;; (autoload 'browse-url-of-file "browse-url"
;; "Ask a WWW browser to display FILE." t)
;; (autoload 'browse-url-of-dired-file "browse-url"
-;; "In Dired, ask a WWW browser to display the file named on this line."
-t)
+;; "In Dired, ask a WWW browser to display the file named on this line." t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Usage
@@ -133,9 +132,8 @@ t)
;; (global-set-key "\C-cub" 'browse-url-of-buffer)
;; (global-set-key "\C-cuf" 'browse-url-of-file)
;; (add-hook 'dired-mode-hook
-;; (function (lambda ()
-;; (local-set-key "\C-cuf"
-'browse-url-of-dired-file))))
+;; (lambda ()
+;; (local-set-key "\C-cuf" 'browse-url-of-dired-file))))
;; (if (boundp 'browse-url-browser-function)
;; (global-set-key "\C-cuu" browse-url-browser-function)
;; (eval-after-load
@@ -162,10 +160,8 @@ t)
;; (let ((local-write-file-hooks))
;; (save-buffer))
;; (browse-url-netscape-reload)
-;; t)) ; => file written
-by hook
-;; t)))) ; append to
-l-w-f-hooks
+;; t)) ; => file written by hook
+;; t)))) ; append to l-w-f-hooks
;;
;; [Does this work for html-mode too?]
;;
@@ -274,8 +270,7 @@ l-w-f-hooks
;;; Code:
(defvar browse-url-regexp
- "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mai
-lto:\\)[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+"
+ "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+"
"A regular expression probably matching a URL.")
(defvar browse-url-browser-function