aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog14
-rw-r--r--src/gnutls.c66
-rw-r--r--src/xfaces.c12
3 files changed, 53 insertions, 39 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 1e18ffd5d6b..4b0ac4082a5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,17 @@
12011-08-14 Andreas Schwab <schwab@linux-m68k.org>
2
3 * gnutls.c (QCgnutls_bootprop_priority)
4 (QCgnutls_bootprop_trustfiles, QCgnutls_bootprop_keylist)
5 (QCgnutls_bootprop_crlfiles, QCgnutls_bootprop_callbacks)
6 (QCgnutls_bootprop_loglevel, QCgnutls_bootprop_hostname)
7 (QCgnutls_bootprop_min_prime_bits, QCgnutls_bootprop_verify_flags)
8 (QCgnutls_bootprop_verify_hostname_error)
9 (QCgnutls_bootprop_callbacks_verify): Rename from
10 Qgnutls_bootprop_..., all uses changed.
11
12 * xfaces.c (QCignore_defface): Rename from Qignore_defface, all
13 uses changed.
14
12011-08-14 Paul Eggert <eggert@cs.ucla.edu> 152011-08-14 Paul Eggert <eggert@cs.ucla.edu>
2 16
3 * xfaces.c (Qframe_set_background_mode): Now static. 17 * xfaces.c (Qframe_set_background_mode): Now static.
diff --git a/src/gnutls.c b/src/gnutls.c
index 62382abc437..0743ef3f4ee 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -42,19 +42,19 @@ static Lisp_Object Qgnutls_e_interrupted, Qgnutls_e_again,
42static int gnutls_global_initialized; 42static int gnutls_global_initialized;
43 43
44/* The following are for the property list of `gnutls-boot'. */ 44/* The following are for the property list of `gnutls-boot'. */
45static Lisp_Object Qgnutls_bootprop_priority; 45static Lisp_Object QCgnutls_bootprop_priority;
46static Lisp_Object Qgnutls_bootprop_trustfiles; 46static Lisp_Object QCgnutls_bootprop_trustfiles;
47static Lisp_Object Qgnutls_bootprop_keylist; 47static Lisp_Object QCgnutls_bootprop_keylist;
48static Lisp_Object Qgnutls_bootprop_crlfiles; 48static Lisp_Object QCgnutls_bootprop_crlfiles;
49static Lisp_Object Qgnutls_bootprop_callbacks; 49static Lisp_Object QCgnutls_bootprop_callbacks;
50static Lisp_Object Qgnutls_bootprop_loglevel; 50static Lisp_Object QCgnutls_bootprop_loglevel;
51static Lisp_Object Qgnutls_bootprop_hostname; 51static Lisp_Object QCgnutls_bootprop_hostname;
52static Lisp_Object Qgnutls_bootprop_min_prime_bits; 52static Lisp_Object QCgnutls_bootprop_min_prime_bits;
53static Lisp_Object Qgnutls_bootprop_verify_flags; 53static Lisp_Object QCgnutls_bootprop_verify_flags;
54static Lisp_Object Qgnutls_bootprop_verify_hostname_error; 54static Lisp_Object QCgnutls_bootprop_verify_hostname_error;
55 55
56/* Callback keys for `gnutls-boot'. Unused currently. */ 56/* Callback keys for `gnutls-boot'. Unused currently. */
57static Lisp_Object Qgnutls_bootprop_callbacks_verify; 57static Lisp_Object QCgnutls_bootprop_callbacks_verify;
58 58
59static void gnutls_log_function (int, const char *); 59static void gnutls_log_function (int, const char *);
60static void gnutls_log_function2 (int, const char*, const char*); 60static void gnutls_log_function2 (int, const char*, const char*);
@@ -716,17 +716,17 @@ one trustfile (usually a CA bundle). */)
716 return gnutls_make_error (GNUTLS_EMACS_ERROR_NOT_LOADED); 716 return gnutls_make_error (GNUTLS_EMACS_ERROR_NOT_LOADED);
717 } 717 }
718 718
719 hostname = Fplist_get (proplist, Qgnutls_bootprop_hostname); 719 hostname = Fplist_get (proplist, QCgnutls_bootprop_hostname);
720 priority_string = Fplist_get (proplist, Qgnutls_bootprop_priority); 720 priority_string = Fplist_get (proplist, QCgnutls_bootprop_priority);
721 trustfiles = Fplist_get (proplist, Qgnutls_bootprop_trustfiles); 721 trustfiles = Fplist_get (proplist, QCgnutls_bootprop_trustfiles);
722 keylist = Fplist_get (proplist, Qgnutls_bootprop_keylist); 722 keylist = Fplist_get (proplist, QCgnutls_bootprop_keylist);
723 crlfiles = Fplist_get (proplist, Qgnutls_bootprop_crlfiles); 723 crlfiles = Fplist_get (proplist, QCgnutls_bootprop_crlfiles);
724 /* callbacks = Fplist_get (proplist, Qgnutls_bootprop_callbacks); */ 724 /* callbacks = Fplist_get (proplist, QCgnutls_bootprop_callbacks); */
725 loglevel = Fplist_get (proplist, Qgnutls_bootprop_loglevel); 725 loglevel = Fplist_get (proplist, QCgnutls_bootprop_loglevel);
726 verify_flags = Fplist_get (proplist, Qgnutls_bootprop_verify_flags); 726 verify_flags = Fplist_get (proplist, QCgnutls_bootprop_verify_flags);
727 /* verify_error = Fplist_get (proplist, Qgnutls_bootprop_verify_error); */ 727 /* verify_error = Fplist_get (proplist, QCgnutls_bootprop_verify_error); */
728 verify_hostname_error = Fplist_get (proplist, Qgnutls_bootprop_verify_hostname_error); 728 verify_hostname_error = Fplist_get (proplist, QCgnutls_bootprop_verify_hostname_error);
729 prime_bits = Fplist_get (proplist, Qgnutls_bootprop_min_prime_bits); 729 prime_bits = Fplist_get (proplist, QCgnutls_bootprop_min_prime_bits);
730 730
731 if (!STRINGP (hostname)) 731 if (!STRINGP (hostname))
732 error ("gnutls-boot: invalid :hostname parameter"); 732 error ("gnutls-boot: invalid :hostname parameter");
@@ -1119,17 +1119,17 @@ syms_of_gnutls (void)
1119 DEFSYM (Qgnutls_code, "gnutls-code"); 1119 DEFSYM (Qgnutls_code, "gnutls-code");
1120 DEFSYM (Qgnutls_anon, "gnutls-anon"); 1120 DEFSYM (Qgnutls_anon, "gnutls-anon");
1121 DEFSYM (Qgnutls_x509pki, "gnutls-x509pki"); 1121 DEFSYM (Qgnutls_x509pki, "gnutls-x509pki");
1122 DEFSYM (Qgnutls_bootprop_hostname, ":hostname"); 1122 DEFSYM (QCgnutls_bootprop_hostname, ":hostname");
1123 DEFSYM (Qgnutls_bootprop_priority, ":priority"); 1123 DEFSYM (QCgnutls_bootprop_priority, ":priority");
1124 DEFSYM (Qgnutls_bootprop_trustfiles, ":trustfiles"); 1124 DEFSYM (QCgnutls_bootprop_trustfiles, ":trustfiles");
1125 DEFSYM (Qgnutls_bootprop_keylist, ":keylist"); 1125 DEFSYM (QCgnutls_bootprop_keylist, ":keylist");
1126 DEFSYM (Qgnutls_bootprop_crlfiles, ":crlfiles"); 1126 DEFSYM (QCgnutls_bootprop_crlfiles, ":crlfiles");
1127 DEFSYM (Qgnutls_bootprop_callbacks, ":callbacks"); 1127 DEFSYM (QCgnutls_bootprop_callbacks, ":callbacks");
1128 DEFSYM (Qgnutls_bootprop_callbacks_verify, "verify"); 1128 DEFSYM (QCgnutls_bootprop_callbacks_verify, "verify");
1129 DEFSYM (Qgnutls_bootprop_min_prime_bits, ":min-prime-bits"); 1129 DEFSYM (QCgnutls_bootprop_min_prime_bits, ":min-prime-bits");
1130 DEFSYM (Qgnutls_bootprop_loglevel, ":loglevel"); 1130 DEFSYM (QCgnutls_bootprop_loglevel, ":loglevel");
1131 DEFSYM (Qgnutls_bootprop_verify_flags, ":verify-flags"); 1131 DEFSYM (QCgnutls_bootprop_verify_flags, ":verify-flags");
1132 DEFSYM (Qgnutls_bootprop_verify_hostname_error, ":verify-hostname-error"); 1132 DEFSYM (QCgnutls_bootprop_verify_hostname_error, ":verify-hostname-error");
1133 1133
1134 DEFSYM (Qgnutls_e_interrupted, "gnutls-e-interrupted"); 1134 DEFSYM (Qgnutls_e_interrupted, "gnutls-e-interrupted");
1135 Fput (Qgnutls_e_interrupted, Qgnutls_code, 1135 Fput (Qgnutls_e_interrupted, Qgnutls_code,
diff --git a/src/xfaces.c b/src/xfaces.c
index ae78a67519f..83c92cdbc52 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -293,7 +293,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
293 293
294/* Non-zero if face attribute ATTR is `ignore-defface'. */ 294/* Non-zero if face attribute ATTR is `ignore-defface'. */
295 295
296#define IGNORE_DEFFACE_P(ATTR) EQ ((ATTR), Qignore_defface) 296#define IGNORE_DEFFACE_P(ATTR) EQ ((ATTR), QCignore_defface)
297 297
298/* Value is the number of elements of VECTOR. */ 298/* Value is the number of elements of VECTOR. */
299 299
@@ -332,7 +332,7 @@ static Lisp_Object Qultra_expanded;
332static Lisp_Object Qreleased_button, Qpressed_button; 332static Lisp_Object Qreleased_button, Qpressed_button;
333static Lisp_Object QCstyle, QCcolor, QCline_width; 333static Lisp_Object QCstyle, QCcolor, QCline_width;
334Lisp_Object Qunspecified; /* used in dosfns.c */ 334Lisp_Object Qunspecified; /* used in dosfns.c */
335static Lisp_Object Qignore_defface; 335static Lisp_Object QCignore_defface;
336 336
337char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg"; 337char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg";
338 338
@@ -2853,7 +2853,7 @@ FRAME 0 means change the face on all frames, and change the default
2853 The value of that attribute will be inherited from some other 2853 The value of that attribute will be inherited from some other
2854 face during face merging. See internal_merge_in_global_face. */ 2854 face during face merging. See internal_merge_in_global_face. */
2855 if (UNSPECIFIEDP (value)) 2855 if (UNSPECIFIEDP (value))
2856 value = Qignore_defface; 2856 value = QCignore_defface;
2857 } 2857 }
2858 else 2858 else
2859 { 2859 {
@@ -3651,7 +3651,7 @@ the only relative value that users see is `unspecified'.
3651However, for :height, floating point values are also relative. */) 3651However, for :height, floating point values are also relative. */)
3652 (Lisp_Object attribute, Lisp_Object value) 3652 (Lisp_Object attribute, Lisp_Object value)
3653{ 3653{
3654 if (EQ (value, Qunspecified) || (EQ (value, Qignore_defface))) 3654 if (EQ (value, Qunspecified) || (EQ (value, QCignore_defface)))
3655 return Qt; 3655 return Qt;
3656 else if (EQ (attribute, QCheight)) 3656 else if (EQ (attribute, QCheight))
3657 return INTEGERP (value) ? Qnil : Qt; 3657 return INTEGERP (value) ? Qnil : Qt;
@@ -3666,7 +3666,7 @@ If VALUE1 or VALUE2 are absolute (see `face-attribute-relative-p'), then
3666the result will be absolute, otherwise it will be relative. */) 3666the result will be absolute, otherwise it will be relative. */)
3667 (Lisp_Object attribute, Lisp_Object value1, Lisp_Object value2) 3667 (Lisp_Object attribute, Lisp_Object value1, Lisp_Object value2)
3668{ 3668{
3669 if (EQ (value1, Qunspecified) || EQ (value1, Qignore_defface)) 3669 if (EQ (value1, Qunspecified) || EQ (value1, QCignore_defface))
3670 return value2; 3670 return value2;
3671 else if (EQ (attribute, QCheight)) 3671 else if (EQ (attribute, QCheight))
3672 return merge_face_heights (value1, value2, value1); 3672 return merge_face_heights (value1, value2, value1);
@@ -6484,7 +6484,7 @@ syms_of_xfaces (void)
6484 DEFSYM (Qbackground_color, "background-color"); 6484 DEFSYM (Qbackground_color, "background-color");
6485 DEFSYM (Qforeground_color, "foreground-color"); 6485 DEFSYM (Qforeground_color, "foreground-color");
6486 DEFSYM (Qunspecified, "unspecified"); 6486 DEFSYM (Qunspecified, "unspecified");
6487 DEFSYM (Qignore_defface, ":ignore-defface"); 6487 DEFSYM (QCignore_defface, ":ignore-defface");
6488 6488
6489 DEFSYM (Qface_alias, "face-alias"); 6489 DEFSYM (Qface_alias, "face-alias");
6490 DEFSYM (Qdefault, "default"); 6490 DEFSYM (Qdefault, "default");