diff options
Diffstat (limited to 'lisp/url/url-methods.el')
| -rw-r--r-- | lisp/url/url-methods.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/url/url-methods.el b/lisp/url/url-methods.el index b61198393b5..bd7d8e33922 100644 --- a/lisp/url/url-methods.el +++ b/lisp/url/url-methods.el @@ -23,9 +23,6 @@ ;;; Code: -(eval-when-compile - (require 'cl)) - ;; This loads up some of the small, silly URLs that I really don't ;; want to bother putting in their own separate files. (require 'url-parse) @@ -134,17 +131,17 @@ it has not already been loaded." (let ((symbol (intern-soft (format "%s-%s" stub (car cell)))) (type (cdr cell))) (if symbol - (case type - (function + (pcase type + (`function ;; Store the symbol name of a function (if (fboundp symbol) (setq desc (plist-put desc (car cell) symbol)))) - (variable + (`variable ;; Store the VALUE of a variable (if (boundp symbol) (setq desc (plist-put desc (car cell) (symbol-value symbol))))) - (otherwise + (_ (error "Malformed url-scheme-methods entry: %S" cell)))))) (puthash scheme desc url-scheme-registry))))) |