diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-10-11 02:34:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-10-11 02:34:27 +0000 |
| commit | 7c84b528a86d4d143806ac3d27616dfa8ec03cef (patch) | |
| tree | 3652c6a5c027faf2dd758878cb69a73bc740fa55 /lisp/browse-url.el | |
| parent | 18b0e3ef2f337fb20577b4c6b76839537bb40277 (diff) | |
| download | emacs-7c84b528a86d4d143806ac3d27616dfa8ec03cef.tar.gz | |
(browse-url-at-point): Add autoload cookie.
(browse-url-at-mouse, browse-url-of-buffer, browse-url-of-file)
(browse-url-of-dired-file): Likewise.
Diffstat (limited to 'lisp/browse-url.el')
| -rw-r--r-- | lisp/browse-url.el | 21 |
1 files changed, 5 insertions, 16 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index cc51a9a6bfa..ca4cad0e888 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el @@ -101,22 +101,6 @@ ;; Do any other browsers have remote control? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Installation - -;; Put the following in your ~/.emacs file: -;; -;; (autoload 'browse-url-at-point "browse-url" -;; "Ask a WWW browser to load the URL at or before point." t) -;; (autoload 'browse-url-at-mouse "browse-url" -;; "Ask a WWW browser to load a URL clicked with the mouse." t) -;; (autoload 'browse-url-of-buffer "browse-url" -;; "Ask a WWW browser to display BUFFER." t) -;; (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) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Usage ;; To display the URL at or before point: @@ -430,6 +414,7 @@ negation if a prefix argument was given." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Browse current buffer +;;;###autoload (defun browse-url-of-file (&optional file) "Ask a WWW browser to display FILE. Display the current buffer's file if FILE is nil or if called @@ -477,6 +462,7 @@ Convert EFS file names of the form /USER@HOST:PATH to ftp://HOST/PATH." "/" (substring file (match-end 0))))) file) +;;;###autoload (defun browse-url-of-buffer (&optional buffer) "Ask a WWW browser to display BUFFER. Display the current buffer if BUFFER is nil." @@ -524,6 +510,7 @@ Display the current buffer if BUFFER is nil." (add-hook 'kill-buffer-hook 'browse-url-delete-temp-file) (add-hook 'kill-emacs-hook 'browse-url-delete-temp-file-list) +;;;###autoload (defun browse-url-of-dired-file () "In Dired, ask a WWW browser to display the file named on this line." (interactive) @@ -541,6 +528,7 @@ Prompts for a URL, defaulting to the URL at or before point. Variable (interactive (browse-url-interactive-arg "URL: ")) (apply browse-url-browser-function args)) +;;;###autoload (defun browse-url-at-point () "Ask a WWW browser to load the URL at or before point. Doesn't let you edit the URL like browse-url. Variable @@ -560,6 +548,7 @@ Doesn't let you edit the URL like browse-url. Variable (defun event-point (event) (posn-point (event-start event))))) +;;;###autoload (defun browse-url-at-mouse (event) "Ask a WWW browser to load a URL clicked with the mouse. The URL is the one around or before the position of the mouse click |