mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases 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))