On 6/27/05, Juri Linkov <[EMAIL PROTECTED]> wrote: > IMO, `set-variable' should > accept an alias when it is not marked as obsolete.
Try this patch, please. It doesn't modify `set-variable' but `user-variable-p', so it returns t for non-obsolete aliases of user variables. (Anyway, is that a new feature or a bug fix?) -- /L/e/k/t/u Index: src/eval.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/eval.c,v retrieving revision 1.245 diff -u -2 -r1.245 eval.c --- src/eval.c 27 Jun 2005 05:59:23 -0000 1.245 +++ src/eval.c 27 Jun 2005 13:03:26 -0000 @@ -94,4 +94,5 @@ Lisp_Object Qdebug_on_error; Lisp_Object Qdeclare; +Lisp_Object Qbyte_obsolete_variable; /* This holds either the symbol `run-hooks' or nil. @@ -894,10 +895,12 @@ \(The alternative is a variable used internally in a Lisp program.) Determined by whether the first character of the documentation -for the variable is `*' or if the variable is customizable (has a non-nil -value of `standard-value' or of `custom-autoload' on its property list). */) +for the variable is `*', the variable is customizable (has a non-nil +value of `standard-value' or of `custom-autoload' on its property list), +or it is a non-obsolete alias for another user variable. */) (variable) Lisp_Object variable; { Lisp_Object documentation; + struct Lisp_Symbol *sym; if (!SYMBOLP (variable)) @@ -920,4 +923,10 @@ || (!NILP (Fget (variable, intern ("custom-autoload"))))) return Qt; + + sym = XSYMBOL (variable); + if (sym->indirect_variable + && NILP (Fget (variable, Qbyte_obsolete_variable))) + return Fuser_variable_p (sym->value); + return Qnil; } @@ -3410,4 +3419,7 @@ staticpro (&Qdeclare); + Qbyte_obsolete_variable = intern ("byte-obsolete-variable"); + staticpro (&Qbyte_obsolete_variable); + /* Note that the process handling also uses Qexit, but we don't want to staticpro it twice, so we just do it here. */ _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel