unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#4951: 23.1.50; browse-url-default-windows-browser bug + patch
@ 2009-11-18  1:46 Lennart Borgman
  2009-11-18  3:35 ` Stefan Monnier
  0 siblings, 1 reply; 9+ messages in thread
From: Lennart Borgman @ 2009-11-18  1:46 UTC (permalink / raw)
  To: emacs-pretest-bug

[-- Attachment #1: Type: text/plain, Size: 471 bytes --]

browse-url-default-windows-browser does not work any longer. I am unsure
when it stopped working, but on at least Windows XP the attached patch
seems necessary. Could we please apply this as soon as possible so it
will get tested?



In GNU Emacs 23.1.50.1 (i386-mingw-nt5.1.2600)
 of 2009-10-15
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt --cflags
-Ic:/g/include -fno-crossjumping'

[-- Attachment #2: browse-url.patch --]
[-- Type: text/x-diff, Size: 1752 bytes --]

Index: browse-url.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/browse-url.el,v
retrieving revision 1.85
diff -c -r1.85 browse-url.el
*** browse-url.el	6 Nov 2009 05:16:29 -0000	1.85
--- browse-url.el	18 Nov 2009 01:27:21 -0000
***************
*** 444,450 ****
      ;; applies.
      ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")
      ,@(if (memq system-type '(windows-nt ms-dos cygwin))
!           '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
              ("^[\\/][\\/]+" . "file://")))
      ("^/+" . "file:///"))
    "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
--- 444,450 ----
      ;; applies.
      ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/")
      ,@(if (memq system-type '(windows-nt ms-dos cygwin))
!           '(("^\\([a-zA-Z]:\\)[\\/]" . "file:///\\1/")
              ("^[\\/][\\/]+" . "file://")))
      ("^/+" . "file:///"))
    "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
***************
*** 834,840 ****
        (if dos-windows-version
  	  (shell-command (concat "start " (shell-quote-argument url)))
  	(error "Browsing URLs is not supported on this system"))
!     (w32-shell-execute "open" url)))
  
  (defun browse-url-default-macosx-browser (url &optional new-window)
    (interactive (browse-url-interactive-arg "URL: "))
--- 834,840 ----
        (if dos-windows-version
  	  (shell-command (concat "start " (shell-quote-argument url)))
  	(error "Browsing URLs is not supported on this system"))
!     (w32-shell-execute nil url)))
  
  (defun browse-url-default-macosx-browser (url &optional new-window)
    (interactive (browse-url-interactive-arg "URL: "))

^ permalink raw reply	[flat|nested] 9+ messages in thread
* bug#4951: 23.1.50; browse-url-default-windows-browser bug + patch
@ 2010-01-02 20:31 Chong Yidong
  2011-09-11  5:18 ` Lars Magne Ingebrigtsen
  0 siblings, 1 reply; 9+ messages in thread
From: Chong Yidong @ 2010-01-02 20:31 UTC (permalink / raw)
  To: Lennart Borgman; +Cc: 4951

> There are two changes:
>
> 1) file: => file:///
>
> This was discussed some time ago (a yr or two?) and it looks like this
> is a more correct syntax for the file URL.

This was included in the 2009-11-23 change by Ken Brown.

> 2) Changing the verb to w32-shell-execute (ShellExecute) from "open"
> to nil is for some reason I do not know necessary. The answer to why
> hides deep within the w32 registry and maybe some knowledgeable
> persons at MS... It might be a mismatch of some kind, I don't know.

Is this still necessary?






^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2011-09-11  5:18 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-11-18  1:46 bug#4951: 23.1.50; browse-url-default-windows-browser bug + patch Lennart Borgman
2009-11-18  3:35 ` Stefan Monnier
2009-11-18  3:41   ` Lennart Borgman
2009-11-18  5:54     ` Jason Rumney
2009-11-18 13:00       ` Lennart Borgman
2009-11-19  4:37         ` Lennart Borgman
2009-11-23  1:34           ` Lennart Borgman
  -- strict thread matches above, loose matches on Subject: below --
2010-01-02 20:31 Chong Yidong
2011-09-11  5:18 ` Lars Magne Ingebrigtsen

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).