view etc/nxml/02070-0209F.el @ 105872:89183b6f6e9d

* 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.

(nxml-define-char-name-set 'superscripts-and-subscripts
  '(("SUPERSCRIPT ZERO" #x2070)
    ("SUPERSCRIPT LATIN SMALL LETTER I" #x2071)
    ("SUPERSCRIPT FOUR" #x2074)
    ("SUPERSCRIPT FIVE" #x2075)
    ("SUPERSCRIPT SIX" #x2076)
    ("SUPERSCRIPT SEVEN" #x2077)
    ("SUPERSCRIPT EIGHT" #x2078)
    ("SUPERSCRIPT NINE" #x2079)
    ("SUPERSCRIPT PLUS SIGN" #x207A)
    ("SUPERSCRIPT MINUS" #x207B)
    ("SUPERSCRIPT EQUALS SIGN" #x207C)
    ("SUPERSCRIPT LEFT PARENTHESIS" #x207D)
    ("SUPERSCRIPT RIGHT PARENTHESIS" #x207E)
    ("SUPERSCRIPT LATIN SMALL LETTER N" #x207F)
    ("SUBSCRIPT ZERO" #x2080)
    ("SUBSCRIPT ONE" #x2081)
    ("SUBSCRIPT TWO" #x2082)
    ("SUBSCRIPT THREE" #x2083)
    ("SUBSCRIPT FOUR" #x2084)
    ("SUBSCRIPT FIVE" #x2085)
    ("SUBSCRIPT SIX" #x2086)
    ("SUBSCRIPT SEVEN" #x2087)
    ("SUBSCRIPT EIGHT" #x2088)
    ("SUBSCRIPT NINE" #x2089)
    ("SUBSCRIPT PLUS SIGN" #x208A)
    ("SUBSCRIPT MINUS" #x208B)
    ("SUBSCRIPT EQUALS SIGN" #x208C)
    ("SUBSCRIPT LEFT PARENTHESIS" #x208D)
    ("SUBSCRIPT RIGHT PARENTHESIS" #x208E)
    ))

;; arch-tag: 59e357e5-c021-440d-a923-921b485dcbb8