comparison src/minibuf.c @ 71120:3c66cf4b4ded

(Vhistory_add_new_input): New variable. (read_minibuf): Use it. (syms_of_minibuf) <history-add-new-input>: New Lisp variable. (syms_of_minibuf) <history-delete-duplicates>: Doc fix.

71119:9c9b855e9a82

Lisp_Object Qhistory_length, Vhistory_length;

/* No duplicates in history.  */

int history_delete_duplicates;

/* Fread_minibuffer leaves the input here as a string. */

Lisp_Object last_minibuf_string;

    histstring = defalt;
  else
    histstring = Qnil;

  /* Add the value to the appropriate history list, if any.  */
  if (SYMBOLP (Vminibuffer_history_variable)
      && !NILP (histstring))
    {
      /* If the caller wanted to save the value read on a history list,
	 then do so if the value is not already the front of the list.  */
      Lisp_Object histval;

  XSETFASTINT (Vhistory_length, 30);

  DEFVAR_BOOL ("history-delete-duplicates", &history_delete_duplicates,
	       doc: /* *Non-nil means to delete duplicates in history.
If set to t when adding a new history element, all previous identical
elements are deleted.  */);
  history_delete_duplicates = 0;

  DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,
	       doc: /* *Non-nil means automatically provide help for invalid completion input.
Under Partial Completion mode, a non-nil, non-t value has a special meaning;
see the doc string of `partial-completion-mode' for more details.  */);

71120:3c66cf4b4ded

Lisp_Object Qhistory_length, Vhistory_length;

/* No duplicates in history.  */

int history_delete_duplicates;

/* Non-nil means add new input to history.  */

Lisp_Object Vhistory_add_new_input;

/* Fread_minibuffer leaves the input here as a string. */

Lisp_Object last_minibuf_string;

    histstring = defalt;
  else
    histstring = Qnil;

  /* Add the value to the appropriate history list, if any.  */
  if (!NILP (Vhistory_add_new_input)
      && SYMBOLP (Vminibuffer_history_variable)
      && !NILP (histstring))
    {
      /* If the caller wanted to save the value read on a history list,
	 then do so if the value is not already the front of the list.  */
      Lisp_Object histval;

  XSETFASTINT (Vhistory_length, 30);

  DEFVAR_BOOL ("history-delete-duplicates", &history_delete_duplicates,
	       doc: /* *Non-nil means to delete duplicates in history.
If set to t when adding a new history element, all previous identical
elements are deleted from the history list.  */);
  history_delete_duplicates = 0;

  DEFVAR_LISP ("history-add-new-input", &Vhistory_add_new_input,
	       doc: /* *Non-nil means to add new elements in history.
If set to nil, minibuffer reading functions don't add new elements to the
history list, so it is possible to do this afterwards by calling
`add-to-history' explicitly.  */);
  Vhistory_add_new_input = Qt;

  DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,
	       doc: /* *Non-nil means automatically provide help for invalid completion input.
Under Partial Completion mode, a non-nil, non-t value has a special meaning;
see the doc string of `partial-completion-mode' for more details.  */);