Mercurial > emacs
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)) |