diff options
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 35 |
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 | ||
| 48 | Lisp_Object minibuf_save_list; | 48 | static 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 | ||
| 56 | Lisp_Object Qhistory_length; | 56 | static 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 | ||
| 60 | Lisp_Object last_minibuf_string; | 60 | Lisp_Object last_minibuf_string; |
| 61 | 61 | ||
| 62 | Lisp_Object Qminibuffer_history, Qbuffer_name_history; | 62 | static Lisp_Object Qminibuffer_history, Qbuffer_name_history; |
| 63 | 63 | ||
| 64 | Lisp_Object Qread_file_name_internal; | 64 | static 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 | ||
| 68 | Lisp_Object Qminibuffer_setup_hook; | 68 | static Lisp_Object Qminibuffer_setup_hook; |
| 69 | Lisp_Object Qminibuffer_exit_hook; | 69 | static Lisp_Object Qminibuffer_exit_hook; |
| 70 | 70 | ||
| 71 | Lisp_Object Qcompletion_ignore_case; | 71 | Lisp_Object Qcompletion_ignore_case; |
| 72 | Lisp_Object Qminibuffer_completion_table; | 72 | static Lisp_Object Qminibuffer_completion_table; |
| 73 | Lisp_Object Qminibuffer_completion_predicate; | 73 | static Lisp_Object Qminibuffer_completion_predicate; |
| 74 | Lisp_Object Qminibuffer_completion_confirm; | 74 | static Lisp_Object Qminibuffer_completion_confirm; |
| 75 | Lisp_Object Qcompleting_read_default; | 75 | static Lisp_Object Qcompleting_read_default; |
| 76 | Lisp_Object Quser_variable_p; | 76 | static Lisp_Object Quser_variable_p; |
| 77 | 77 | ||
| 78 | Lisp_Object Qminibuffer_default; | 78 | static Lisp_Object Qminibuffer_default; |
| 79 | 79 | ||
| 80 | Lisp_Object Qcurrent_input_method, Qactivate_input_method; | 80 | static Lisp_Object Qcurrent_input_method, Qactivate_input_method; |
| 81 | 81 | ||
| 82 | Lisp_Object Qcase_fold_search; | 82 | static Lisp_Object Qcase_fold_search; |
| 83 | 83 | ||
| 84 | Lisp_Object Qread_expression_history; | 84 | static 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 | ||
| 100 | void | 100 | static void |
| 101 | choose_minibuf_frame (void) | 101 | choose_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 | ||
| 875 | DEFUN ("read-from-minibuffer", Fread_from_minibuffer, Sread_from_minibuffer, 1, 7, 0, | 875 | DEFUN ("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. |
| 877 | The optional second arg INITIAL-CONTENTS is an obsolete alternative to | 878 | The 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 |