comparison lisp/startup.el @ 61505:c8cf56d85000

Added new X reosurce, cursorBlink.
author Jan Djärv <jan.h.d@swipnet.se>
date Tue, 12 Apr 2005 19:59:54 +0000
parents b9d559315c0a
children 7473921df065
comparison
equal deleted inserted replaced
61504:440fc97d89f0 61505:c8cf56d85000
712 712
713 ;; Re-attach the program name to the front of the arg list. 713 ;; Re-attach the program name to the front of the arg list.
714 (and command-line-args 714 (and command-line-args
715 (setcdr command-line-args args))) 715 (setcdr command-line-args args)))
716 716
717 ;; Under X Windows, this creates the X frame and deletes the terminal frame. 717 ;; Under X Window, this creates the X frame and deletes the terminal frame.
718 (when (fboundp 'frame-initialize) 718 (when (fboundp 'frame-initialize)
719 (frame-initialize)) 719 (frame-initialize))
720
721 ;; Turn off blinking cursor if so specified in X resources. This is here
722 ;; only because all other settings of no-blinking-cursor is here.
723 (unless (or noninteractive
724 emacs-basic-display
725 (and (memq window-system '(x w32 mac))
726 (not (member (x-get-resource "cursorBlink" "CursorBlink")
727 '("off" "false")))))
728 (setq no-blinking-cursor t))
720 729
721 ;; If frame was created with a menu bar, set menu-bar-mode on. 730 ;; If frame was created with a menu bar, set menu-bar-mode on.
722 (unless (or noninteractive 731 (unless (or noninteractive
723 emacs-basic-display 732 emacs-basic-display
724 (and (memq window-system '(x w32)) 733 (and (memq window-system '(x w32))