diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 83f0ff717d0..194f6c6d9b4 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -668,6 +668,13 @@ The Common Lisp keywords :rehash-size and :rehash-threshold are ignored." (t (assoc* key sym :test test)))) sym str))) +;; These variables are just kept for compatibility with code +;; byte-compiled by Emacs-20. +(defvar cl-builtin-gethash (symbol-function 'gethash)) +(defvar cl-builtin-remhash (symbol-function 'remhash)) +(defvar cl-builtin-clrhash (symbol-function 'clrhash)) +(defvar cl-builtin-maphash (symbol-function 'maphash)) + (defun cl-gethash (key table &optional def) "Look up KEY in HASH-TABLE; return corresponding value, or DEFAULT." (if (consp table) |