Skip to content

GitLab

emacs
emacs
Commit 6dd05c14 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files
Options

(Fread_command, Fread_variable): Fix previous change.

parent 96f90544
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/minibuf.c
View file @ 6dd05c14
......@@ -761,7 +761,7 @@ Prompts with PROMPT. By default, return DEFAULT-VALUE.")
if (NILP (default_value))
default_string = Qnil;
else if (SYMBOLP (default_value))
default_string = XSYMBOL (default_value)->name;
XSETSTRING (default_string, XSYMBOL (default_value)->name);
else
default_string = default_value;
......@@ -796,7 +796,7 @@ A user variable is one whose documentation starts with a `*' character.")
if (NILP (default_value))
default_string = Qnil;
else if (SYMBOLP (default_value))
default_string = XSYMBOL (default_value)->name;
XSETSTRING (default_string, XSYMBOL (default_value)->name);
else
default_string = default_value;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment