# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 916232154 0
# Node ID 2dde27ae5540c6fade95ff85fdbacbe97da58837
# Parent  dd143e80ffcf7abd0e0be653056bbb97165c04cf
(browse-url-netscape): Fix ineffective "-noraise".

diff -r dd143e80ffcf -r 2dde27ae5540 lisp/browse-url.el
--- a/lisp/browse-url.el	Wed Jan 13 12:42:28 1999 +0000
+++ b/lisp/browse-url.el	Wed Jan 13 12:55:54 1999 +0000
@@ -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 @@
 	       (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)))))