From 6d12db37b430c1be300757f8dae820d33d370c3d Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Sun, 15 Oct 1995 03:09:16 +0000 Subject: Repair line wrapping damage. --- lisp/browse-url.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) (limited to 'lisp/browse-url.el') 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 -- cgit v1.2.1