diff options
| author | Dave Love <fx@gnu.org> | 1999-01-13 12:55:54 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-01-13 12:55:54 +0000 |
| commit | a0f036f80909104d88286f9607ab6b37d64cd005 (patch) | |
| tree | ea4064e94429806dd4bd5729ebae63ab611015fe /lisp | |
| parent | 43920c264421c72d6846d1da68727043a74240a1 (diff) | |
| download | emacs-a0f036f80909104d88286f9607ab6b37d64cd005.tar.gz | |
(browse-url-netscape): Fix ineffective "-noraise".
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/browse-url.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index f7525b5a852..cc63b39c7bd 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el @@ -1,6 +1,6 @@ ;;; browse-url.el --- Pass a URL to a WWW browser -;; Copyright 1995, 1996, 1997, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. ;; Author: Denis Howe <dbh@doc.ic.ac.uk> ;; Maintainer: Dave Love <fx@gnu.org> @@ -707,18 +707,20 @@ used instead of `browse-url-new-window-p'." (format "%%%x" (string-to-char (match-string 0 url))) t t url))) (let* ((process-environment (browse-url-process-environment)) (process (apply 'start-process - (concat "netscape " url) nil - browse-url-netscape-program - (append browse-url-netscape-arguments - (if (eq window-system 'w32) - (list url) - (if new-window '("-noraise")) - (list "-remote" - (concat "openURL(" url - (if (browse-url-maybe-new-window - new-window) - ",new-window") - ")"))))))) + (concat "netscape " url) nil + browse-url-netscape-program + (append + browse-url-netscape-arguments + (if (eq window-system 'w32) + (list url) + (append + (if new-window '("-noraise")) + (list "-remote" + (concat "openURL(" url + (if (browse-url-maybe-new-window + new-window) + ",new-window") + ")")))))))) (set-process-sentinel process (list 'lambda '(process change) (list 'browse-url-netscape-sentinel 'process url))))) |