mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(Qread_file_name_internal): New var.

Browse Source 
(syms_of_minibuf): Set it up and protect it.
(Fminibuffer_complete_word): When completing a file name,
expand envvar references.
This commit is contained in:
Richard M. Stallman 1993-08-15 03:54:35 +00:00
parent 94c8642adf
commit 719b4a405f
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/minibuf.c
View File

@ -75,6 +75,8 @@ Lisp_Object Vminibuffer_history_position;
Lisp_Object Qminibuffer_history;
Lisp_Object Qread_file_name_internal;
/* Normal hook for entry to minibuffer. */
Lisp_Object Qminibuffer_setup_hook, Vminibuffer_setup_hook;
@ -1175,6 +1177,19 @@ is added, provided that matches some possible completion.")
int buffer_length, completion_length;
tem = Fbuffer_string ();
/* If reading a file name,
expand any $ENVVAR refs in the buffer and in TEM. */
if (EQ (Vminibuffer_completion_table, Qread_file_name_internal))
{
Lisp_Object substituted;
substituted = Fsubstitute_in_file_name (tem);
if (! EQ (substituted, tem))
{
tem = substituted;
Ferase_buffer ();
insert_from_string (tem, 0, XSTRING (tem)->size);
}
}
buffer_string = XSTRING (tem)->data;
completion_string = XSTRING (completion)->data;
buffer_length = XSTRING (tem)->size; /* ie ZV - BEGV */
@ -1389,6 +1404,9 @@ syms_of_minibuf ()
minibuf_save_vector_size = 5;
minibuf_save_vector = (struct minibuf_save_data *) malloc (5 * sizeof (struct minibuf_save_data));
Qread_file_name_internal = intern ("read-file-name-internal");
staticpro (&Qread_file_name_internal);
Qminibuffer_completion_table = intern ("minibuffer-completion-table");
staticpro (&Qminibuffer_completion_table);