(Fset_window_margins): Allow only integers as args.

[gnu-emacs] / src / syntax.h

diff --git a/src/syntax.h b/src/syntax.h
index 41f6662ddeb14971e2662d957f0a6e7ca42bd426..b275ded57156666e0e238daead7b7bab53a31e26 100644 (file)
--- a/src/syntax.h
+++ b/src/syntax.h
@@ -90,7 +90,7 @@ extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int));
 #endif
 
 /* SYNTAX_ENTRY fetches the information from the entry for character C
-   in syntax table TABLE, or from globally kept data (gl_state).  
+   in syntax table TABLE, or from globally kept data (gl_state).
    Does inheritance.  */
 /* CURRENT_SYNTAX_TABLE gives the syntax table valid for current
    position, it is either the buffer's syntax table, or syntax table
@@ -277,7 +277,7 @@ extern char syntax_code_spec[16];
    search, or after the last position of the backward search.  It
    makes sure that the first char is picked up with correct table, so
    one does not need to call UPDATE_SYNTAX_TABLE immediately after the
-   call. 
+   call.
    Sign of COUNT gives the direction of the search.
  */
 
@@ -330,7 +330,7 @@ if (1)                                                                      \
     else                                                               \
       {                                                                        \
        gl_state.b_property = 0;                                        \
-       gl_state.e_property = 1 + XSTRING (gl_state.object)->size;      \
+       gl_state.e_property = 1 + SCHARS (gl_state.object);             \
        gl_state.offset = 0;                                            \
       }                                                                        \
     gl_state.use_global = 0;                                           \
@@ -371,3 +371,6 @@ extern int parse_sexp_lookup_properties;
 extern INTERVAL interval_of P_ ((int, Lisp_Object));
 
 extern int scan_words P_ ((int, int));
+
+/* arch-tag: 28833cca-cd73-4741-8c85-a3111166a0e0
+   (do not change this comment) */