- ;; are not set. If you make any changes to the `or' form below,
- ;; you should also change the corresponding expression in the
- ;; defcustom in frame.el, or Custom will be badly confused.
- (unless (or noninteractive
- emacs-quick-startup
- (eq system-type 'ms-dos)
- (not (memq window-system '(x w32))))
- (blink-cursor-mode 1))
-
- (unless noninteractive
- ;; DOS/Windows systems have a PC-type keyboard which has both
- ;; <delete> and <backspace> keys.
- (when (or (memq system-type '(ms-dos windows-nt))
- (and (memq window-system '(x))
- (fboundp 'x-backspace-delete-keys-p)
- (x-backspace-delete-keys-p))
- ;; If the terminal Emacs is running on has erase char
- ;; set to ^H, use the Backspace key for deleting
- ;; backward and, and the Delete key for deleting forward.
- (and (null window-system)
- (eq tty-erase-char 8)))
- (setq-default normal-erase-is-backspace t)
- (normal-erase-is-backspace-mode 1)))
-
- (unless (or noninteractive
- emacs-quick-startup
- (not (display-graphic-p))
- (not (fboundp 'x-show-tip)))
- (setq-default tooltip-mode t)
- (tooltip-mode 1))