Function: cl--set-getf

cl--set-getf is an autoloaded and byte-compiled function defined in cl-extra.el.gz.

Signature

(cl--set-getf PLIST TAG VAL)

Aliases

cl-set-getf (obsolete since 24.3)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-extra.el.gz
;;;###autoload
(defun cl--set-getf (plist tag val)
  (let ((val-tail (cdr (plist-member plist tag))))
    (if val-tail (progn (setcar val-tail val) plist)
      (cl-list* tag val plist))))