diff options
Diffstat (limited to 'emacs/23.4/24_all_browse-url-firefox.patch')
| -rw-r--r-- | emacs/23.4/24_all_browse-url-firefox.patch | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/emacs/23.4/24_all_browse-url-firefox.patch b/emacs/23.4/24_all_browse-url-firefox.patch new file mode 100644 index 0000000..d87c953 --- /dev/null +++ b/emacs/23.4/24_all_browse-url-firefox.patch @@ -0,0 +1,105 @@ +https://bugs.gentoo.org/542046 +http://debbugs.gnu.org/19921 + +This comprises parts of the following commit from upstream git: + +commit 1b0ebbdb566a8dfa5f45ce121b2c835e9760091f +Author: Glenn Morris <rgm@gnu.org> +Date: Tue Feb 24 18:02:11 2015 -0500 + + browse-url-firefox: update for firefox 36's removal of -remote + +--- emacs-23.4-orig/lisp/net/browse-url.el ++++ emacs-23.4/lisp/net/browse-url.el +@@ -330,6 +330,9 @@ + :type '(repeat (string :tag "Argument")) + :group 'browse-url) + ++(make-obsolete-variable 'browse-url-firefox-startup-arguments ++ "it no longer has any effect." "23.4-r13") ++ + ;;;###autoload + (defcustom browse-url-galeon-program (purecopy "galeon") + "The name by which to invoke Galeon." +@@ -1024,63 +1027,32 @@ + ;;;###autoload + (defun browse-url-firefox (url &optional new-window) + "Ask the Firefox WWW browser to load URL. +-Default to the URL around or before point. The strings in +-variable `browse-url-firefox-arguments' are also passed to +-Firefox. ++Defaults to the URL around or before point. Passes the strings ++in the variable `browse-url-firefox-arguments' to Firefox. + +-When called interactively, if variable +-`browse-url-new-window-flag' is non-nil, load the document in a +-new Firefox window, otherwise use a random existing one. A +-non-nil interactive prefix argument reverses the effect of +-`browse-url-new-window-flag'. ++Interactively, if the variable `browse-url-new-window-flag' is non-nil, ++loads the document in a new Firefox window. A non-nil prefix argument ++reverses the effect of `browse-url-new-window-flag'. + + If `browse-url-firefox-new-window-is-tab' is non-nil, then + whenever a document would otherwise be loaded in a new window, it + is loaded in a new tab in an existing window instead. + +-When called non-interactively, optional second argument +-NEW-WINDOW is used instead of `browse-url-new-window-flag'. +- +-On MS-Windows systems the optional `new-window' parameter is +-ignored. Firefox for Windows does not support the \"-remote\" +-command line parameter. Therefore, the +-`browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab' +-are ignored as well. Firefox on Windows will always open the requested +-URL in a new window." ++Non-interactively, this uses the optional second argument NEW-WINDOW ++instead of `browse-url-new-window-flag'." + (interactive (browse-url-interactive-arg "URL: ")) + (setq url (browse-url-encode-url url)) +- (let* ((process-environment (browse-url-process-environment)) +- (process +- (apply 'start-process +- (concat "firefox " url) nil +- browse-url-firefox-program +- (append +- browse-url-firefox-arguments +- (if (or (featurep 'dos-w32) +- (string-match "win32" system-configuration)) +- (list url) +- (list "-remote" +- (concat "openURL(" +- url +- (if (browse-url-maybe-new-window +- new-window) +- (if browse-url-firefox-new-window-is-tab +- ",new-tab" +- ",new-window")) +- ")"))))))) +- (set-process-sentinel process +- `(lambda (process change) +- (browse-url-firefox-sentinel process ,url))))) +- +-(defun browse-url-firefox-sentinel (process url) +- "Handle a change to the process communicating with Firefox." +- (or (eq (process-exit-status process) 0) +- (let* ((process-environment (browse-url-process-environment))) +- ;; Firefox is not running - start it +- (message "Starting Firefox...") +- (apply 'start-process (concat "firefox " url) nil +- browse-url-firefox-program +- (append browse-url-firefox-startup-arguments (list url)))))) ++ (let* ((process-environment (browse-url-process-environment))) ++ (apply 'start-process ++ (concat "firefox " url) nil ++ browse-url-firefox-program ++ (append ++ browse-url-firefox-arguments ++ (if (browse-url-maybe-new-window new-window) ++ (if browse-url-firefox-new-window-is-tab ++ '("-new-tab") ++ '("-new-window"))) ++ (list url))))) + + ;;;###autoload + (defun browse-url-galeon (url &optional new-window) |