Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 27bc7f280385
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; minibuf.el 1 ;;; minibuf.el -- Minibuffer support functions for XEmacs
2
2 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
3 ;; Copyright (C) 1995 Tinker Systems 4 ;; Copyright (C) 1995 Tinker Systems
4 ;; Copyright (C) 1995, 1996 Ben Wing 5 ;; Copyright (C) 1995, 1996 Ben Wing
5 6
7 ;; Author: Richard Mlynarik
8 ;; Keywords: internal
9
6 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
7 11
8 ;; XEmacs is free software; you can redistribute it and/or modify it 12 ;; XEmacs is free software; you can redistribute it and/or modify it
9 ;; under the terms of the GNU General Public License as published by 13 ;; under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 2, or (at your option) 14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;; General Public License for more details. 20 ;; General Public License for more details.
17 21
18 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the Free 23 ;; along with XEmacs; see the file COPYING. If not, write to the Free
20 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;; 02111-1307, USA.
21 26
22 ;;; Synched up with: all the minibuffer history stuff is synched with 27 ;;; Synched up with: all the minibuffer history stuff is synched with
23 ;;; 19.30. Not sure about the rest. 28 ;;; 19.34. Not sure about the rest.
24 29
25 ;;; Commentary: 30 ;;; Commentary:
26 31
27 ;; Written by Richard Mlynarik 2-Oct-92 32 ;; Written by Richard Mlynarik 2-Oct-92
28 33
154 (define-key map "\t" 'comint-dynamic-complete) 159 (define-key map "\t" 'comint-dynamic-complete)
155 (define-key map "\M-\t" 'comint-dynamic-complete) 160 (define-key map "\M-\t" 'comint-dynamic-complete)
156 (define-key map "\M-?" 'comint-dynamic-list-completions) 161 (define-key map "\M-?" 'comint-dynamic-list-completions)
157 map) 162 map)
158 "Minibuffer keymap used by shell-command and related commands.") 163 "Minibuffer keymap used by shell-command and related commands.")
164
165 (defvar should-use-dialog-box t
166 "Variable controlling usage of the dialog box. If nil, the dialog box
167 will never be used, even in response to mouse events.")
159 168
160 (defvar minibuffer-electric-file-name-behavior t 169 (defvar minibuffer-electric-file-name-behavior t
161 "If non-nil, slash and tilde in certain places cause immediate deletion. 170 "If non-nil, slash and tilde in certain places cause immediate deletion.
162 These are the same places where this behavior would occur later on anyway, 171 These are the same places where this behavior would occur later on anyway,
163 in `substitute-in-file-name'.") 172 in `substitute-in-file-name'.")
2000 ;; even when dialog boxes are not present. 2009 ;; even when dialog boxes are not present.
2001 (defun should-use-dialog-box-p () 2010 (defun should-use-dialog-box-p ()
2002 "If non-nil, questions should be asked with a dialog box instead of the 2011 "If non-nil, questions should be asked with a dialog box instead of the
2003 minibuffer. This looks at `last-command-event' to see if it was a mouse 2012 minibuffer. This looks at `last-command-event' to see if it was a mouse
2004 event, and checks whether dialog-support exists and the current device 2013 event, and checks whether dialog-support exists and the current device
2005 supports dialog boxes." 2014 supports dialog boxes.
2015
2016 The dialog box is totally disabled if the variable `should-use-dialog-box'
2017 is set to nil."
2006 (and (featurep 'dialog) 2018 (and (featurep 'dialog)
2007 (device-on-window-system-p) 2019 (device-on-window-system-p)
2020 should-use-dialog-box
2008 (or force-dialog-box-use 2021 (or force-dialog-box-use
2009 (button-press-event-p last-command-event) 2022 (button-press-event-p last-command-event)
2010 (button-release-event-p last-command-event) 2023 (button-release-event-p last-command-event)
2011 (misc-user-event-p last-command-event)))) 2024 (misc-user-event-p last-command-event))))