diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/eudc-bob.el | 2 | ||||
| -rw-r--r-- | lisp/net/quickurl.el | 7 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index 57b748b1500..584d1a9d0d8 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el @@ -312,7 +312,7 @@ display a button." (define-key map [return] 'goto-address-at-point) (define-key map (if (featurep 'xemacs) [button2] - [down-mouse-2]) 'goto-address-at-mouse) + [down-mouse-2]) 'goto-address-at-point) map)) (set-keymap-parent eudc-bob-image-keymap eudc-bob-generic-keymap) diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el index 5321807cd6c..abfca383e09 100644 --- a/lisp/net/quickurl.el +++ b/lisp/net/quickurl.el @@ -116,8 +116,13 @@ :type 'function :group 'quickurl) -(defcustom quickurl-assoc-function #'assoc-ignore-case +(defun quickurl--assoc-function (key alist) + "Default function for `quickurl-assoc-function'." + (assoc-string key alist t)) + +(defcustom quickurl-assoc-function #'quickurl--assoc-function "Function to use for alist lookup into `quickurl-urls'." + :version "26.1" ; was the obsolete assoc-ignore-case :type 'function :group 'quickurl) |