mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(cl-builtin-gethash, cl-builtin-remhash)

Browse Source 
(cl-builtin-clrhash, cl-builtin-maphash): Add for byte-compatibility.
This commit is contained in:
Stefan Monnier 2000-10-15 04:49:20 +00:00
parent 6c5bcbc1b1
commit 70e58f9002
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/emacs-lisp/cl-extra.el
View File

@ -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)