diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-10-15 04:49:20 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-10-15 04:49:20 +0000 |
| commit | 70e58f900243cdddd46910ce406bbfe2f5767891 (patch) | |
| tree | 39cc0dfc24666e910cd1585de0a1842ed456651f /lisp/emacs-lisp | |
| parent | 6c5bcbc1b1444cc4a4160ada897301099b00f802 (diff) | |
| download | emacs-70e58f900243cdddd46910ce406bbfe2f5767891.tar.gz emacs-70e58f900243cdddd46910ce406bbfe2f5767891.tar.bz2 emacs-70e58f900243cdddd46910ce406bbfe2f5767891.zip | |
(cl-builtin-gethash, cl-builtin-remhash)
(cl-builtin-clrhash, cl-builtin-maphash): Add for byte-compatibility.
Diffstat (limited to 'lisp/emacs-lisp')
| -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) |