From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 15 Oct 2000 04:49:20 +0000 (+0000)
Subject: (cl-builtin-gethash, cl-builtin-remhash)
X-Git-Tag: emacs-pretest-21.0.90~886
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70e58f900243cdddd46910ce406bbfe2f5767891;p=emacs.git

(cl-builtin-gethash, cl-builtin-remhash)
(cl-builtin-clrhash, cl-builtin-maphash): Add for byte-compatibility.
---

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)