static void sort_args ();
void syms_of_emacs ();
+/* MSVC needs each string be shorter than 2048 bytes, so the usage
+ strings below are split to not overflow this limit. */
#define USAGE1 "\
Usage: %s [OPTION-OR-FILENAME]...\n\
\n\
\n\
Initialization options:\n\
\n\
---batch do not do interactive display; implies -q\n\
---script FILE run FILE as an Emacs Lisp script.\n\
---debug-init enable Emacs Lisp debugger during init file\n\
---help display this help message and exit\n\
---multibyte, --no-unibyte run Emacs in multibyte mode\n\
---no-init-file, -q load neither ~/.emacs nor default.el\n\
---no-shared-memory, -nl do not use shared memory\n\
---no-site-file do not load site-start.el\n\
---no-splash do not display a splash screen on startup\n\
---no-window-system, -nw don't communicate with X, ignoring $DISPLAY\n\
---terminal, -t DEVICE use DEVICE for terminal I/O\n\
+--batch do not do interactive display; implies -q\n\
+--debug-init enable Emacs Lisp debugger for init file\n\
+--display, -d DISPLAY use X server DISPLAY\n\
+--multibyte, --no-unibyte inhibit the effect of EMACS_UNIBYTE\n\
+--no-desktop do not load a saved desktop\n\
+--no-init-file, -q load neither ~/.emacs nor default.el\n\
+--no-shared-memory, -nl do not use shared memory\n\
+--no-site-file do not load site-start.el\n\
+--no-splash do not display a splash screen on startup\n\
+--no-window-system, -nw don't communicate with X, ignoring $DISPLAY\n\
+--script FILE run FILE as an Emacs Lisp script\n\
+--terminal, -t DEVICE use DEVICE for terminal I/O\n\
--unibyte, --no-multibyte run Emacs in unibyte mode\n\
---user, -u USER load ~USER/.emacs instead of your own\n\
---version display version information and exit\n\
-\n\
+--user, -u USER load ~USER/.emacs instead of your own\n\
+\n%s"
+
+#define USAGE2 "\
Action options:\n\
\n\
-FILE visit FILE using find-file\n\
-+LINE FILE visit FILE using find-file, then go to line LINE\n\
-+LINE:COLUMN FILE visit FILE using find-file, then go to line LINE,\n\
- column COLUMN\n\
---directory, -L DIR add DIR to variable load-path\n\
---eval EXPR evaluate Emacs Lisp expression EXPR\n\
---execute EXPR evaluate Emacs Lisp expression EXPR\n\
---find-file FILE visit FILE\n\
---funcall, -f FUNC call Emacs function FUNC with no arguments\n\
---insert FILE insert contents of FILE into current buffer\n\
---kill exit without asking for confirmation\n\
---load, -l FILE load FILE of Emacs Lisp code using the load function\n\
---visit FILE visit FILE\n\
+FILE visit FILE using find-file\n\
++LINE FILE visit FILE using find-file, then go to line LINE\n\
++LINE:COLUMN FILE visit FILE using find-file, then go to line LINE,\n\
+ column COLUMN\n\
+--directory, -L DIR add DIR to variable load-path\n\
+--eval EXPR evaluate Emacs Lisp expression EXPR\n\
+--execute EXPR evaluate Emacs Lisp expression EXPR\n\
+--file FILE visit FILE using find-file\n\
+--find-file FILE visit FILE using find-file\n\
+--funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
+--insert FILE insert contents of FILE into current buffer\n\
+--kill exit without asking for confirmation\n\
+--load, -l FILE load Emacs Lisp FILE using the load function\n\
+--visit FILE visit FILE using find-file\n\
\n"
-#define USAGE2 "\
+#define USAGE3 "\
Display options:\n\
\n\
---background-color, -bg COLOR window background color\n\
---border-color, -bd COLOR main border color\n\
---border-width, -bw WIDTH width of main border\n\
---color=MODE color mode for character terminals;\n\
- MODE defaults to `auto', and can also\n\
- be `never', `auto', `always',\n\
- or a mode name like `ansi8'\n\
---cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
---display, -d DISPLAY use X server DISPLAY\n\
---font, -fn FONT default font; must be fixed-width\n\
---foreground-color, -fg COLOR window foreground color\n\
---fullscreen, -fs make first frame fullscreen\n\
---fullwidth, -fw make the first frame wide as the screen\n\
---fullheight, -fh make the first frame high as the screen\n\
---geometry, -g GEOMETRY window geometry\n\
---iconic start Emacs in iconified state\n\
---icon-type, -i use picture of gnu for Emacs icon\n\
---internal-border, -ib WIDTH width between text and main border\n\
---line-spacing, -lsp PIXELS additional space to put between lines\n\
---mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
---name NAME title of main Emacs window\n\
---reverse-video, -r, -rv switch foreground and background\n\
---title, -T, -wn TITLE title for Emacs windows\n\
---vertical-scroll-bars, -vb enable vertical scroll bars\n\
---xrm XRESOURCES set additional X resources\n\
+--background-color, -bg COLOR window background color\n\
+--border-color, -bd COLOR main border color\n\
+--border-width, -bw WIDTH width of main border\n\
+--color MODE color mode for character terminals;\n\
+ MODE defaults to `auto', and can also\n\
+ be `never', `auto', `always',\n\
+ or a mode name like `ansi8'\n\
+--cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
+--font, -fn FONT default font; must be fixed-width\n\
+--foreground-color, -fg COLOR window foreground color\n\
+--fullheight, -fh make the first frame high as the screen\n\
+--fullscreen, -fs make first frame fullscreen\n\
+--fullwidth, -fw make the first frame wide as the screen\n\
+--geometry, -g GEOMETRY window geometry\n\
+--horizontal-scroll-bars, -hb enable horizontal scroll bars\n\
+--icon-type, -i use picture of gnu for Emacs icon\n\
+--iconic start Emacs in iconified state\n\
+--internal-border, -ib WIDTH width between text and main border\n\
+--line-spacing, -lsp PIXELS additional space to put between lines\n\
+--mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
+--name NAME title for initial Emacs frame\n\
+--reverse-video, -r, -rv switch foreground and background\n\
+--title, -T TITLE title for initial Emacs frame\n\
+--vertical-scroll-bars, -vb enable vertical scroll bars\n\
+--xrm XRESOURCES set additional X resources\n\
+--help display this help and exit\n\
+--version output version information and exit\n\
\n\
You can generally also specify long option names with a single -; for\n\
example, -batch as well as --batch. You can use any unambiguous\n\
Emacs' operation. See the main documentation.\n\
\n"
-#define USAGE3 "\
+#define USAGE4 "\
Report bugs to %s. First, please see the Bugs\n\
section of the Emacs manual or the file BUGS.\n"
/* Handle the --help option, which gives a usage message. */
if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
{
- printf (USAGE1, argv[0]);
- printf (USAGE2);
- printf (USAGE3, bug_reporting_address ());
+ printf (USAGE1, argv[0], USAGE2);
+ printf (USAGE3);
+ printf (USAGE4, bug_reporting_address ());
exit (0);
}
init_window_once (); /* Init the window system. */
init_fileio_once (); /* Must precede any path manipulation. */
+#ifdef HAVE_WINDOW_SYSTEM
+ init_fringe_once (); /* Swap bitmaps if necessary. */
+#endif /* HAVE_WINDOW_SYSTEM */
}
init_alloc ();
#endif /* WINDOWSNT */
syms_of_window ();
syms_of_xdisp ();
+#ifdef HAVE_WINDOW_SYSTEM
+ syms_of_fringe ();
+#endif /* HAVE_WINDOW_SYSTEM */
#ifdef HAVE_X_WINDOWS
syms_of_xterm ();
syms_of_xfns ();
#endif /* HAVE_X_WINDOWS */
init_fns ();
init_xdisp ();
+#ifdef HAVE_WINDOW_SYSTEM
+ init_fringe ();
+#endif /* HAVE_WINDOW_SYSTEM */
init_macros ();
init_editfns ();
init_floatfns ();
fflush (stdout);
reset_sys_modes ();
if (sig && sig != SIGTERM)
- fprintf (stderr, "Fatal error (%d).", sig);
+ fprintf (stderr, "Fatal error (%d)", sig);
}
}
#else
HCoop / bpt / emacs.git / blobdiff