diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-03-06 20:16:52 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-03-06 20:16:52 -0500 |
| commit | 501808ce690c93eac7df4b8f467ed940528d9229 (patch) | |
| tree | 40e9df86131b9d81757a5505b5cdef2f86c6397b /lisp/net/quickurl.el | |
| parent | 19afff31c9340ba5c35504064fb0fadcc8a86aff (diff) | |
| download | emacs-501808ce690c93eac7df4b8f467ed940528d9229.tar.gz | |
Replace some obsolete aliases in code
* lisp/emulation/viper.el (viper-set-hooks):
* lisp/epa-hook.el (auto-encryption-mode):
* lisp/term/pc-win.el (set-frame-font): Replace obsolete aliases.
* lisp/net/quickurl.el (quickurl--assoc-function): New.
(quickurl-assoc-function): Use it.
Diffstat (limited to 'lisp/net/quickurl.el')
| -rw-r--r-- | lisp/net/quickurl.el | 7 |
1 files changed, 6 insertions, 1 deletions
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) |