diff options
| author | Erik Naggum <erik@naggum.no> | 1995-10-15 03:09:16 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1995-10-15 03:09:16 +0000 |
| commit | 6d12db37b430c1be300757f8dae820d33d370c3d (patch) | |
| tree | e2949f65e7a0fe606dc091ab95e6985d4751a0e6 | |
| parent | 18ecb91fa20c5006db685804467dd52459d6239d (diff) | |
| download | emacs-6d12db37b430c1be300757f8dae820d33d370c3d.tar.gz | |
Repair line wrapping damage.
| -rw-r--r-- | lisp/browse-url.el | 17 |
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 |