Mercurial > emacs
comparison src/minibuf.c @ 20523:376e39d748b9
(Fread_command, Fread_variable): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 27 Dec 1997 08:16:00 +0000 |
| parents | d14360d1f6ed |
| children | 7ffd3d9afeb4 |
comparison
equal
deleted
inserted
replaced
| 20522:4409f95651d1 | 20523:376e39d748b9 |
|---|---|
| 759 Lisp_Object name, default_string; | 759 Lisp_Object name, default_string; |
| 760 | 760 |
| 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 |
| 768 name = Fcompleting_read (prompt, Vobarray, Qcommandp, Qt, | 768 name = Fcompleting_read (prompt, Vobarray, Qcommandp, Qt, |
| 769 Qnil, Qnil, default_string, Qnil); | 769 Qnil, Qnil, default_string, Qnil); |
| 794 Lisp_Object name, default_string; | 794 Lisp_Object name, default_string; |
| 795 | 795 |
| 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 |
| 803 name = Fcompleting_read (prompt, Vobarray, | 803 name = Fcompleting_read (prompt, Vobarray, |
| 804 Quser_variable_p, Qt, | 804 Quser_variable_p, Qt, |