Lines Matching +defs:delay +defs:mode +defs:hooks
182 (defvar inhibit-startup-hooks nil
197 (defcustom initial-major-mode 'lisp-interaction-mode
198 "Major mode command symbol to use for the initial `*scratch*' buffer."
293 (defvar default-frame-background-mode)
431 (unless inhibit-startup-hooks
432 (run-hooks 'emacs-startup-hook)
434 (run-hooks 'term-setup-hook)))
447 (if (fboundp 'frame-set-background-mode)
448 ;; Set the faces for the initial background mode even if
450 ;; frame-set-background-mode is idempotent, so it won't
456 (null default-frame-background-mode)
464 ;; background mode, but we leave this here anyway, in
468 (setq default-frame-background-mode 'light)))
469 (frame-set-background-mode (selected-frame)))))
475 (run-hooks 'window-setup-hook))
565 (push (cons 'tty-color-mode
600 ;; Set the default strings to display in mode line for
750 (run-hooks 'before-init-hook)
765 ;; If frame was created with a menu bar, set menu-bar-mode on.
770 (menu-bar-mode 1))
772 ;; If frame was created with a tool bar, switch tool-bar-mode on.
777 (tool-bar-mode 1))
781 (custom-reevaluate-setting 'blink-cursor-mode)
783 (custom-reevaluate-setting 'tooltip-mode)
784 (custom-reevaluate-setting 'global-font-lock-mode)
787 (custom-reevaluate-setting 'file-name-shadow-mode)
796 ;; mid-session by setting the tty-color-mode frame parameter.
953 (if (and deactivate-mark transient-mark-mode)
1039 (run-hooks 'after-init-hook)
1054 ;; If *scratch* exists and init file didn't change its mode, initialize it.
1057 (if (eq major-mode 'fundamental-mode)
1058 (funcall initial-major-mode))))
1197 (defcustom fancy-splash-delay 7
1205 Values less than twice `fancy-splash-delay' are ignored."
1267 (eq (frame-parameter nil 'background-mode) 'dark))
1308 (let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
1358 (force-mode-line-update)
1392 (old-minor-mode-map-alist minor-mode-map-alist)
1393 (old-emulation-mode-map-alists emulation-mode-map-alists)
1410 (define-key map [mode-line t] 'ignore)
1426 minor-mode-map-alist nil
1427 emulation-mode-map-alists nil
1429 mode-line-format (propertize "---- %b %-"
1430 'face 'mode-line-buffer-id)
1433 timer (run-with-timer 0 fancy-splash-delay
1440 minor-mode-map-alist old-minor-mode-map-alist
1441 emulation-mode-map-alists old-emulation-mode-map-alists
1472 (if (and view-read-only (not view-mode))
1473 (view-mode-enter nil 'kill-buffer))
1517 (set (make-local-variable 'mode-line-format)
1518 (propertize "---- %b %-" 'face 'mode-line-buffer-id)))
1655 (if (and view-read-only (not view-mode))
1656 (view-mode-enter nil 'kill-buffer))
1923 (let ((hooks command-line-functions) ;; lrs 7/31/89
1925 (while (and hooks
1926 (not (setq did-hook (funcall (car hooks)))))
1927 (setq hooks (cdr hooks)))
1970 (run-hooks 'emacs-startup-hook)
1972 (run-hooks 'term-setup-hook))
1973 (setq inhibit-startup-hooks t)
1986 (run-hooks 'window-setup-hook)
1990 ;; Do this now to avoid an annoying delay if the user