Lines Matching +defs:initial +defs:event +defs:type
45 It also inhibits display of the initial message in the `*scratch*' buffer.
49 :type 'boolean
55 "*Non-nil inhibits the initial startup echo area message.
64 :type '(choice (const :tag "Don't inhibit")
70 :type 'boolean
75 :type 'boolean
114 ("-fs" 0 x-handle-initial-switch fullscreen fullboth)
115 ("-fw" 0 x-handle-initial-switch fullscreen fullwidth)
116 ("-fh" 0 x-handle-initial-switch fullscreen fullheight)
126 ("-nbi" 0 x-handle-switch icon-type nil)
139 ("--fullscreen" 0 x-handle-initial-switch fullscreen fullboth)
140 ("--fullwidth" 0 x-handle-initial-switch fullscreen fullwidth)
141 ("--fullheight" 0 x-handle-initial-switch fullscreen fullheight)
147 ("--no-bitmap-icon" 0 x-handle-switch icon-type nil)
186 (defvar keyboard-type nil
197 (defcustom initial-major-mode 'lisp-interaction-mode
198 "Major mode command symbol to use for the initial `*scratch*' buffer."
199 :type 'function
238 :type '(choice (const :tag "none" nil) string)
246 :type '(choice (const nil) string)
260 :type 'string
264 (cond ((eq system-type 'ms-dos)
265 ;; MS-DOS cannot have initial dot, and allows only 8.3 names
276 :type '(choice (const :tag "Don't record a session's auto save list" nil)
349 (not (and (memq system-type '(ms-dos windows-nt))
387 (unless (eq system-type 'vax-vms)
414 (cond ((eq system-type 'ms-dos)
436 ;; Don't do this if we failed to create the initial frame,
438 (when (or frame-initial-frame
439 ;; If frame-initial-frame has no meaning, do this anyway.
443 ;; Modify the initial frame based on what .emacs puts into
448 ;; Set the faces for the initial background mode even if
603 ((memq system-type '(ms-dos windows-nt emx))
608 ((eq system-type 'macos)
694 ("--user") ("--iconic") ("--icon-type") ("--quick")
722 (push '(vertical-scroll-bars . nil) initial-frame-alist))
733 (push '(visibility . icon) initial-frame-alist))
734 ((member argi '("-icon-type" "-i" "-itype"))
735 (push '(icon-type . t) default-frame-alist))
785 (custom-reevaluate-setting 'mouse-wheel-down-event)
786 (custom-reevaluate-setting 'mouse-wheel-up-event)
804 (let ((tool-bar-lines (or (assq 'tool-bar-lines initial-frame-alist)
839 (if (eq system-type 'windows-nt)
851 (debug-on-error-initial
854 (let ((debug-on-error debug-on-error-initial)
862 ((eq system-type 'ms-dos)
864 ((eq system-type 'windows-nt)
873 ((eq system-type 'vax-vms)
971 (or (eq debug-on-error debug-on-error-initial)
1058 (funcall initial-major-mode))))
1060 ;; Load library for our terminal type.
1108 (defcustom initial-scratch-message (purecopy "\
1118 :type '(choice (text :tag "Message")
1163 "\nTo quit a partially entered command, type "
1175 "Exit Emacs\t\t(Or type "
1200 :type 'integer)
1207 :type 'integer)
1213 :type '(choice (const :tag "Default" nil)
1223 (defvar fancy-splash-last-input-event nil)
1249 (image-type-available-p 'xpm))
1285 (if (eq system-type 'gnu/linux)
1331 "type "
1365 the user caused an input event by hitting a key or clicking with the
1368 (if (and (memq 'down (event-modifiers last-command-event))
1369 (eq (posn-window (event-start last-command-event))
1371 ;; This is a mouse-down event in the spash screen window.
1372 ;; Ignore it and consume the corresponding mouse-up event.
1373 (read-event)
1374 (push last-command-event unread-command-events))
1377 (defun fancy-splash-special-event-action ()
1378 "Save the last event and stop displaying the splash screen buffer.
1380 the user caused an input event that is bound in `special-event-map'"
1382 (setq fancy-splash-last-input-event last-input-event)
1394 (old-special-event-map special-event-map)
1400 (make-local-variable 'cursor-type)
1405 (cursor-type nil))
1412 ;; fancy-splash-special-event-action so as to stop
1417 (setq special-event-map (make-sparse-keymap))
1420 (define-key special-event-map (vector key)
1423 'fancy-splash-special-event-action)))
1424 old-special-event-map)
1442 special-event-map old-special-event-map)
1444 (when fancy-splash-last-input-event
1445 (setq last-input-event fancy-splash-last-input-event
1446 fancy-splash-last-input-event nil)
1447 (command-execute (lookup-key special-event-map
1448 (vector last-input-event))
1449 nil (vector last-input-event) t))))))
1492 (image-type-available-p 'xpm))
1493 (image-type-available-p 'pbm)))
1498 (image-type-available-p 'xpm))
1530 (if (eq system-type 'gnu/linux)
1548 To quit a partially entered command, type Control-g.
1551 Exit Emacs (or type Control-x followed by Control-c)
1609 If you have no Meta key, you may instead type ESC followed by the character.)")
1620 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
1622 of Emacs and modify it; type C-h C-c to see the conditions.
1626 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
1628 of Emacs and modify it; type \\[describe-copying] to see the conditions.
1649 "type Meta-x recover-session RET\nto recover"
1681 "For information about the GNU Project and its goals, type C-h C-p."
1683 "For information about the GNU Project and its goals, type \
1997 ;; If *scratch* exists and is empty, insert initial-scratch-message.
1998 (and initial-scratch-message
2002 (insert initial-scratch-message)