From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: custom and defalias Date: Sat, 19 Feb 2005 19:21:53 -0600 (CST) Message-ID: <200502200121.j1K1Lrq29264@raven.dms.auburn.edu> NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1108863491 888 80.91.229.2 (20 Feb 2005 01:38:11 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 20 Feb 2005 01:38:11 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Feb 20 02:38:11 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1D2g2u-00037G-NP for ged-emacs-devel@m.gmane.org; Sun, 20 Feb 2005 02:38:04 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D2gJZ-0007IZ-68 for ged-emacs-devel@m.gmane.org; Sat, 19 Feb 2005 20:55:17 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1D2gI2-0007D7-6j for emacs-devel@gnu.org; Sat, 19 Feb 2005 20:53:42 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1D2gHs-00077f-5M for emacs-devel@gnu.org; Sat, 19 Feb 2005 20:53:33 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D2gHq-00073N-Ul for emacs-devel@gnu.org; Sat, 19 Feb 2005 20:53:30 -0500 Original-Received: from [131.204.53.104] (helo=manatee.dms.auburn.edu) by monty-python.gnu.org with esmtp (Exim 4.34) id 1D2fpA-0003tP-Fz for emacs-devel@gnu.org; Sat, 19 Feb 2005 20:23:52 -0500 Original-Received: from raven.dms.auburn.edu (raven.dms.auburn.edu [131.204.53.29]) by manatee.dms.auburn.edu (8.12.10/8.12.10) with ESMTP id j1K1Np9N007824 for ; Sat, 19 Feb 2005 19:23:51 -0600 (CST) Original-Received: (from teirllm@localhost) by raven.dms.auburn.edu (8.11.7p1+Sun/8.11.7) id j1K1Lrq29264; Sat, 19 Feb 2005 19:21:53 -0600 (CST) X-Authentication-Warning: raven.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: emacs-devel@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: main.gmane.org gmane.emacs.devel:33640 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:33640 I relatively recently committed the patch below to custom.el. What the patch did was make Custom recognize aliases. For instance, the option `blink-cursor' was recently declared obsolete and made into an alias for `blink-cursor-mode'. Without the patch, if blink-cursor was set in the `custom-set-variables' form, it would no longer get recognized. After the patch it is recognized. But then Custom updates the obsolete `blink-cursor' with `blink-cursor-mode', which would be ideal, except that if one then uses the same custom-set-variables form in Emacs 21.3, it does not work any more. I do not know what to do with this. Here is the patch. To avoid confusion, it was _already_ installed a little while ago. ===File ~/custom.el-diff==================================== *** custom.el 10 Feb 2005 09:52:54 -0600 1.79 --- custom.el 10 Feb 2005 20:04:47 -0600 *************** *** 777,783 **** (while args (let ((entry (car args))) (if (listp entry) ! (let* ((symbol (nth 0 entry)) (value (nth 1 entry)) (now (nth 2 entry)) (requests (nth 3 entry)) --- 777,783 ---- (while args (let ((entry (car args))) (if (listp entry) ! (let* ((symbol (indirect-variable (nth 0 entry))) (value (nth 1 entry)) (now (nth 2 entry)) (requests (nth 3 entry)) *************** *** 809,815 **** (message "Warning: old format `custom-set-variables'") (ding) (sit-for 2) ! (let ((symbol (nth 0 args)) (value (nth 1 args))) (put symbol 'saved-value (list value)) (custom-push-theme 'theme-value symbol theme 'set value)) --- 809,815 ---- (message "Warning: old format `custom-set-variables'") (ding) (sit-for 2) ! (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)) ============================================================