From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#9779: No usable browser found on Lubuntu Date: Tue, 18 Oct 2011 02:14:39 +0300 Organization: JURTA Message-ID: <87mxczb480.fsf@mail.jurta.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1318893502 23598 80.91.229.12 (17 Oct 2011 23:18:22 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 17 Oct 2011 23:18:22 +0000 (UTC) To: 9779@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Oct 18 01:18:16 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RFwRi-0006nk-FS for geb-bug-gnu-emacs@m.gmane.org; Tue, 18 Oct 2011 01:18:14 +0200 Original-Received: from localhost ([::1]:55642 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RFwRh-0005fo-VT for geb-bug-gnu-emacs@m.gmane.org; Mon, 17 Oct 2011 19:18:13 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:56151) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RFwRe-0005fh-Lq for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:18:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RFwRd-0007n5-6E for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:18:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:56306) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RFwRd-0007mQ-2G for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:18:09 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RFwSU-0008KU-Bt for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:19:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 17 Oct 2011 23:19:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 9779 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.131889349331964 (code B ref -1); Mon, 17 Oct 2011 23:19:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 17 Oct 2011 23:18:13 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RFwRg-0008JR-0F for submit@debbugs.gnu.org; Mon, 17 Oct 2011 19:18:13 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RFwRd-0008JE-63 for submit@debbugs.gnu.org; Mon, 17 Oct 2011 19:18:10 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RFwQf-0006Ya-5S for submit@debbugs.gnu.org; Mon, 17 Oct 2011 19:17:10 -0400 Original-Received: from lists.gnu.org ([140.186.70.17]:57677) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RFwQf-0006YS-3r for submit@debbugs.gnu.org; Mon, 17 Oct 2011 19:17:09 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:55258) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RFwQe-0005UW-6s for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:17:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RFwQc-0006W6-JN for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:17:08 -0400 Original-Received: from smarty.dreamhost.com ([208.113.175.8]:34695) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RFwQc-0006UY-CV for bug-gnu-emacs@gnu.org; Mon, 17 Oct 2011 19:17:06 -0400 Original-Received: from ps18281.dreamhostps.com (ps18281.dreamhost.com [69.163.218.105]) by smarty.dreamhost.com (Postfix) with ESMTP id 11E146E805B for ; Mon, 17 Oct 2011 16:17:05 -0700 (PDT) Original-Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 3F3EF451C426 for ; Mon, 17 Oct 2011 16:17:04 -0700 (PDT) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.90 (x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Mon, 17 Oct 2011 19:19:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:52752 Archived-At: Clicking on a link doesn't open a Web browser as expected but fails with the error message "No usable browser found" on Lubuntu 11.10 (Ubuntu + LXDE) since its default web browser is Chromium, but Chromium is still not supported by browse-url. The following patch will add its support to browse-url.el. This code is basically like used for Firefox, but since there are no official command line switches like "-remote", "-new-window", "-new-tab", so tab/window/startup related options can't be used for Chromium. === modified file 'lisp/net/browse-url.el' --- lisp/net/browse-url.el 2011-08-21 01:01:12 +0000 +++ lisp/net/browse-url.el 2011-10-17 23:10:30 +0000 @@ -36,6 +36,7 @@ ;; Function Browser Earliest version ;; browse-url-mozilla Mozilla Don't know ;; browse-url-firefox Firefox Don't know (tried with 1.0.1) +;; browse-url-chromium Chromium 3.0 ;; browse-url-galeon Galeon Don't know ;; browse-url-epiphany Epiphany Don't know ;; browse-url-netscape Netscape 1.1b1 @@ -230,6 +232,7 @@ (defcustom browse-url-browser-function :value browse-url-w3-gnudoit) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Firefox" :value browse-url-firefox) + (function-item :tag "Chromium" :value browse-url-chromium) (function-item :tag "Galeon" :value browse-url-galeon) (function-item :tag "Epiphany" :value browse-url-epiphany) (function-item :tag "Netscape" :value browse-url-netscape) @@ -336,6 +340,22 @@ (defcustom browse-url-firefox-startup-ar :type '(repeat (string :tag "Argument")) :group 'browse-url) +(defcustom browse-url-chromium-program + (let ((candidates '("chromium" "chromium-browser" "chrome"))) + (while (and candidates (not (executable-find (car candidates)))) + (setq candidates (cdr candidates))) + (or (car candidates) "chromium")) + "The name by which to invoke Chromium." + :type 'string + :version "24.1" + :group 'browse-url) + +(defcustom browse-url-chromium-arguments nil + "A list of strings to pass to Chromium as arguments." + :type '(repeat (string :tag "Argument")) + :version "24.1" + :group 'browse-url) + (defcustom browse-url-galeon-program "galeon" "The name by which to invoke Galeon." :type 'string @@ -913,6 +933,7 @@ (defun browse-url-default-browser (url & ((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz) ((executable-find browse-url-mozilla-program) 'browse-url-mozilla) ((executable-find browse-url-firefox-program) 'browse-url-firefox) + ((executable-find browse-url-chromium-program) 'browse-url-chromium) ((executable-find browse-url-galeon-program) 'browse-url-galeon) ((executable-find browse-url-kde-program) 'browse-url-kde) ((executable-find browse-url-netscape-program) 'browse-url-netscape) @@ -1141,6 +1162,22 @@ (defun browse-url-firefox-sentinel (proc (append browse-url-firefox-startup-arguments (list url)))))) ;;;###autoload +(defun browse-url-chromium (url &optional new-window) + "Ask the Chromium WWW browser to load URL. +Default to the URL around or before point. The strings in +variable `browse-url-chromium-arguments' are also passed to +Chromium." + (interactive (browse-url-interactive-arg "URL: ")) + (setq url (browse-url-encode-url url)) + (let* ((process-environment (browse-url-process-environment))) + (apply 'start-process + (concat "chromium " url) nil + browse-url-chromium-program + (append + browse-url-chromium-arguments + (list url))))) + +;;;###autoload (defun browse-url-galeon (url &optional new-window) "Ask the Galeon WWW browser to load URL. Default to the URL around or before point. The strings in variable