diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-30 18:45:37 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-30 18:45:37 +0100 |
| commit | 2a4f37fe520b4f18295cff6671f289a47c1578df (patch) | |
| tree | 6061489df433080d5a3da4a8eb33fd269d2bcb95 /lisp/emacs-lisp/cl-extra.el | |
| parent | d33998ed3b5e05a40b9c4c1799b6e911b582ef01 (diff) | |
| parent | 3fa4cca3d244f51e471e7779c934278731fc21e9 (diff) | |
| download | emacs-2a4f37fe520b4f18295cff6671f289a47c1578df.tar.gz emacs-2a4f37fe520b4f18295cff6671f289a47c1578df.tar.bz2 emacs-2a4f37fe520b4f18295cff6671f289a47c1578df.zip | |
Merge remote-tracking branch 'origin/master' into feature/package+vc
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 7c7f027d777..66b214554ee 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -615,12 +615,12 @@ PROPLIST is a list of the sort returned by `symbol-plist'. ,(funcall setter `(cl--set-getf ,getter ,k ,val)) ,val))))))))) - (let ((val-tail (cdr-safe (plist-member plist tag)))) + (let ((val-tail (cdr (plist-member plist tag)))) (if val-tail (car val-tail) def))) ;;;###autoload (defun cl--set-getf (plist tag val) - (let ((val-tail (cdr-safe (plist-member plist tag)))) + (let ((val-tail (cdr (plist-member plist tag)))) (if val-tail (progn (setcar val-tail val) plist) (cl-list* tag val plist)))) |