cgit.sxemacs.org Git - sxemacs/blob - lisp/minibuf.el

   1 ;;; minibuf.el --- Minibuffer functions for SXEmacs
   2
   3 ;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1995 Tinker Systems.
   5 ;; Copyright (C) 1995, 1996, 2000 Ben Wing.
   6
   7 ;; Author: Richard Mlynarik
   8 ;; Created: 2-Oct-92
   9 ;; Maintainer: SXEmacs Development Team
  10 ;; Keywords: internal, dumped
  11
  12 ;; This file is part of SXEmacs.
  13
  14 ;; SXEmacs is free software: you can redistribute it and/or modify
  15 ;; it under the terms of the GNU General Public License as published by
  16 ;; the Free Software Foundation, either version 3 of the License, or
  17 ;; (at your option) any later version.
  18
  19 ;; SXEmacs is distributed in the hope that it will be useful,
  20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 ;; GNU General Public License for more details.
  23
  24 ;; You should have received a copy of the GNU General Public License
  25 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  26
  27 ;;; Synched up with: all the minibuffer history stuff is synched with
  28 ;;; 19.30.  Not sure about the rest.
  29
  30 ;;; Commentary:
  31
  32 ;; This file is dumped with SXEmacs.
  33
  34 ;; Written by Richard Mlynarik 2-Oct-92
  35
  36 ;; 06/11/1997 -  Use char-(after|before) instead of
  37 ;;  (following|preceding)-char. -slb
  38
  39 ;;; Code:
  40
  41 (defgroup minibuffer nil
  42   "Controling the behavior of the minibuffer."
  43   :group 'environment)
  44
  45
  46 (defcustom insert-default-directory t
  47  "*Non-nil means when reading a filename start with default dir in minibuffer."
  48  :type 'boolean
  49  :group 'minibuffer)
  50
  51 (defcustom minibuffer-history-uniquify t
  52   "*Non-nil means when adding an item to a minibuffer history, remove
  53 previous occurrences of the same item from the history list first,
  54 rather than just consing the new element onto the front of the list."
  55   :type 'boolean
  56   :group 'minibuffer)
  57
  58 (defvar minibuffer-completion-table nil
  59   "Alist or obarray used for completion in the minibuffer.
  60 This becomes the ALIST argument to `try-completion' and `all-completions'.
  61
  62 The value may alternatively be a function, which is given three arguments:
  63   STRING, the current buffer contents;
  64   PREDICATE, the predicate for filtering possible matches;
  65   CODE, which says what kind of things to do.
  66 CODE can be nil, t or `lambda'.
  67 nil means to return the best completion of STRING, nil if there is none,
  68   or t if it is already a unique completion.
  69 t means to return a list of all possible completions of STRING.
  70 `lambda' means to return t if STRING is a valid completion as it stands.")
  71
  72 (defvar minibuffer-completion-predicate nil
  73   "Within call to `completing-read', this holds the PREDICATE argument.")
  74
  75 (defvar minibuffer-completion-confirm nil
  76   "Non-nil => demand confirmation of completion before exiting minibuffer.")
  77
  78 (defcustom minibuffer-confirm-incomplete nil
  79   "If true, then in contexts where completing-read allows answers which
  80 are not valid completions, an extra RET must be typed to confirm the
  81 response.  This is helpful for catching typos, etc."
  82   :type 'boolean
  83   :group 'minibuffer)
  84
  85 (defcustom completion-auto-help t
  86   "*Non-nil means automatically provide help for invalid completion input."
  87   :type 'boolean
  88   :group 'minibuffer)
  89
  90 (defcustom enable-recursive-minibuffers nil