branch: externals/compat
commit 0becbec1c939d9794e2dfd14bf8ac152da9f7585
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Replace an instance of cdddr with nthcdr
---
compat-26.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compat-26.el b/compat-26.el
index 136fcb466d..294b197331 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -454,7 +454,7 @@ If VALUE is nil, PROPERTY is removed from IMAGE."
;; plist. Decouple plist entries where the key matches
;; the property.
(if (eq (cadr image) property)
- (setcdr image (cdddr image))
+ (setcdr image (nthcdr 3 image))
(setq image (cddr image))))
;; Just enter the new value.
(setcdr image (plist-put (cdr image) property value)))))
