Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 9d177e8d4150
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
75 "Within call to `completing-read', this holds the PREDICATE argument.") 75 "Within call to `completing-read', this holds the PREDICATE argument.")
76 76
77 (defvar minibuffer-completion-confirm nil 77 (defvar minibuffer-completion-confirm nil
78 "Non-nil => demand confirmation of completion before exiting minibuffer.") 78 "Non-nil => demand confirmation of completion before exiting minibuffer.")
79 79
80 (defvar minibuffer-confirm-incomplete nil 80 (defcustom minibuffer-confirm-incomplete nil
81 "If true, then in contexts where completing-read allows answers which 81 "If true, then in contexts where completing-read allows answers which
82 are not valid completions, an extra RET must be typed to confirm the 82 are not valid completions, an extra RET must be typed to confirm the
83 response. This is helpful for catching typos, etc.") 83 response. This is helpful for catching typos, etc."
84 :type 'boolean
85 :group 'minibuffer)
84 86
85 (defcustom completion-auto-help t 87 (defcustom completion-auto-help t
86 "*Non-nil means automatically provide help for invalid completion input." 88 "*Non-nil means automatically provide help for invalid completion input."
87 :type 'boolean 89 :type 'boolean
88 :group 'minibuffer) 90 :group 'minibuffer)
1246 \(Previous history elements refer to earlier actions.) 1248 \(Previous history elements refer to earlier actions.)
1247 With prefix argument N, search for Nth previous match. 1249 With prefix argument N, search for Nth previous match.
1248 If N is negative, find the next or Nth next match." 1250 If N is negative, find the next or Nth next match."
1249 (interactive 1251 (interactive
1250 (let ((enable-recursive-minibuffers t) 1252 (let ((enable-recursive-minibuffers t)
1251 (minibuffer-history-sexp-flag nil)) 1253 (minibuffer-history-sexp-flag nil)
1254 (minibuffer-max-depth (and minibuffer-max-depth
1255 (1+ minibuffer-max-depth))))
1252 (if (eq 't (symbol-value minibuffer-history-variable)) 1256 (if (eq 't (symbol-value minibuffer-history-variable))
1253 (error "History is not being recorded in this context")) 1257 (error "History is not being recorded in this context"))
1254 (list (read-from-minibuffer "Previous element matching (regexp): " 1258 (list (read-from-minibuffer "Previous element matching (regexp): "
1255 (car minibuffer-history-search-history) 1259 (car minibuffer-history-search-history)
1256 minibuffer-local-map 1260 minibuffer-local-map
1294 \(The next history element refers to a more recent action.) 1298 \(The next history element refers to a more recent action.)
1295 With prefix argument N, search for Nth next match. 1299 With prefix argument N, search for Nth next match.
1296 If N is negative, find the previous or Nth previous match." 1300 If N is negative, find the previous or Nth previous match."
1297 (interactive 1301 (interactive
1298 (let ((enable-recursive-minibuffers t) 1302 (let ((enable-recursive-minibuffers t)
1299 (minibuffer-history-sexp-flag nil)) 1303 (minibuffer-history-sexp-flag nil)
1304 (minibuffer-max-depth (and minibuffer-max-depth
1305 (1+ minibuffer-max-depth))))
1300 (if (eq t (symbol-value minibuffer-history-variable)) 1306 (if (eq t (symbol-value minibuffer-history-variable))
1301 (error "History is not being recorded in this context")) 1307 (error "History is not being recorded in this context"))
1302 (list (read-from-minibuffer "Next element matching (regexp): " 1308 (list (read-from-minibuffer "Next element matching (regexp): "
1303 (car minibuffer-history-search-history) 1309 (car minibuffer-history-search-history)
1304 minibuffer-local-map 1310 minibuffer-local-map
1644 history) 1650 history)
1645 "Read file name, prompting with PROMPT and completing in directory DIR. 1651 "Read file name, prompting with PROMPT and completing in directory DIR.
1646 This will prompt with a dialog box if appropriate, according to 1652 This will prompt with a dialog box if appropriate, according to
1647 `should-use-dialog-box-p'. 1653 `should-use-dialog-box-p'.
1648 Value is not expanded---you must call `expand-file-name' yourself. 1654 Value is not expanded---you must call `expand-file-name' yourself.
1649 Value is subject to interpreted by substitute-in-file-name however. 1655 Value is subject to interpretation by `substitute-in-file-name' however.
1650 Default name to DEFAULT if user enters a null string. 1656 Default name to DEFAULT if user enters a null string.
1651 (If DEFAULT is omitted, the visited file name is used, 1657 (If DEFAULT is omitted, the visited file name is used,
1652 except that if INITIAL-CONTENTS is specified, that combined with DIR is 1658 except that if INITIAL-CONTENTS is specified, that combined with DIR is
1653 used.) 1659 used.)
1654 Fourth arg MUST-MATCH non-nil means require existing file's name. 1660 Fourth arg MUST-MATCH non-nil means require existing file's name.