diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-06 06:07:46 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-06 06:07:46 +0000 |
| commit | 5e2327cf928d947328b01c87baa79cdaa18c823b (patch) | |
| tree | 20814f88060de3ef00425d9b3b5a3ce10b4a10c3 /src/process.c | |
| parent | a56eaaef7c9e641ecf6cc1cfb4cd3341e5118690 (diff) | |
| download | emacs-5e2327cf928d947328b01c87baa79cdaa18c823b.tar.gz | |
* process.c (socket_options): Make it const.
(set_socket_option, init_process): Use a const pointer.
* lread.c (intern_c_string): New function.
(defvar_kboard, defvar_lisp, defvar_lisp_nopro, defvar_bool)
(defvar_int): Uset it. Make the name const char*.
* lisp.h (defvar_kboard, defvar_lisp, defvar_lisp_nopro, defvar_bool)
(defvar_int): Update prototypes.
(DEFUN, EXFUN): Support for prototypes is now required.
(intern_c_string): New prototype.
(struct Lisp_Subr): Make symbol_name constant.
* font.c (struct table_entry): Remove unused member. Make NAMES
constant.
(weight_table, slant_table, width_table): Make constant.
* emacs.c (struct standard_args): Make name and longname constant.
* character.h (DEFSYM): Use intern_c_string.
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/process.c b/src/process.c index c2fe343ee2d..7cb85d73aad 100644 --- a/src/process.c +++ b/src/process.c @@ -2607,7 +2607,7 @@ Returns nil upon error setting address, ADDRESS otherwise. */) #endif -static struct socket_options { +static const struct socket_options { /* The name of this option. Should be lowercase version of option name without SO_ prefix. */ char *name; @@ -2658,7 +2658,7 @@ set_socket_option (s, opt, val) Lisp_Object opt, val; { char *name; - struct socket_options *sopt; + const struct socket_options *sopt; int ret = 0; CHECK_SYMBOL (opt); @@ -7314,7 +7314,7 @@ init_process () #ifdef HAVE_SOCKETS { Lisp_Object subfeatures = Qnil; - struct socket_options *sopt; + const struct socket_options *sopt; #define ADD_SUBFEATURE(key, val) \ subfeatures = Fcons (Fcons (key, Fcons (val, Qnil)), subfeatures) |