diff options
| author | Karl Heuer | 1994-03-21 01:39:07 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-21 01:39:07 +0000 |
| commit | 9aab521af638669367337d8e7826e4185c83fd83 (patch) | |
| tree | 73d2bc30f334abb496553a4cfcba390cd83f063b /src/data.c | |
| parent | a7605222758da297fc452714e200f58eab71bfb2 (diff) | |
| download | emacs-9aab521af638669367337d8e7826e4185c83fd83.tar.gz emacs-9aab521af638669367337d8e7826e4185c83fd83.zip | |
(Fmake_local_variable): Void variables stay void.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 3fa8af55c77..b5637f9571b 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1113,6 +1113,8 @@ DEFUN ("make-local-variable", Fmake_local_variable, Smake_local_variable, | |||
| 1113 | 1, 1, "vMake Local Variable: ", | 1113 | 1, 1, "vMake Local Variable: ", |
| 1114 | "Make VARIABLE have a separate value in the current buffer.\n\ | 1114 | "Make VARIABLE have a separate value in the current buffer.\n\ |
| 1115 | Other buffers will continue to share a common default value.\n\ | 1115 | Other buffers will continue to share a common default value.\n\ |
| 1116 | \(The buffer-local value of VARIABLE starts out as the same value\n | ||
| 1117 | VARIABLE previously had. If VARIABLE was void, it remains void.\)\n | ||
| 1116 | See also `make-variable-buffer-local'.\n\n\ | 1118 | See also `make-variable-buffer-local'.\n\n\ |
| 1117 | If the variable is already arranged to become local when set,\n\ | 1119 | If the variable is already arranged to become local when set,\n\ |
| 1118 | this function causes a local value to exist for this buffer,\n\ | 1120 | this function causes a local value to exist for this buffer,\n\ |
| @@ -1141,8 +1143,6 @@ just as if the variable were set.") | |||
| 1141 | /* Make sure sym is set up to hold per-buffer values */ | 1143 | /* Make sure sym is set up to hold per-buffer values */ |
| 1142 | if (XTYPE (valcontents) != Lisp_Some_Buffer_Local_Value) | 1144 | if (XTYPE (valcontents) != Lisp_Some_Buffer_Local_Value) |
| 1143 | { | 1145 | { |
| 1144 | if (EQ (valcontents, Qunbound)) | ||
| 1145 | XSYMBOL (sym)->value = Qnil; | ||
| 1146 | tem = Fcons (Qnil, do_symval_forwarding (valcontents)); | 1146 | tem = Fcons (Qnil, do_symval_forwarding (valcontents)); |
| 1147 | XCONS (tem)->car = tem; | 1147 | XCONS (tem)->car = tem; |
| 1148 | XSYMBOL (sym)->value = Fcons (XSYMBOL (sym)->value, Fcons (Qnil, tem)); | 1148 | XSYMBOL (sym)->value = Fcons (XSYMBOL (sym)->value, Fcons (Qnil, tem)); |