diff options
| author | Richard M. Stallman | 1997-12-27 08:16:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-12-27 08:16:00 +0000 |
| commit | 6dd05c14f27697dee875da38af03a950665998c2 (patch) | |
| tree | ac2769b9c511d8ed02e0be6441ed420b9df4d5eb | |
| parent | 96f905441658206abf312534cd6bdfeaf1dd869f (diff) | |
| download | emacs-6dd05c14f27697dee875da38af03a950665998c2.tar.gz emacs-6dd05c14f27697dee875da38af03a950665998c2.zip | |
(Fread_command, Fread_variable): Fix previous change.
| -rw-r--r-- | src/minibuf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 7de73d069e2..c08e2d3754b 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -761,7 +761,7 @@ Prompts with PROMPT. By default, return DEFAULT-VALUE.") | |||
| 761 | if (NILP (default_value)) | 761 | if (NILP (default_value)) |
| 762 | default_string = Qnil; | 762 | default_string = Qnil; |
| 763 | else if (SYMBOLP (default_value)) | 763 | else if (SYMBOLP (default_value)) |
| 764 | default_string = XSYMBOL (default_value)->name; | 764 | XSETSTRING (default_string, XSYMBOL (default_value)->name); |
| 765 | else | 765 | else |
| 766 | default_string = default_value; | 766 | default_string = default_value; |
| 767 | 767 | ||
| @@ -796,7 +796,7 @@ A user variable is one whose documentation starts with a `*' character.") | |||
| 796 | if (NILP (default_value)) | 796 | if (NILP (default_value)) |
| 797 | default_string = Qnil; | 797 | default_string = Qnil; |
| 798 | else if (SYMBOLP (default_value)) | 798 | else if (SYMBOLP (default_value)) |
| 799 | default_string = XSYMBOL (default_value)->name; | 799 | XSETSTRING (default_string, XSYMBOL (default_value)->name); |
| 800 | else | 800 | else |
| 801 | default_string = default_value; | 801 | default_string = default_value; |
| 802 | 802 | ||