Mercurial > emacs
changeset 17860:99adb4d59379
(set-case-syntax-offset): New variable.
(set-case-syntax-delims): Obey set-case-syntax-offset.
(set-case-syntax-pair, set-case-syntax): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 May 1997 18:40:38 +0000 |
| parents | 27d5828e6c50 |
| children | f84a12392eab |
| files | lisp/case-table.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/case-table.el Sat May 17 18:39:23 1997 +0000 +++ b/lisp/case-table.el Sat May 17 18:40:38 1997 +0000 @@ -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 @@ 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 @@ 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 @@ 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)