diff options
Diffstat (limited to 'src/casetab.c')
| -rw-r--r-- | src/casetab.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/casetab.c b/src/casetab.c index 9a1accf6940..29120dd08ce 100644 --- a/src/casetab.c +++ b/src/casetab.c | |||
| @@ -24,9 +24,11 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 24 | #include "buffer.h" | 24 | #include "buffer.h" |
| 25 | #include "character.h" | 25 | #include "character.h" |
| 26 | 26 | ||
| 27 | Lisp_Object Qcase_table_p, Qcase_table; | 27 | static Lisp_Object Qcase_table_p, Qcase_table; |
| 28 | Lisp_Object Vascii_downcase_table, Vascii_upcase_table; | 28 | Lisp_Object Vascii_downcase_table; |
| 29 | Lisp_Object Vascii_canon_table, Vascii_eqv_table; | 29 | static Lisp_Object Vascii_upcase_table; |
| 30 | Lisp_Object Vascii_canon_table; | ||
| 31 | static Lisp_Object Vascii_eqv_table; | ||
| 30 | 32 | ||
| 31 | static void set_canon (Lisp_Object case_table, Lisp_Object range, Lisp_Object elt); | 33 | static void set_canon (Lisp_Object case_table, Lisp_Object range, Lisp_Object elt); |
| 32 | static void set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt); | 34 | static void set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt); |
| @@ -101,7 +103,8 @@ EQUIVALENCES is a map that cyclicly permutes each equivalence class | |||
| 101 | return set_case_table (table, 0); | 103 | return set_case_table (table, 0); |
| 102 | } | 104 | } |
| 103 | 105 | ||
| 104 | DEFUN ("set-standard-case-table", Fset_standard_case_table, Sset_standard_case_table, 1, 1, 0, | 106 | DEFUN ("set-standard-case-table", Fset_standard_case_table, |
| 107 | Sset_standard_case_table, 1, 1, 0, | ||
| 105 | doc: /* Select a new standard case table for new buffers. | 108 | doc: /* Select a new standard case table for new buffers. |
| 106 | See `set-case-table' for more info on case tables. */) | 109 | See `set-case-table' for more info on case tables. */) |
| 107 | (Lisp_Object table) | 110 | (Lisp_Object table) |