Mercurial > emacs
comparison lisp/net/browse-url.el @ 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 | 7c4da622f181 |
| children | a6ae19bc27ec |
comparison
equal
deleted
inserted
replaced
| 110814:6d7d60c4257a | 110815:a9f5356546ca |
|---|---|
| 937 ;;;###autoload | 937 ;;;###autoload |
| 938 (defun browse-url-xdg-open (url &optional new-window) | 938 (defun browse-url-xdg-open (url &optional new-window) |
| 939 (interactive (browse-url-interactive-arg "URL: ")) | 939 (interactive (browse-url-interactive-arg "URL: ")) |
| 940 (call-process "/bin/sh" nil nil nil | 940 (call-process "/bin/sh" nil nil nil |
| 941 "-c" | 941 "-c" |
| 942 (concat "nohup xdg-open " url | 942 (concat "nohup xdg-open " (shell-quote-argument url) |
| 943 ">/dev/null 2>&1 </dev/null"))) | 943 ">/dev/null 2>&1 </dev/null"))) |
| 944 | 944 |
| 945 ;;;###autoload | 945 ;;;###autoload |
| 946 (defun browse-url-netscape (url &optional new-window) | 946 (defun browse-url-netscape (url &optional new-window) |
| 947 "Ask the Netscape WWW browser to load URL. | 947 "Ask the Netscape WWW browser to load URL. |
| 1569 (error "Unrecognized exit-code %d of process `elinks'" | 1569 (error "Unrecognized exit-code %d of process `elinks'" |
| 1570 exit-status))))) | 1570 exit-status))))) |
| 1571 | 1571 |
| 1572 (provide 'browse-url) | 1572 (provide 'browse-url) |
| 1573 | 1573 |
| 1574 ;; arch-tag: d2079573-5c06-4097-9598-f550fba19430 | |
| 1575 ;;; browse-url.el ends here | 1574 ;;; browse-url.el ends here |