aboutsummaryrefslogtreecommitdiffstats
path: root/src/minibuf.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/minibuf.c')
-rw-r--r--src/minibuf.c35
1 files changed, 18 insertions, 17 deletions
diff --git a/src/minibuf.c b/src/minibuf.c
index 54cb9c1acd7..6316ba514b9 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -45,7 +45,7 @@ Lisp_Object Vminibuffer_list;
45 45
46/* Data to remember during recursive minibuffer invocations */ 46/* Data to remember during recursive minibuffer invocations */
47 47
48Lisp_Object minibuf_save_list; 48static Lisp_Object minibuf_save_list;
49 49
50/* Depth in minibuffer invocations. */ 50/* Depth in minibuffer invocations. */
51 51
@@ -53,35 +53,35 @@ int minibuf_level;
53 53
54/* The maximum length of a minibuffer history. */ 54/* The maximum length of a minibuffer history. */
55 55
56Lisp_Object Qhistory_length; 56static Lisp_Object Qhistory_length;
57 57
58/* Fread_minibuffer leaves the input here as a string. */ 58/* Fread_minibuffer leaves the input here as a string. */
59 59
60Lisp_Object last_minibuf_string; 60Lisp_Object last_minibuf_string;
61 61
62Lisp_Object Qminibuffer_history, Qbuffer_name_history; 62static Lisp_Object Qminibuffer_history, Qbuffer_name_history;
63 63
64Lisp_Object Qread_file_name_internal; 64static Lisp_Object Qread_file_name_internal;
65 65
66/* Normal hooks for entry to and exit from minibuffer. */ 66/* Normal hooks for entry to and exit from minibuffer. */
67 67
68Lisp_Object Qminibuffer_setup_hook; 68static Lisp_Object Qminibuffer_setup_hook;
69Lisp_Object Qminibuffer_exit_hook; 69static Lisp_Object Qminibuffer_exit_hook;
70 70
71Lisp_Object Qcompletion_ignore_case; 71Lisp_Object Qcompletion_ignore_case;
72Lisp_Object Qminibuffer_completion_table; 72static Lisp_Object Qminibuffer_completion_table;
73Lisp_Object Qminibuffer_completion_predicate; 73static Lisp_Object Qminibuffer_completion_predicate;
74Lisp_Object Qminibuffer_completion_confirm; 74static Lisp_Object Qminibuffer_completion_confirm;
75Lisp_Object Qcompleting_read_default; 75static Lisp_Object Qcompleting_read_default;
76Lisp_Object Quser_variable_p; 76static Lisp_Object Quser_variable_p;
77 77
78Lisp_Object Qminibuffer_default; 78static Lisp_Object Qminibuffer_default;
79 79
80Lisp_Object Qcurrent_input_method, Qactivate_input_method; 80static Lisp_Object Qcurrent_input_method, Qactivate_input_method;
81 81
82Lisp_Object Qcase_fold_search; 82static Lisp_Object Qcase_fold_search;
83 83
84Lisp_Object Qread_expression_history; 84static Lisp_Object Qread_expression_history;
85 85
86/* Prompt to display in front of the mini-buffer contents. */ 86/* Prompt to display in front of the mini-buffer contents. */
87 87
@@ -97,7 +97,7 @@ static EMACS_INT minibuf_prompt_width;
97 We do this whenever the user starts a new minibuffer 97 We do this whenever the user starts a new minibuffer
98 or when a minibuffer exits. */ 98 or when a minibuffer exits. */
99 99
100void 100static void
101choose_minibuf_frame (void) 101choose_minibuf_frame (void)
102{ 102{
103 if (FRAMEP (selected_frame) 103 if (FRAMEP (selected_frame)
@@ -872,7 +872,8 @@ read_minibuf_unwind (Lisp_Object data)
872} 872}
873 873
874 874
875DEFUN ("read-from-minibuffer", Fread_from_minibuffer, Sread_from_minibuffer, 1, 7, 0, 875DEFUN ("read-from-minibuffer", Fread_from_minibuffer,
876 Sread_from_minibuffer, 1, 7, 0,
876 doc: /* Read a string from the minibuffer, prompting with string PROMPT. 877 doc: /* Read a string from the minibuffer, prompting with string PROMPT.
877The optional second arg INITIAL-CONTENTS is an obsolete alternative to 878The optional second arg INITIAL-CONTENTS is an obsolete alternative to
878 DEFAULT-VALUE. It normally should be nil in new code, except when 879 DEFAULT-VALUE. It normally should be nil in new code, except when