diff options
| -rw-r--r-- | lisp/case-table.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 71b9b76823c..d34cdc37db9 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -34,6 +34,8 @@ ;;; Code: +(defvar set-case-syntax-offset 0) + ;;;###autoload (defun describe-buffer-case-table () "Describe the case table of the current buffer." @@ -76,6 +78,8 @@ This sets the entries for L and R in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table' to indicate left and right delimiters." + (setq l (+ set-case-syntax-offset l)) + (setq r (+ set-case-syntax-offset r)) (aset table l l) (aset table r r) ;; Clear out the extra slots so that they will be @@ -95,6 +99,8 @@ This sets the entries for characters UC and LC in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table' to give them the syntax of word constituents." + (setq uc (+ set-case-syntax-offset uc)) + (setq lc (+ set-case-syntax-offset lc)) (aset table uc lc) (aset table lc lc) (set-char-table-extra-slot table 0 nil) @@ -110,6 +116,7 @@ This sets the entry for character C in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table'. SYNTAX should be \" \", \"w\", \".\" or \"_\"." + (setq c (+ set-case-syntax-offset c)) (aset table c c) (set-char-table-extra-slot table 0 nil) (set-char-table-extra-slot table 1 nil) |