lisp/term/x-win.el

31 ;; X display is opened and hooks are set for popping up the initial window.
117 ;; Handle options that apply to initial frame only
118 (defun x-handle-initial-switch (switch)
124 	      (setq initial-frame-alist
126 			  initial-frame-alist))
127 	    (setq initial-frame-alist
130 			initial-frame-alist)
133 ;; Make -iconic apply only to the initial frame!
135   (setq initial-frame-alist
136 	(cons '(visibility . icon) initial-frame-alist)))
161 	      initial-frame-alist
162 	      (append initial-frame-alist
167 	(setq initial-frame-alist
168 	      (append initial-frame-alist
176 ;; the initial frame, too.
182   (setq initial-frame-alist (cons (cons 'name x-resource-name)
183 				  initial-frame-alist)))
255   "Special hook run when a save-session event occurs.
2157   :type 'boolean
2186 (defvar x-select-request-type nil
2187   "*Data type request for X selection.
2196 type.
2238 ;; Get a selection value of type TYPE by calling x-get-selection with
2239 ;; an appropiate DATA-TYPE argument decidd by `x-select-request-type'.
2243 (defun x-selection-value (type)
2245     (cond ((null x-select-request-type)
2252 			    (x-get-selection type 'UTF8_STRING)
2264 				     (x-get-selection type 'COMPOUND_TEXT)
2276 				(x-get-selection type 'STRING)
2281 	  ((consp x-select-request-type)
2282 	   (let ((tail x-select-request-type))
2285 		   (setq text (x-get-selection type (car tail)))
2291 	       (setq text (x-get-selection type x-select-request-type))
2437 ;; from initial-frame-alist, default-frame-alist, or X resource.
2444 (let ((font (or (cdr (assq 'font initial-frame-alist))
2458 ;; Apply a geometry resource to the initial frame.  Put it at the end
2471 	;; All geometry parms apply to the initial frame.
2472 	(setq initial-frame-alist (append initial-frame-alist parsed))
2551 (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)