[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 14a56f52c5: New user option 'webjump-use-internal-browser'
From: |
Po Lu |
Subject: |
master 14a56f52c5: New user option 'webjump-use-internal-browser' |
Date: |
Wed, 13 Jul 2022 00:37:01 -0400 (EDT) |
branch: master
commit 14a56f52c5b57b69aaa2af08204d649c749fcb97
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
New user option 'webjump-use-internal-browser'
* lisp/net/webjump.el (webjump-use-internal-browser): New defcustom.
(webjump): Respect it. Reported by Youmu <condy0919@gmail.com>.
---
etc/NEWS | 5 +++++
lisp/net/webjump.el | 46 ++++++++++++++++++++++++++++++++++------------
2 files changed, 39 insertions(+), 12 deletions(-)
diff --git a/etc/NEWS b/etc/NEWS
index 9f302bdfb5..b46f33fd67 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2030,6 +2030,11 @@ Set it to nil to exclude line numbering from kills and
copies.
** Miscellaneous
+---
+*** New user option 'webjump-use-internal-browser'.
+When non-nil, WebJump will use an internal browser to open web pages,
+instead of the default external browser.
+
+++
*** New user option 'font-lock-ignore'.
This option provides a mechanism to selectively disable font-lock
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index b2ef47898c..9886a4c79d 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -79,6 +79,14 @@
:prefix "webjump-"
:group 'browse-url)
+(defcustom webjump-use-internal-browser nil
+ "Whether or not to force the use of an internal browser.
+If non-nil, WebJump will always use an internal browser (such as
+EWW or xwidget-webkit) to open web pages, as opposed to an
+external browser like IceCat."
+ :version "29.1"
+ :type 'boolean)
+
(defconst webjump-sample-sites
'(
;; FSF, not including Emacs-specific.
@@ -255,18 +263,32 @@ Please submit bug reports and other feedback to the
author, Neil W. Van Dyke
webjump-sites t))
(name (car item))
(expr (cdr item)))
- (browse-url (webjump-url-fix
- (cond ((not expr) "")
- ((stringp expr) expr)
- ((vectorp expr) (webjump-builtin expr name))
- ((listp expr) (eval expr t))
- ((symbolp expr)
- (if (fboundp expr)
- (funcall expr name)
- (error "WebJump URL function \"%s\" undefined"
- expr)))
- (t (error "WebJump URL expression for \"%s\" invalid"
- name)))))))
+ (if webjump-use-internal-browser
+ (browse-url-with-browser-kind
+ 'internal (webjump-url-fix
+ (cond ((not expr) "")
+ ((stringp expr) expr)
+ ((vectorp expr) (webjump-builtin expr name))
+ ((listp expr) (eval expr t))
+ ((symbolp expr)
+ (if (fboundp expr)
+ (funcall expr name)
+ (error "WebJump URL function \"%s\" undefined"
+ expr)))
+ (t (error "WebJump URL expression for \"%s\" invalid"
+ name)))))
+ (browse-url (webjump-url-fix
+ (cond ((not expr) "")
+ ((stringp expr) expr)
+ ((vectorp expr) (webjump-builtin expr name))
+ ((listp expr) (eval expr t))
+ ((symbolp expr)
+ (if (fboundp expr)
+ (funcall expr name)
+ (error "WebJump URL function \"%s\" undefined"
+ expr)))
+ (t (error "WebJump URL expression for \"%s\" invalid"
+ name))))))))
(defun webjump-builtin (expr name)
(if (< (length expr) 1)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 14a56f52c5: New user option 'webjump-use-internal-browser',
Po Lu <=