diff options
author | Tassilo Horn <tsdh@gnu.org> | 2020-05-07 13:02:13 +0200 |
---|---|---|
committer | Tassilo Horn <tsdh@gnu.org> | 2020-05-07 19:43:41 +0200 |
commit | b0f9cbb3da6124c540b0a577e0928e85b362b277 (patch) | |
tree | 770d68dc84dbec1274a358be5bd7b961632d3233 /lisp/dnd.el | |
parent | 263ab750a5963af837fd69647071faa92093011c (diff) | |
download | emacs-b0f9cbb3da6124c540b0a577e0928e85b362b277.tar.gz |
Categorize browse-url functions into internal and external ones.
* lisp/net/browse-url.el: Write package documentation explaining
browse-url-browser-kind symbol property. Categorize existing
browse-url functions into internal and external ones.
(browse-url--browser-kind, browse-url--browser-kind-mailto)
(browse-url--browser-kind-man, browse-url--browser-kind-browser): New
functions.
(browse-url-select-handler): Add KIND argument to restrict selection.
* lisp/dnd.el (dnd-handle-one-url): Only select browse-url handler of
kind `internal'.
* lisp/net/eww.el (eww): Add `browse-url-browser-kind' symbol property
with value `internal'.
Diffstat (limited to 'lisp/dnd.el')
-rw-r--r-- | lisp/dnd.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index 102bc752b07..298241bf174 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -103,7 +103,7 @@ is what has been dropped. Returns ACTION." (catch 'done ;; Autoloaded but the byte-compiler still complains. (declare-function browse-url-select-handler "browse-url" (url)) - (let ((browser (browse-url-select-handler url))) + (let ((browser (browse-url-select-handler url 'internal))) (when browser (setq ret 'private) (funcall browser url action) |