# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 971585360 0
# Node ID 4372fcfffc7fc1f2bb534e95d32f9f218de5b265
# Parent  261dcd5e9f0a9acc39241066e7bc42dead8b9079
(cl-builtin-gethash, cl-builtin-remhash)
(cl-builtin-clrhash, cl-builtin-maphash): Add for byte-compatibility.

diff -r 261dcd5e9f0a -r 4372fcfffc7f lisp/emacs-lisp/cl-extra.el
--- a/lisp/emacs-lisp/cl-extra.el	Sun Oct 15 04:38:24 2000 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Sun Oct 15 04:49:20 2000 +0000
@@ -668,6 +668,13 @@
 			 (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)