Function: ht-select-keys

ht-select-keys is a byte-compiled function defined in ht.el.

Signature

(ht-select-keys TABLE KEYS)

Documentation

Return a copy of TABLE with only the specified KEYS.

Source Code

;; Defined in ~/.emacs.d/elpa/ht-20230703.558/ht.el
(defun ht-select-keys (table keys)
  "Return a copy of TABLE with only the specified KEYS."
  (declare (side-effect-free t))
  (let ((not-found-symbol (make-symbol "ht--not-found"))
        result)
    (setq result (make-hash-table :test (hash-table-test table)))
    (dolist (key keys result)
      (if (not (equal (gethash key table not-found-symbol) not-found-symbol))
          (puthash key (gethash key table) result)))))