From: Dave Love <fx@gnu.org>
Date: Wed, 13 Jan 1999 12:55:54 +0000 (+0000)
Subject: (browse-url-netscape): Fix ineffective "-noraise".
X-Git-Tag: emacs-20.4~886
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0f036f80909104d88286f9607ab6b37d64cd005;p=emacs.git

(browse-url-netscape): Fix ineffective "-noraise".
---

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)))))