Mercurial > emacs
comparison src/emacs.c @ 90261:7beb78bc1f8e
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 616-696)
- Add lisp/mh-e/.arch-inventory
- Update from CVS
- Merge from gnus--rel--5.10
- Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords.
- lisp/gnus/ChangeLog: Remove duplicate entry
* gnus--rel--5.10 (patch 147-181)
- Update from CVS
- Merge from emacs--cvs-trunk--0
- Update from CVS: lisp/mml.el (mml-preview): Doc fix.
- Update from CVS: texi/message.texi: Fix default values.
- Update from CVS: texi/gnus.texi (RSS): Addition.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 16 Jan 2006 08:37:27 +0000 |
parents | 0ca0d9181b5e 5216001bd597 |
children | e3bacb89536a |
comparison
equal
deleted
inserted
replaced
90260:0ca0d9181b5e | 90261:7beb78bc1f8e |
---|---|
1 /* Fully extensible Emacs, running on Unix, intended for GNU. | 1 /* Fully extensible Emacs, running on Unix, intended for GNU. |
2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, | 2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, |
3 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | 3 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
4 | 4 |
5 This file is part of GNU Emacs. | 5 This file is part of GNU Emacs. |
6 | 6 |
7 GNU Emacs is free software; you can redistribute it and/or modify | 7 GNU Emacs is free software; you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
110 #else | 110 #else |
111 EMACS_INT gdb_data_seg_bits = 0; | 111 EMACS_INT gdb_data_seg_bits = 0; |
112 #endif | 112 #endif |
113 EMACS_INT PVEC_FLAG = PSEUDOVECTOR_FLAG; | 113 EMACS_INT PVEC_FLAG = PSEUDOVECTOR_FLAG; |
114 EMACS_INT gdb_array_mark_flag = ARRAY_MARK_FLAG; | 114 EMACS_INT gdb_array_mark_flag = ARRAY_MARK_FLAG; |
115 /* GDB might say "No enum type named pvec_type" if we don't have at | |
116 least one symbol with that type, and then xbacktrace could fail. */ | |
117 enum pvec_type gdb_pvec_type = PVEC_TYPE_MASK; | |
115 | 118 |
116 /* Command line args from shell, as list of strings. */ | 119 /* Command line args from shell, as list of strings. */ |
117 Lisp_Object Vcommand_line_args; | 120 Lisp_Object Vcommand_line_args; |
118 | 121 |
119 /* The name under which Emacs was invoked, with any leading directory | 122 /* The name under which Emacs was invoked, with any leading directory |
894 exit (1); | 897 exit (1); |
895 } | 898 } |
896 else | 899 else |
897 { | 900 { |
898 printf ("GNU Emacs %s\n", SDATA (tem)); | 901 printf ("GNU Emacs %s\n", SDATA (tem)); |
899 printf ("Copyright (C) 2005 Free Software Foundation, Inc.\n"); | 902 printf ("Copyright (C) 2006 Free Software Foundation, Inc.\n"); |
900 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n"); | 903 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n"); |
901 printf ("You may redistribute copies of Emacs\n"); | 904 printf ("You may redistribute copies of Emacs\n"); |
902 printf ("under the terms of the GNU General Public License.\n"); | 905 printf ("under the terms of the GNU General Public License.\n"); |
903 printf ("For more information about these matters, "); | 906 printf ("For more information about these matters, "); |
904 printf ("see the file named COPYING.\n"); | 907 printf ("see the file named COPYING.\n"); |
960 } | 963 } |
961 #endif /* NeXT */ | 964 #endif /* NeXT */ |
962 | 965 |
963 #ifdef MAC_OSX | 966 #ifdef MAC_OSX |
964 /* Skip process serial number passed in the form -psn_x_y as | 967 /* Skip process serial number passed in the form -psn_x_y as |
965 command-line argument. */ | 968 command-line argument. The WindowServer adds this option when |
969 Emacs is invoked from the Finder or by the `open' command. In | |
970 these cases, the working directory becomes `/', so we change it | |
971 to the user's home directory. */ | |
966 if (argc > skip_args + 1 && strncmp (argv[skip_args+1], "-psn_", 5) == 0) | 972 if (argc > skip_args + 1 && strncmp (argv[skip_args+1], "-psn_", 5) == 0) |
967 skip_args++; | 973 { |
974 chdir (getenv ("HOME")); | |
975 skip_args++; | |
976 } | |
968 #endif /* MAC_OSX */ | 977 #endif /* MAC_OSX */ |
969 | 978 |
970 #ifdef VMS | 979 #ifdef VMS |
971 /* If -map specified, map the data file in. */ | 980 /* If -map specified, map the data file in. */ |
972 { | 981 { |