From: Erik Naggum <erik@naggum.no>
Date: Sun, 15 Oct 1995 03:09:16 +0000 (+0000)
Subject: Repair line wrapping damage.
X-Git-Tag: emacs-19.34~2636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0521259a338b58b9f796bf1b6eb2dbb294d58fbb;p=emacs.git

Repair line wrapping damage.
---

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