/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.345 by rms, Sun Apr 10 23:36:22 2005 UTC revision 1.346 by jhd, Tue Apr 12 19:59:54 2005 UTC
# Line 714  or `CVS', and any subdirectory that cont Line 714  or `CVS', and any subdirectory that cont
714      (and command-line-args      (and command-line-args
715           (setcdr command-line-args args)))           (setcdr command-line-args args)))
716    
717    ;; Under X Windows, this creates the X frame and deletes the terminal frame.    ;; Under X Window, this creates the X frame and deletes the terminal frame.
718    (when (fboundp 'frame-initialize)    (when (fboundp 'frame-initialize)
719      (frame-initialize))      (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))
729    
730    ;; If frame was created with a menu bar, set menu-bar-mode on.    ;; If frame was created with a menu bar, set menu-bar-mode on.
731    (unless (or noninteractive    (unless (or noninteractive
732                emacs-basic-display                emacs-basic-display

Legend:
Removed from v.1.345  
changed lines
  Added in v.1.346

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26