Mercurial > emacs
changeset 32481:4372fcfffc7f
(cl-builtin-gethash, cl-builtin-remhash)
(cl-builtin-clrhash, cl-builtin-maphash): Add for byte-compatibility.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 15 Oct 2000 04:49:20 +0000 |
| parents | 261dcd5e9f0a |
| children | 3e97369732ac |
| files | lisp/emacs-lisp/cl-extra.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)