diff options
Diffstat (limited to 'lisp/dnd.el')
| -rw-r--r-- | lisp/dnd.el | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index 905659e817b..1d0e26cb013 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -87,13 +87,11 @@ and is the default except for MS-Windows." (defun dnd-handle-one-url (window action url) "Handle one dropped url by calling the appropriate handler. The handler is first located by looking at `dnd-protocol-alist'. -If no match is found here, and the value of `browse-url-browser-function' -is a pair of (REGEXP . FUNCTION), those regexps are tried for a match. -If no match is found, just call `dnd-insert-text'. -WINDOW is where the drop happened, ACTION is the action for the drop, -URL is what has been dropped. -Returns ACTION." - (require 'browse-url) +If no match is found here, `browse-url-handlers' and +`browse-url-default-handlers' are searched for a match. +If no match is found, just call `dnd-insert-text'. WINDOW is +where the drop happened, ACTION is the action for the drop, URL +is what has been dropped. Returns ACTION." (let (ret) (or (catch 'done @@ -102,14 +100,13 @@ Returns ACTION." (setq ret (funcall (cdr bf) url action)) (throw 'done t))) nil) - (when (not (functionp browse-url-browser-function)) - (catch 'done - (dolist (bf browse-url-browser-function) - (when (string-match (car bf) url) - (setq ret 'private) - (funcall (cdr bf) url action) - (throw 'done t))) - nil)) + (catch 'done + (let ((browser (browse-url-select-handler url 'internal))) + (when browser + (setq ret 'private) + (funcall browser url action) + (throw 'done t))) + nil) (progn (dnd-insert-text window action url) (setq ret 'private))) |