Lines Matching +defs:initial +defs:input
31 ;; Mac display is opened and hooks are set for popping up the initial window.
87 (defvar mac-ts-active-input-overlay)
120 ;; Handle options that apply to initial frame only
121 (defun x-handle-initial-switch (switch)
127 (setq initial-frame-alist
129 initial-frame-alist))
130 (setq initial-frame-alist
133 initial-frame-alist)
136 ;; Make -iconic apply only to the initial frame!
138 (setq initial-frame-alist
139 (cons '(visibility . icon) initial-frame-alist)))
164 initial-frame-alist
165 (append initial-frame-alist
170 (setq initial-frame-alist
171 (append initial-frame-alist
179 ;; the initial frame, too.
185 (setq initial-frame-alist (cons (cons 'name x-resource-name)
186 initial-frame-alist)))
1747 (select-frame-set-input-focus (selected-frame)))
1767 (select-frame-set-input-focus (selected-frame)))
1859 (defvar mac-ts-active-input-buf ""
1860 "Byte sequence of the current Mac TSM active input area.")
1861 (defvar mac-ts-update-active-input-area-seqno 0
1862 "Number of processed update-active-input-area events.")
1863 (setq mac-ts-active-input-overlay (make-overlay 0 0))
1867 "Face for caret position in Mac TSM active input area.
1868 This is used when the active input area is displayed either in
1874 "Face for raw text in Mac TSM active input area."
1879 "Face for selected raw text in Mac TSM active input area."
1885 "Face for converted text in Mac TSM active input area."
1890 "Face for selected converted text in Mac TSM active input area."
1895 "Face for block fill text in Mac TSM active input area."
1900 "Face for outline text in Mac TSM active input area."
1905 "Face for selected text in Mac TSM active input area."
1910 "Face for no hilite in Mac TSM active input area."
1924 (defun mac-ts-update-active-input-buf (text fix-len hilite-rng update-rng)
1925 (let ((buf-len (length mac-ts-active-input-buf))
1930 ;; existing inline input session is completely replaced with
1932 (setq mac-ts-active-input-buf text)
1945 (cons (substring mac-ts-active-input-buf (cadr rng) tail)
1956 (cons (substring mac-ts-active-input-buf 0 tail)
1958 (setq mac-ts-active-input-buf (apply 'concat segments))))
1959 (setq buf-len (length mac-ts-active-input-buf))
1960 ;; Confirm (a part of) inline input session.
1963 (setq confirmed mac-ts-active-input-buf)
1964 (setq mac-ts-active-input-buf ""))
1971 (setq confirmed (substring mac-ts-active-input-buf 0 fix-len))
1972 (setq mac-ts-active-input-buf
1973 (substring mac-ts-active-input-buf fix-len))))
1974 (setq buf-len (length mac-ts-active-input-buf))
1976 ;; input session.
1977 (remove-text-properties 0 buf-len '(cursor nil) mac-ts-active-input-buf)
1982 'cursor t mac-ts-active-input-buf))
1988 mac-ts-active-input-buf))))
2025 (defun mac-ts-update-active-input-area (event)
2026 "Update Mac TSM active input area according to EVENT.
2027 The confirmed text is converted to Emacs input events and pushed
2048 (unless (= seqno mac-ts-update-active-input-area-seqno)
2050 (setq mac-ts-active-input-buf ""))
2052 (mac-ts-update-active-input-buf text fix-len hilite-rng update-rng))
2065 active-input-string caret-seen)
2066 ;; Decode the active input area text with inheriting faces and
2068 (setq active-input-string
2082 (mac-split-string-by-property-change mac-ts-active-input-buf)
2084 (put-text-property 0 (length active-input-string)
2085 'mac-ts-active-input-string t active-input-string)
2091 ;; `active-input-string'.
2092 (null (get-text-property 0 'mac-ts-active-input-string
2095 (concat msg active-input-string)))
2096 (setq msg active-input-string))
2098 (overlay-put mac-ts-active-input-overlay 'before-string nil))
2099 (move-overlay mac-ts-active-input-overlay
2101 (overlay-put mac-ts-active-input-overlay 'before-string
2102 active-input-string))
2105 (setq mac-ts-update-active-input-area-seqno (1+ seqno))))
2120 (define-key mac-apple-event-map [text-input update-active-input-area]
2121 'mac-ts-update-active-input-area)
2123 (define-key mac-apple-event-map [text-input unicode-for-key-event]
2206 ;; processed when the initial frame has been created: this is where
2313 ;; created. So we reconstruct font name table for the initial
2546 ;; from initial-frame-alist, default-frame-alist, or X resource.
2553 (let ((font (or (cdr (assq 'font initial-frame-alist))
2570 ;; Apply a geometry resource to the initial frame. Put it at the end
2583 ;; All geometry parms apply to the initial frame.
2584 (setq initial-frame-alist (append initial-frame-alist parsed))