aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/net
diff options
context:
space:
mode:
authorGlenn Morris2018-05-07 07:50:49 -0700
committerGlenn Morris2018-05-07 07:50:49 -0700
commit766b057e41df7316808ec7658836fda75facda75 (patch)
tree9f35f8fdc99192a66c01c10b8a6b3cae1fb6ebd4 /lisp/net
parent6e362a32bc9d21f73a0f29ca6f45481edeea6f29 (diff)
parent1d732d699d63b5dbfa7d0a0f44e6119d58f852bc (diff)
downloademacs-766b057e41df7316808ec7658836fda75facda75.tar.gz
emacs-766b057e41df7316808ec7658836fda75facda75.zip
Merge from origin/emacs-26
1d732d6 (origin/emacs-26) Fix gud-statement for pdb 91a68b5 ; * msdos/INSTALL: Add info about GCC versions. 7ddcc9a Document 'custom-group' 58f9e15 A minor addition to etc/DEBUG 4590414 Avoid errors in ispell.el when Enchant returns empty extra chars d0d75f9 Make 'ispell-initialize-spellchecker-hook' work again b90ce66 Handle selected_window change in prepare_menu_bars (Bug#31312) 79ad0b3 ; * INSTALL: Fix Emacs version number. (Bug#31358) 91de88b Fix report-emacs-bug via mailclient on MS-Windows f4b5ff2 Port collation tests to glibc 2.27
Diffstat (limited to 'lisp/net')
-rw-r--r--lisp/net/browse-url.el16
1 files changed, 15 insertions, 1 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index bdedcb2bd3e..bf179c8782a 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -877,7 +877,21 @@ The optional NEW-WINDOW argument is not used."
877 (error "Browsing URLs is not supported on this system"))) 877 (error "Browsing URLs is not supported on this system")))
878 ((eq system-type 'cygwin) 878 ((eq system-type 'cygwin)
879 (call-process "cygstart" nil nil nil url)) 879 (call-process "cygstart" nil nil nil url))
880 (t (w32-shell-execute "open" (url-unhex-string url))))) 880 (t
881 (w32-shell-execute "open"
882 ;; w32-shell-execute passes file:// URLs
883 ;; to APIs that expect file names, so we
884 ;; need to unhex any %nn encoded
885 ;; characters in the URL. We don't do
886 ;; that for other URLs; in particular,
887 ;; default Windows mail client barfs on
888 ;; quotes in the MAILTO URLs, so we prefer
889 ;; to leave the URL with its embedded %nn
890 ;; encoding intact.
891 (if (eq t (compare-strings url nil 7
892 "file://" nil nil))
893 (url-unhex-string url)
894 url)))))
881 895
882(defun browse-url-default-macosx-browser (url &optional _new-window) 896(defun browse-url-default-macosx-browser (url &optional _new-window)
883 "Invoke the macOS system's default Web browser. 897 "Invoke the macOS system's default Web browser.