changeset 110815:a9f5356546ca

* lisp/net/browse-url.el (browse-url-xdg-open): Shell-quote url. (Bug#7166)
author Glenn Morris <rgm@gnu.org>
date Thu, 07 Oct 2010 20:23:31 -0700
parents 6d7d60c4257a
children 73abfbbdd86a
files lisp/ChangeLog lisp/net/browse-url.el
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Oct 07 20:17:31 2010 -0700
+++ b/lisp/ChangeLog	Thu Oct 07 20:23:31 2010 -0700
@@ -1,3 +1,7 @@
+2010-10-08  Glenn Morris  <rgm@gnu.org>
+
+	* net/browse-url.el (browse-url-xdg-open): Shell-quote url.  (Bug#7166)
+
 2010-10-07  Chong Yidong  <cyd@stupidchicken.com>
 
 	* cus-edit.el (custom-variable, custom-face): Doc fix.
--- a/lisp/net/browse-url.el	Thu Oct 07 20:17:31 2010 -0700
+++ b/lisp/net/browse-url.el	Thu Oct 07 20:23:31 2010 -0700
@@ -939,7 +939,7 @@
   (interactive (browse-url-interactive-arg "URL: "))
   (call-process "/bin/sh" nil nil nil
 		"-c"
-		(concat "nohup xdg-open " url
+		(concat "nohup xdg-open " (shell-quote-argument url)
 			">/dev/null 2>&1 </dev/null")))
 
 ;;;###autoload
@@ -1571,5 +1571,4 @@
 
 (provide 'browse-url)
 
-;; arch-tag: d2079573-5c06-4097-9598-f550fba19430
 ;;; browse-url.el ends here