[Emacs-diffs] /srv/bzr/emacs/trunk r101843: * lisp/net/browse-url.el (browse-url-xdg-open): Shell-quote url. (Bug#7166)

[Glenn Morris]

------------------------------------------------------------
revno: 101843
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-07 20:23:31 -0700
message:
  * lisp/net/browse-url.el (browse-url-xdg-open): Shell-quote url.  (Bug#7166)
modified:
  lisp/ChangeLog
  lisp/net/browse-url.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-08 00:05:12 +0000
+++ b/lisp/ChangeLog    2010-10-08 03:23:31 +0000
@@ -1,3 +1,7 @@
+2010-10-08  Glenn Morris  <address@hidden>
+
+       * net/browse-url.el (browse-url-xdg-open): Shell-quote url.  (Bug#7166)
+
 2010-10-07  Chong Yidong  <address@hidden>
 
        * cus-edit.el (custom-variable, custom-face): Doc fix.

=== modified file 'lisp/net/browse-url.el'
--- a/lisp/net/browse-url.el    2010-09-23 06:42:45 +0000
+++ b/lisp/net/browse-url.el    2010-10-08 03:23:31 +0000
@@ -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