Mercurial > hg > xemacs-beta

comparison src/emacs.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
34 #include "buffer.h" 34 #include "buffer.h"
35 #include "commands.h" 35 #include "commands.h"
36 #include "console.h" 36 #include "console.h"
37 #include "process.h" 37 #include "process.h"
38 #include "redisplay.h" 38 #include "redisplay.h"
39 #include "frame.h"
39 #include "sysdep.h" 40 #include "sysdep.h"
40 41
41 #include "syssignal.h" /* Always include before systty.h */ 42 #include "syssignal.h" /* Always include before systty.h */
42 #include "systty.h" 43 #include "systty.h"
43 #include "sysfile.h" 44 #include "sysfile.h"
153 Lisp_Object Vdata_directory_list; 154 Lisp_Object Vdata_directory_list;
154 Lisp_Object Vconfigure_info_directory; 155 Lisp_Object Vconfigure_info_directory;
155 Lisp_Object Vsite_directory, Vconfigure_site_directory; 156 Lisp_Object Vsite_directory, Vconfigure_site_directory;
156 Lisp_Object Vconfigure_info_path; 157 Lisp_Object Vconfigure_info_path;
157 Lisp_Object Vinternal_error_checking; 158 Lisp_Object Vinternal_error_checking;
159 Lisp_Object Vmail_lock_methods, Vconfigure_mail_lock_method;
158 Lisp_Object Vpath_separator; 160 Lisp_Object Vpath_separator;
159 161
160 /* The default base directory XEmacs is installed under. */ 162 /* The default base directory XEmacs is installed under. */
161 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory; 163 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
162 164
1709 reinit_vars_of_glyphs_widget (); 1711 reinit_vars_of_glyphs_widget ();
1710 reinit_vars_of_insdel (); 1712 reinit_vars_of_insdel ();
1711 reinit_vars_of_lread (); 1713 reinit_vars_of_lread ();
1712 reinit_vars_of_lstream (); 1714 reinit_vars_of_lstream ();
1713 reinit_vars_of_minibuf (); 1715 reinit_vars_of_minibuf ();
1716 #ifdef HAVE_SHLIB
1714 reinit_vars_of_module (); 1717 reinit_vars_of_module ();
1718 #endif
1715 reinit_vars_of_objects (); 1719 reinit_vars_of_objects ();
1716 reinit_vars_of_print (); 1720 reinit_vars_of_print ();
1717 reinit_vars_of_redisplay (); 1721 reinit_vars_of_redisplay ();
1718 reinit_vars_of_search (); 1722 reinit_vars_of_search ();
1719 reinit_vars_of_scrollbar_x (); 1723 reinit_vars_of_scrollbar_x ();
1724 reinit_vars_of_frame_mswindows (); 1728 reinit_vars_of_frame_mswindows ();
1725 #endif 1729 #endif
1726 1730
1727 #ifdef HAVE_X_WINDOWS 1731 #ifdef HAVE_X_WINDOWS
1728 reinit_vars_of_device_x (); 1732 reinit_vars_of_device_x ();
1733 #endif
1734 #ifdef HAVE_SCROLLBARS
1735 reinit_vars_of_scrollbar_x ();
1729 #ifdef HAVE_MENUBARS 1736 #ifdef HAVE_MENUBARS
1730 reinit_vars_of_menubar_x (); 1737 reinit_vars_of_menubar_x ();
1731 #endif 1738 #endif
1732 reinit_vars_of_xselect (); 1739 reinit_vars_of_xselect ();
1733 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS) 1740 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1798 init_ntproc(); 1805 init_ntproc();
1799 #endif 1806 #endif
1800 1807
1801 init_redisplay (); /* Determine terminal type. 1808 init_redisplay (); /* Determine terminal type.
1802 init_sys_modes uses results */ 1809 init_sys_modes uses results */
1810 init_frame ();
1803 init_event_stream (); /* Set up so we can get user input. */ 1811 init_event_stream (); /* Set up so we can get user input. */
1804 init_macros (); /* set up so we can run macros. */ 1812 init_macros (); /* set up so we can run macros. */
1805 init_editfns (); /* Determine the name of the user we're running as */ 1813 init_editfns (); /* Determine the name of the user we're running as */
1806 init_xemacs_process (); /* set up for calling subprocesses */ 1814 init_xemacs_process (); /* set up for calling subprocesses */
1807 #ifdef SUNPRO 1815 #ifdef SUNPRO
3084 #ifdef ERROR_CHECK_BUFPOS 3092 #ifdef ERROR_CHECK_BUFPOS
3085 Vinternal_error_checking = Fcons (intern ("bufpos"), 3093 Vinternal_error_checking = Fcons (intern ("bufpos"),
3086 Vinternal_error_checking); 3094 Vinternal_error_checking);
3087 #endif 3095 #endif
3088 3096
3097 DEFVAR_CONST_LISP ("mail-lock-methods", &Vmail_lock_methods /*
3098 Mail spool locking methods supported by this instance of XEmacs.
3099 This is a list of symbols. Each of the symbols is one of the
3100 following: dot, lockf, flock, locking, mmdf.
3101 */ );
3102 {
3103 Vmail_lock_methods = Qnil;
3104 Vmail_lock_methods = Fcons (intern ("dot"), Vmail_lock_methods);
3105 #ifdef HAVE_LOCKF
3106 Vmail_lock_methods = Fcons (intern ("lockf"), Vmail_lock_methods);
3107 #endif
3108 #ifdef HAVE_FLOCK
3109 Vmail_lock_methods = Fcons (intern ("flock"), Vmail_lock_methods);
3110 #endif
3111 #ifdef HAVE_MMDF
3112 Vmail_lock_methods = Fcons (intern ("mmdf"), Vmail_lock_methods);
3113 #endif
3114 #ifdef HAVE_LOCKING
3115 Vmail_lock_methods = Fcons (intern ("locking"), Vmail_lock_methods);
3116 #endif
3117 }
3118
3119 DEFVAR_CONST_LISP ("configure-mail-lock-method", &Vconfigure_mail_lock_method /*
3120 Mail spool locking method suggested by configure. This is one
3121 of the symbols in MAIL-LOCK-METHODS.
3122 */ );
3123 {
3124 #if defined(MAIL_LOCK_FLOCK) && defined(HAVE_FLOCK)
3125 Vconfigure_mail_lock_method = intern("flock");
3126 #elif defined(MAIL_LOCK_LOCKF) && defined(HAVE_LOCKF)
3127 Vconfigure_mail_lock_method = intern("lockf");
3128 #elif defined(MAIL_LOCK_MMDF) && defined(HAVE_MMDF)
3129 Vconfigure_mail_lock_method = intern("mmdf");
3130 #elif defined(MAIL_LOCK_LOCKING) && defined(HAVE_LOCKING)
3131 Vconfigure_mail_lock_method = intern("locking");
3132 #else
3133 Vconfigure_mail_lock_method = intern("dot");
3134 #endif
3135 }
3136
3089 DEFVAR_LISP ("path-separator", &Vpath_separator /* 3137 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3090 The directory separator in search paths, as a string. 3138 The directory separator in search paths, as a string.
3091 */ ); 3139 */ );
3092 { 3140 {
3093 char c = SEPCHAR; 3141 char c = SEPCHAR;