Mercurial > emacs
changeset 22425:b235f1b173f3
Don't require dired when compiling.
(browse-url-lynx-input-delay,
browse-url-lynx-input-attempts): Remove customization.
(browse-url-grail): Respect new-window arg (Barry Warsaw).
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 10 Jun 1998 19:00:39 +0000 |
| parents | d8368e1df721 |
| children | 76657a0a9c70 |
| files | lisp/browse-url.el |
| diffstat | 1 files changed, 9 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/browse-url.el Wed Jun 10 18:55:56 1998 +0000 +++ b/lisp/browse-url.el Wed Jun 10 19:00:39 1998 +0000 @@ -217,8 +217,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Variables -(eval-when-compile (require 'dired) - (require 'thingatpt) +(eval-when-compile (require 'thingatpt) (require 'term)) (defgroup browse-url nil @@ -456,17 +455,11 @@ :version "20.3" :group 'browse-url) -(defcustom browse-url-lynx-input-attempts 10 - "*How many times to try to move down from a series of lynx input fields." - :version "20.3" - :type 'integer - :group 'browse-url) +(defvar browse-url-lynx-input-attempts 10 + "*How many times to try to move down from a series of lynx input fields.") (defcustom browse-url-lynx-input-delay 0.2 - "How many seconds to wait for lynx between moves down from an input field." - :version "20.3" - :type 'number - :group 'browse-url) + "How many seconds to wait for lynx between moves down from an input field.") (defvar browse-url-temp-file-list '()) @@ -769,7 +762,7 @@ used instead of `browse-url-new-window-p'." (interactive (browse-url-interactive-arg "Mosaic URL: ")) (let ((pidfile (expand-file-name "~/.mosaicpid")) - pid pidbuf) + pid) (if (file-readable-p pidfile) (save-excursion (find-file pidfile) @@ -818,11 +811,14 @@ (set-buffer (get-buffer-create " *Shell Command Output*")) (erase-buffer) ;; don't worry about this failing. - (call-process browse-url-grail nil 0 nil url) + (if new-window + (call-process browse-url-grail nil 0 nil "-b" url) + (call-process browse-url-grail nil 0 nil url)) (message "Sending URL to Grail... done"))) ;; --- Mosaic using CCI --- +;;;###autoload (defun browse-url-cci (url &optional new-window) "Ask the XMosaic WWW browser to load URL. Default to the URL around or before point.