Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 96:dbb370e3c29e r20-0final

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0final
author cvs
date Mon, 13 Aug 2007 09:12:40 +0200
parents 54cc21c15cbb
children 4be1180a9e89
comparison
equal deleted inserted replaced
95:e8c07a565f9c 96:dbb370e3c29e
156 (define-key map "\M-\t" 'comint-dynamic-complete) 156 (define-key map "\M-\t" 'comint-dynamic-complete)
157 (define-key map "\M-?" 'comint-dynamic-list-completions) 157 (define-key map "\M-?" 'comint-dynamic-list-completions)
158 map) 158 map)
159 "Minibuffer keymap used by shell-command and related commands.") 159 "Minibuffer keymap used by shell-command and related commands.")
160 160
161 (defvar should-use-dialog-box t 161 (defvar use-dialog-box t
162 "Variable controlling usage of the dialog box. If nil, the dialog box 162 "Variable controlling usage of the dialog box. If nil, the dialog box
163 will never be used, even in response to mouse events.") 163 will never be used, even in response to mouse events.")
164 164
165 (defvar minibuffer-electric-file-name-behavior t 165 (defvar minibuffer-electric-file-name-behavior t
166 "If non-nil, slash and tilde in certain places cause immediate deletion. 166 "If non-nil, slash and tilde in certain places cause immediate deletion.
2005 "If non-nil, questions should be asked with a dialog box instead of the 2005 "If non-nil, questions should be asked with a dialog box instead of the
2006 minibuffer. This looks at `last-command-event' to see if it was a mouse 2006 minibuffer. This looks at `last-command-event' to see if it was a mouse
2007 event, and checks whether dialog-support exists and the current device 2007 event, and checks whether dialog-support exists and the current device
2008 supports dialog boxes. 2008 supports dialog boxes.
2009 2009
2010 The dialog box is totally disabled if the variable `should-use-dialog-box' 2010 The dialog box is totally disabled if the variable `use-dialog-box'
2011 is set to nil." 2011 is set to nil."
2012 (and (featurep 'dialog) 2012 (and (featurep 'dialog)
2013 (device-on-window-system-p) 2013 (device-on-window-system-p)
2014 should-use-dialog-box 2014 use-dialog-box
2015 (or force-dialog-box-use 2015 (or force-dialog-box-use
2016 (button-press-event-p last-command-event) 2016 (button-press-event-p last-command-event)
2017 (button-release-event-p last-command-event) 2017 (button-release-event-p last-command-event)
2018 (misc-user-event-p last-command-event)))) 2018 (misc-user-event-p last-command-event))))
2019 2019