Mercurial > hg > xemacs-beta

comparison lisp/utils/detached-minibuf.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 4103f0995bd7
children
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
33 ;;; Code: 33 ;;; Code:
34 34
35 ;; 35 ;;
36 ;; Variable definitions 36 ;; Variable definitions
37 37
38 (defvar add-minibuf-options t 38 (defgroup detached-minibuf nil
39 "Support a detached minibuffer in XEmacs"
40 :group 'minibuffer
41 :prefix "minibuf-frame-"
42 :group 'frames)
43
44
45 (defcustom add-minibuf-options t
39 "*If nil, prevent minibuffer options from being added to the Options menu.\ 46 "*If nil, prevent minibuffer options from being added to the Options menu.\
40 This must be set before detached-minibuf is loaded.") 47 This must be set before detached-minibuf is loaded."
41 (defvar minibuf-frame-height 1 48 :type 'boolean
42 "*The height in lines of the minibuffer frame created by make-detached-minibuf") 49 :group 'detached-minibuf)
43 (defvar minibuf-frame-width (frame-width (selected-frame)) 50 (defcustom minibuf-frame-height 1
44 "*The width in chars of the minibuffer frame created by make-detached-minibuf") 51 "*The height in lines of the minibuffer frame created by make-detached-minibuf"
45 (defvar minibuf-frame-pos-y -2 52 :type 'integer
46 "*The y position of the minibuffer frame as created by make-detached-minibuf") 53 :group 'detached-minibuf)
47 (defvar minibuf-frame-pos-x -2 54 (defcustom minibuf-frame-width (frame-width (selected-frame))
48 "*The x position of the minibuffer frame as created by make-detached-minibuf") 55 "*The width in chars of the minibuffer frame created by make-detached-minibuf"
56 :type 'integer
57 :group 'detached-minibuf)
58 (defcustom minibuf-frame-pos-y -2
59 "*The y position of the minibuffer frame as created by make-detached-minibuf"
60 :type 'integer
61 :group 'detached-minibuf)
62 (defcustom minibuf-frame-pos-x -2
63 "*The x position of the minibuffer frame as created by make-detached-minibuf"
64 :type 'integer
65 :group 'detached-minibuf)
49 66
50 ;; 67 ;;
51 ;; Add minibuffer options to the Options menu 68 ;; Add minibuffer options to the Options menu
52 (if add-minibuf-options 69 (if add-minibuf-options
53 (progn 70 (progn