diff options
| author | Richard M. Stallman | 1994-09-22 07:41:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-22 07:41:35 +0000 |
| commit | 6b3faad82b11e79694f2f1675c68c9d2ce111919 (patch) | |
| tree | 6cb2a86765168ee649619b2e1af6dd79081b1e7c /src | |
| parent | 4efe9929080c33afe292389d6d17a0d1f9ef0c60 (diff) | |
| download | emacs-6b3faad82b11e79694f2f1675c68c9d2ce111919.tar.gz emacs-6b3faad82b11e79694f2f1675c68c9d2ce111919.zip | |
(Fcompleting_read): Doc fix.
(get_minibuffer): Make BUF current to kill its local vars.
Diffstat (limited to 'src')
| -rw-r--r-- | src/minibuf.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 1a359e91f51..3654c01d845 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -339,8 +339,13 @@ get_minibuffer (depth) | |||
| 339 | } | 339 | } |
| 340 | else | 340 | else |
| 341 | { | 341 | { |
| 342 | int count = specpdl_ptr - specpdl; | ||
| 343 | |||
| 342 | reset_buffer (XBUFFER (buf)); | 344 | reset_buffer (XBUFFER (buf)); |
| 343 | Fkill_all_local_variables (buf); | 345 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
| 346 | Fset_buffer (buf); | ||
| 347 | Fkill_all_local_variables (); | ||
| 348 | unbind_to (count, Qnil); | ||
| 344 | } | 349 | } |
| 345 | 350 | ||
| 346 | return buf; | 351 | return buf; |
| @@ -925,7 +930,8 @@ Args: PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST.\n\ | |||
| 925 | PROMPT is a string to prompt with; normally it ends in a colon and a space.\n\ | 930 | PROMPT is a string to prompt with; normally it ends in a colon and a space.\n\ |
| 926 | TABLE is an alist whose elements' cars are strings, or an obarray.\n\ | 931 | TABLE is an alist whose elements' cars are strings, or an obarray.\n\ |
| 927 | PREDICATE limits completion to a subset of TABLE.\n\ | 932 | PREDICATE limits completion to a subset of TABLE.\n\ |
| 928 | See `try-completion' for more details on completion, TABLE, and PREDICATE.\n\ | 933 | See `try-completion' and `all-completions' for more details |
| 934 | on completion, TABLE, and PREDICATE.\n\ | ||
| 929 | \n\ | 935 | \n\ |
| 930 | If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless\n\ | 936 | If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless\n\ |
| 931 | the input is (or completes to) an element of TABLE or is null.\n\ | 937 | the input is (or completes to) an element of TABLE or is null.\n\ |