aboutsummaryrefslogtreecommitdiffstats
path: root/src/casetab.c
diff options
context:
space:
mode:
authorPaul Eggert2011-04-15 00:48:51 -0700
committerPaul Eggert2011-04-15 00:48:51 -0700
commit4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9 (patch)
treee993b231bb5555c9c961f5d0b20d90ac76f77bbd /src/casetab.c
parent1963a2e0bb07cc8dee6d27f972f93d9cfd7c6b2d (diff)
parent49093f601b69d91126aefd328ee8f6bfeb797407 (diff)
downloademacs-4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9.tar.gz
emacs-4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9.zip
Merge from mainline.
Diffstat (limited to 'src/casetab.c')
-rw-r--r--src/casetab.c11
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
27Lisp_Object Qcase_table_p, Qcase_table; 27static Lisp_Object Qcase_table_p, Qcase_table;
28Lisp_Object Vascii_downcase_table, Vascii_upcase_table; 28Lisp_Object Vascii_downcase_table;
29Lisp_Object Vascii_canon_table, Vascii_eqv_table; 29static Lisp_Object Vascii_upcase_table;
30Lisp_Object Vascii_canon_table;
31static Lisp_Object Vascii_eqv_table;
30 32
31static void set_canon (Lisp_Object case_table, Lisp_Object range, Lisp_Object elt); 33static void set_canon (Lisp_Object case_table, Lisp_Object range, Lisp_Object elt);
32static void set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt); 34static 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
104DEFUN ("set-standard-case-table", Fset_standard_case_table, Sset_standard_case_table, 1, 1, 0, 106DEFUN ("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.
106See `set-case-table' for more info on case tables. */) 109See `set-case-table' for more info on case tables. */)
107 (Lisp_Object table) 110 (Lisp_Object table)