;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Sun Jul 21 15:50:12 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/browse-url.el ;;; emacs version 19.31.94.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`browse-url.el' was compiled for Emacs 19.29 or later")) #@47 A regular expression probably matching a URL. (defvar browse-url-regexp "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)[^] \n \"'()<>[^`{}]*[^] \n \"'()<>[^`{}.,;]+" (#$ . 484)) #@207 *Function to display the current buffer in a WWW browser. This is used by the `browse-url-at-point', `browse-url-at-mouse', and `browse-url-of-file' commands. The function should take one argument, an URL. (defvar browse-url-browser-function (quote browse-url-choose-browser) (#$ . -710)) #@34 *The name for invoking Netscape. (defvar browse-url-netscape-program "netscape" (#$ . -1005)) #@54 *A list of strings to pass to Netscape as arguments. (defvar browse-url-netscape-arguments nil (#$ . -1105)) #@239 *If non-nil, always open a new browser window. Passing an interactive argument to \[browse-url-netscape] or \[browse-url-cci] reverses the effect of this variable. Requires Netscape version 1.1N or later or XMosaic version 2.5 or later. (defvar browse-url-new-window-p nil (#$ . -1221)) #@32 *The name for invoking Mosaic. (defvar browse-url-mosaic-program "xmosaic" (#$ . -1515)) #@52 *A list of strings to pass to Mosaic as arguments. (defvar browse-url-mosaic-arguments nil (#$ . -1610)) #@220 An alist of (REGEXP . STRING) pairs. Any substring of a filename matching one of the REGEXPs is replaced by the corresponding STRING. All pairs are applied in the order given. Used by the `browse-url-of-file' command. (defvar browse-url-filename-alist (quote (("^/+" . "file:/"))) (#$ . 1722)) #@99 If non-nil, save the buffer before displaying its file. Used by the `browse-url-of-file' command. (defvar browse-url-save-file nil (#$ . 2023)) #@210 A hook to be run with run-hook after `browse-url-of-file' has asked a browser to load a file. Set this to `browse-url-netscape-reload' to force Netscape to load the file rather than displaying a cached copy. (defvar browse-url-of-file-hook nil (#$ . 2174)) #@182 The argument to `signal-process' for sending SIGUSR1 to XMosaic. Emacs 19.29 accepts 'SIGUSR1, earlier versions require an integer which is 30 on SunOS and 16 on HP-UX and Solaris. (defvar browse-url-usr1-signal (byte-code "ÀÁ!ƒ ÂV„ ÄYƒŇƇ" [boundp emacs-major-version 19 emacs-minor-version 29 SIGUSR1 30] 2) (#$ . 2439)) #@132 Port to access XMosaic via CCI. This can be any number between 1024 and 65535 but must correspond to the value set in the browser. (defvar browse-url-CCI-port 3003 (#$ . 2776)) #@129 Return the URL around or before point. Then search backwards for the start of a URL. If no URL found, return the empty string. (defalias 'browse-url-url-at-point #[nil "À !„\"ŠÂˆ`)Ä Å#ƒÆ”bˆÇ ÂÈ#)ƒ(Ɣƕ{‡É‡" [looking-at browse-url-regexp nil eol re-search-forward lim 0 re-search-backward t ""] 4 (#$ . 2960)]) #@225 Read a URL from the minibuffer, optionally prompting with PROMPT. Default to the URL at or before point. If bound to a mouse button, set point to the position clicked. Return the result as a list for use in `interactive'. (defalias 'browse-url-interactive-arg #[(&optional prompt) "À Áœ‰<ƒÃ\n!ˆ)Ä †ÆÇ \"C‡" [this-command-keys 0 event mouse-set-point read-string prompt "URL: " browse-url-url-at-point] 4 (#$ . 3285)]) #@130 Ask a WWW browser to load the URL at or before point. The URL is loaded according to the value of `browse-url-browser-function'. (defalias 'browse-url-at-point #[nil "Á !‡" [browse-url-browser-function browse-url-url-at-point] 2 (#$ . 3717) nil]) #@227 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 but point is not changed. The URL is loaded according to the value of `browse-url-browser-function'. (defalias 'browse-url-at-mouse #[(event) "Š‰A@) ‰@)!qˆ ‰A@:ƒ! A@@‚$ A@)bˆÄ ‰Ƙƒ4ÇÈ!ˆ !+‡" [event posn window-buffer position browse-url-url-at-point url "" error "No URL found" browse-url-browser-function] 3 (#$ . 3972) "e"]) #@325 Ask a WWW browser to display FILE. Display the current buffer's file if FILE is nil or if called interactively. Turn the filename into a URL by performing replacements given in variable `browse-url-filename-alist'. Pass the URL to a browser using variable `browse-url-browser-function' then run `browse-url-of-file-hook'. (defalias 'browse-url-of-file #[(&optional file) "†\fÁ †\fÂÃ!Ä!‰ƒ/Š qˆÆ ƒ.ƒ)È ˆ‚.ÉÊ\"ˆ)) Ì!!ˆÍÎ!‡" [file buffer-file-name error "Current buffer has no file" get-file-buffer buf buffer-modified-p browse-url-save-file save-buffer message "%s modified since last save" browse-url-browser-function browse-url-file-url run-hooks browse-url-of-file-hook] 4 (#$ . 4443) nil]) #@107 Return the URL corresponding to FILE. Uses variable `browse-url-filename-alist' to map filenames to URLs. (defalias 'browse-url-file-url #[(file) " ƒ. @‰@\nA AÅ \"ƒ*lj”O\fÇ•ÈOQ+‚)‡" [browse-url-filename-alist maps map from-re to-string string-match file 0 nil] 6 (#$ . 5158)]) (byte-code "ÀÁ!„ÂÁ BÄÁ!ˆÀÅ!„ÂÅ B‡" [boundp browse-url-temp-file-name nil current-load-list make-variable-buffer-local browse-url-temp-file-list] 2) #@83 Ask a WWW browser to display BUFFER. Display the current buffer if BUFFER is nil. (defalias 'browse-url-of-buffer #[(&optional buffer) "Š†pqˆ †ÂÃ!… ‰„8 „0ÆÇÈ ÉÊ!†'Ë\"!‰\fB\fÍed ÎÏ%ˆÐ\f†> !*‡" [buffer buffer-file-name boundp dired-directory file-name browse-url-temp-file-name make-temp-name expand-file-name buffer-name getenv "TMPDIR" "/tmp" browse-url-temp-file-list write-region nil no-message browse-url-of-file] 7 (#$ . 5618) nil]) (defalias 'browse-url-delete-temp-file #[(&optional temp-file-name) "† ‰…!Ã\n!…!Ä\n!ˆ?…!Å \"‰)‡" [temp-file-name browse-url-temp-file-name file-name file-exists-p delete-file delete browse-url-temp-file-list] 4]) (defalias 'browse-url-delete-temp-file-list #[nil "…Á@!ˆA‰„‡" [browse-url-temp-file-list browse-url-delete-temp-file nil] 3]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [add-hook kill-buffer-hook browse-url-delete-temp-file kill-emacs-hook browse-url-delete-temp-file-list] 3) #@69 In Dired, ask a WWW browser to display the file named on this line. (defalias 'browse-url-of-dired-file #[nil "ÀÁ !‡" [browse-url-of-file dired-get-filename] 2 (#$ . 6570) nil]) #@531 Ask the Netscape WWW browser to load URL. Default to the URL around or before point. The strings in variable `browse-url-netscape-arguments' are also passed to Netscape. When called interactively, if variable `browse-url-new-window-p' is non-nil, load the document in a new Netscape window, otherwise use a random existing one. A non-nil interactive prefix argument reverses the effect of browse-url-new-window-p. When called non-interactively, optional second argument NEW-WINDOW is used instead of browse-url-new-window-p. (defalias 'browse-url-netscape #[(url &optional new-window) "ÀÁ\nÉ‰Ä …ÇÈÉ\n…ËÌRD#&‰ ;ƒ-ÎÏ \"‚D ÐU†DÑÒ!ˆÀÓÔÃ\nÄ \nC\"%)‡" [apply call-process browse-url-netscape-program nil append browse-url-netscape-arguments new-window ("-noraise") "-remote" "openURL(" url ",new-window" ")" res error "netscape got signal: %s" 0 message "Starting Netscape..." start-process "netscape"] 15 (#$ . 6755) (byte-code "ÀÁÂ! ?\f?=?C\"‡" [append browse-url-interactive-arg "Netscape URL: " browse-url-new-window-p current-prefix-arg] 4)]) #@46 Ask Netscape to reload its current document. (defalias 'browse-url-netscape-reload #[nil "ÀÁ!‡" [browse-url-netscape-command "reload"] 2 (#$ . 7826) nil]) #@44 Send a remote control command to Netscape. (defalias 'browse-url-netscape-command #[(command) "ÀÁÂÃÂÄ ÆD\"%‡" [apply start-process "netscape" nil append browse-url-netscape-arguments "-remote" command] 9 (#$ . 7987)]) #@85 Ask the XMosaic WWW browser to load URL. Default to the URL around or before point. (defalias 'browse-url-mosaic #[(url) "ÀÁ!‰Æ !ƒŠÇ !ˆebˆÈp!ÉÂ!ˆ)\fƒRÊ\fË\"ËUƒRŠÇÌÍ\f\"!ˆÎ ˆÏѱˆÒ ˆÉÂ!ˆÊ\f\"ˆÔÕ!)‚hÔÖ!ˆ×ØÙÂÛC\"%ˆÔÝ!+‡" [expand-file-name "~/.mosaicpid" nil pidbuf pid pidfile file-readable-p find-file read kill-buffer signal-process 0 format "/tmp/Mosaic.%d" erase-buffer "goto\n" url "\n" save-buffer browse-url-usr1-signal message "Signal sent to Mosaic" "Starting Mosaic..." apply start-process "xmosaic" browse-url-mosaic-program append browse-url-mosaic-arguments "Starting Mosaic...done"] 8 (#$ . 8213) (browse-url-interactive-arg "Mosaic URL: ")]) #@654 Ask the XMosaic WWW browser to load URL. Default to the URL around or before point. This function only works for XMosaic version 2.5 or later. You must select `CCI' from XMosaic's File menu, set the CCI Port Address to the value of variable `browse-url-CCI-port', and enable `Accept requests'. When called interactively, if variable `browse-url-new-window-p' is non-nil, load the document in a new browser window, otherwise use a random existing one. A non-nil interactive prefix argument reverses the effect of browse-url-new-window-p. When called non-interactively, optional second argument NEW-WINDOW is used instead of browse-url-new-window-p. (defalias 'browse-url-cci #[(url &optional new-window) "ÀÁÂÃ\f$ˆÅÁÆÈ ƒÊ‚ËÌ°\"ˆÅÁÍ\"ˆÎÁ!‡" [open-network-stream "browse-url" " *browse-url*" "localhost" browse-url-CCI-port process-send-string "get url (" url ") output " new-window "new" "current" " \n" "disconnect \n" delete-process] 7 (#$ . 8894) (byte-code "ÀÁÂ! ?\f?=?C\"‡" [append browse-url-interactive-arg "Mosaic URL: " browse-url-new-window-p current-prefix-arg] 4)]) #@87 Ask the IXIMosaic WWW browser to load URL. Default to the URL around or before point. (defalias 'browse-url-iximosaic #[(url) "ÀÁÂÁÃ\f%‡" [start-process "tellw3b" nil "-service WWW_BROWSER ixi_showurl " url] 6 (#$ . 9988) (browse-url-interactive-arg "IXI Mosaic URL: ")]) #@80 Ask the w3 WWW browser to load URL. Default to the URL around or before point. (defalias 'browse-url-w3 #[(url) "À !‡" [w3-fetch url] 2 (#$ . 10266) (browse-url-interactive-arg "W3 URL: ")]) #@106 Decide which browser to use, then invoke it. This is the default value of `browse-url-browser-function'. (defalias 'browse-url-choose-browser #[(argument) "ÀÁ!ƒ ‚ Ä !‡" [fboundp w3-fetch browse-url-w3 browse-url-browser-function browse-url-netscape argument] 2 (#$ . 10464)]) (provide (quote browse-url))