Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(getf): Don't call get*.

Browse source
This commit is contained in:
Karl Heuer 1999-06-12 03:36:46 +00:00
parent 634376231a
commit 318f417cd3
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-extra.el
View file

@ -624,7 +624,13 @@ argument VECP, this copies vectors as well as conses."
PROPLIST is a list of the sort returned by `symbol-plist'."
(setplist '--cl-getf-symbol-- plist)
(or (get '--cl-getf-symbol-- tag)
(and def (get* '--cl-getf-symbol-- tag def))))
;; Originally we called get* here,
;; but that fails, because get* has a compiler macro
;; definition that uses getf!
(when def
(while (and plist (not (eq (car plist) tag)))
(setq plist (cdr (cdr plist))))
(if plist (car (cdr plist)) def))))
(defun cl-set-getf (plist tag val)
(let ((p plist))