From 70e58f900243cdddd46910ce406bbfe2f5767891 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 15 Oct 2000 04:49:20 +0000 Subject: [PATCH] (cl-builtin-gethash, cl-builtin-remhash) (cl-builtin-clrhash, cl-builtin-maphash): Add for byte-compatibility. --- lisp/emacs-lisp/cl-extra.el | 7 +++++++ 1 file changed, 7 insertions(+) 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) -- 2.39.2