Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 78f53ef88e17
children 51092a27c943
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
59 * Specify X resources to give the geometry you want. 59 * Specify X resources to give the geometry you want.
60 * Set `default-frame-plist' to override these options so that they 60 * Set `default-frame-plist' to override these options so that they
61 don't affect subsequent frames. 61 don't affect subsequent frames.
62 * Set `initial-frame-plist' in a way that matches the X resources, 62 * Set `initial-frame-plist' in a way that matches the X resources,
63 to override what you put in `default-frame-plist'." 63 to override what you put in `default-frame-plist'."
64 :type '(repeat (group :inline t 64 :type 'plist
65 (symbol :tag "Property")
66 (sexp :tag "Value")))
67 :group 'frames) 65 :group 'frames)
68 66
69 (defcustom minibuffer-frame-plist '(width 80 height 2 menubar-visible-p nil 67 (defcustom minibuffer-frame-plist '(width 80 height 2 menubar-visible-p nil
70 default-toolbar-visible-p nil) 68 default-toolbar-visible-p nil)
71 "Plist of frame properties for initially creating a minibuffer frame. 69 "Plist of frame properties for initially creating a minibuffer frame.
72 You can set this in your `.emacs' file; for example, 70 You can set this in your `.emacs' file; for example,
73 (setq minibuffer-frame-plist '(top 1 left 1 width 80 height 2)) 71 (setq minibuffer-frame-plist '(top 1 left 1 width 80 height 2))
74 Properties specified here supersede the values given in 72 Properties specified here supersede the values given in
75 `default-frame-plist'. 73 `default-frame-plist'.
76 The format of this can also be an alist for backward compatibility." 74 The format of this can also be an alist for backward compatibility."
77 :type '(repeat (group :inline t 75 :type 'plist
78 (symbol :tag "Property")
79 (sexp :tag "Value")))
80 :group 'frames) 76 :group 'frames)
81 77
82 (defcustom pop-up-frame-plist nil 78 (defcustom pop-up-frame-plist nil
83 "Plist of frame properties used when creating pop-up frames. 79 "Plist of frame properties used when creating pop-up frames.
84 Pop-up frames are used for completions, help, and the like. 80 Pop-up frames are used for completions, help, and the like.
85 This variable can be set in your init file, like this: 81 This variable can be set in your init file, like this:
86 (setq pop-up-frame-plist '(width 80 height 20)) 82 (setq pop-up-frame-plist '(width 80 height 20))
87 These supersede the values given in `default-frame-plist'. 83 These supersede the values given in `default-frame-plist'.
88 The format of this can also be an alist for backward compatibility." 84 The format of this can also be an alist for backward compatibility."
89 :type '(repeat (group :inline t 85 :type 'plist
90 (symbol :tag "Property")
91 (sexp :tag "Value")))
92 :group 'frames) 86 :group 'frames)
93 87
94 (setq pop-up-frame-function 88 (setq pop-up-frame-function
95 (function (lambda () 89 (function (lambda ()
96 (make-frame pop-up-frame-plist)))) 90 (make-frame pop-up-frame-plist))))
102 one of the regular expressions in `special-display-regexps'. 96 one of the regular expressions in `special-display-regexps'.
103 This variable can be set in your init file, like this: 97 This variable can be set in your init file, like this:
104 (setq special-display-frame-plist '(width 80 height 20)) 98 (setq special-display-frame-plist '(width 80 height 20))
105 These supersede the values given in `default-frame-plist'. 99 These supersede the values given in `default-frame-plist'.
106 The format of this can also be an alist for backward compatibility." 100 The format of this can also be an alist for backward compatibility."
107 :type '(repeat (group :inline t 101 :type 'plist
108 (symbol :tag "Property")
109 (sexp :tag "Value")))
110 :group 'frames) 102 :group 'frames)
111 103
112 (defun safe-alist-to-plist (cruftiness) 104 (defun safe-alist-to-plist (cruftiness)
113 (if (consp (car cruftiness)) 105 (if (consp (car cruftiness))
114 (alist-to-plist cruftiness) 106 (alist-to-plist cruftiness)