Mercurial > emacs
changeset 93989:9bbb41788fd4
(Fdefvaralias): If the alias is bound and the target is not, set the
target's value to that of the alias.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 11 Apr 2008 03:41:23 +0000 |
| parents | 564007cfcf46 |
| children | 7f03edf180ca |
| files | src/eval.c |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Fri Apr 11 02:30:24 2008 +0000 +++ b/src/eval.c Fri Apr 11 03:41:23 2008 +0000 @@ -772,9 +772,10 @@ doc: /* Make NEW-ALIAS a variable alias for symbol BASE-VARIABLE. Aliased variables always have the same value; setting one sets the other. Third arg DOCSTRING, if non-nil, is documentation for NEW-ALIAS. If it is - omitted or nil, NEW-ALIAS gets the documentation string of BASE-VARIABLE, - or of the variable at the end of the chain of aliases, if BASE-VARIABLE is - itself an alias. +omitted or nil, NEW-ALIAS gets the documentation string of BASE-VARIABLE, +or of the variable at the end of the chain of aliases, if BASE-VARIABLE is +itself an alias. If NEW-ALIAS is bound, and BASE-VARIABLE is not, +then the value of BASE-VARIABLE is set to that of NEW-ALIAS. The return value is BASE-VARIABLE. */) (new_alias, base_variable, docstring) Lisp_Object new_alias, base_variable, docstring; @@ -788,6 +789,12 @@ error ("Cannot make a constant an alias"); sym = XSYMBOL (new_alias); + /* http://lists.gnu.org/archive/html/emacs-devel/2008-04/msg00834.html + If n_a is bound, but b_v is not, set the value of b_v to n_a. + This is for the sake of define-obsolete-variable-alias and user + customizations. */ + if (NILP (Fboundp (base_variable)) && !NILP (Fboundp (new_alias))) + XSYMBOL(base_variable)->value = sym->value; sym->indirect_variable = 1; sym->value = base_variable; sym->constant = SYMBOL_CONSTANT_P (base_variable);