Mercurial > emacs
comparison src/casetab.c @ 3069:93ff3c50bd1d
* casetab.c: Fix formatting, so as not to confuse etags.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 25 May 1993 13:03:47 +0000 |
parents | e94a593c3952 |
children | 1fc792473491 |
comparison
equal
deleted
inserted
replaced
3068:32c1cb0149b3 | 3069:93ff3c50bd1d |
---|---|
74 eqv = current_buffer->case_eqv_table; | 74 eqv = current_buffer->case_eqv_table; |
75 | 75 |
76 return Fcons (down, Fcons (up, Fcons (canon, Fcons (eqv, Qnil)))); | 76 return Fcons (down, Fcons (up, Fcons (canon, Fcons (eqv, Qnil)))); |
77 } | 77 } |
78 | 78 |
79 DEFUN ("standard-case-table", Fstandard_case_table, | 79 DEFUN ("standard-case-table", Fstandard_case_table, Sstandard_case_table, 0, 0, 0, |
80 Sstandard_case_table, 0, 0, 0, | |
81 "Return the standard case table.\n\ | 80 "Return the standard case table.\n\ |
82 This is the one used for new buffers.") | 81 This is the one used for new buffers.") |
83 () | 82 () |
84 { | 83 { |
85 return Fcons (Vascii_downcase_table, | 84 return Fcons (Vascii_downcase_table, |
109 Lisp_Object table; | 108 Lisp_Object table; |
110 { | 109 { |
111 return set_case_table (table, 0); | 110 return set_case_table (table, 0); |
112 } | 111 } |
113 | 112 |
114 DEFUN ("set-standard-case-table", | 113 DEFUN ("set-standard-case-table", Fset_standard_case_table, Sset_standard_case_table, 1, 1, 0, |
115 Fset_standard_case_table, Sset_standard_case_table, 1, 1, 0, | |
116 "Select a new standard case table for new buffers.\n\ | 114 "Select a new standard case table for new buffers.\n\ |
117 See `set-case-table' for more info on case tables.") | 115 See `set-case-table' for more info on case tables.") |
118 (table) | 116 (table) |
119 Lisp_Object table; | 117 Lisp_Object table; |
120 { | 118 { |