From 4b52e77985b573d9f568a09d738ffa9237afabc4 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Sat, 12 Feb 2005 17:56:32 +0000 Subject: [PATCH] (custom-theme-set-variables): Handle variable aliases. --- lisp/custom.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index 06f21f7d0e8..13195c7f78f 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -777,7 +777,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')." (while args (let ((entry (car args))) (if (listp entry) - (let* ((symbol (nth 0 entry)) + (let* ((symbol (indirect-variable (nth 0 entry))) (value (nth 1 entry)) (now (nth 2 entry)) (requests (nth 3 entry)) @@ -809,7 +809,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')." (message "Warning: old format `custom-set-variables'") (ding) (sit-for 2) - (let ((symbol (nth 0 args)) + (let ((symbol (indirect-variable (nth 0 args))) (value (nth 1 args))) (put symbol 'saved-value (list value)) (custom-push-theme 'theme-value symbol theme 'set value)) -- 2.39.5