Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 23723:b706421adbd5
Set syntaxes all non-word multibyte
characters to symbol.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 16 Nov 1998 06:26:27 +0000 |
parents | 8aa1f99efb66 |
children | 2ef2813414b6 |
comparison
equal
deleted
inserted
replaced
23722:b0c66c87b29b | 23723:b706421adbd5 |
---|---|
67 (modify-syntax-entry ?\" "\" " emacs-lisp-mode-syntax-table) | 67 (modify-syntax-entry ?\" "\" " emacs-lisp-mode-syntax-table) |
68 (modify-syntax-entry ?\\ "\\ " emacs-lisp-mode-syntax-table) | 68 (modify-syntax-entry ?\\ "\\ " emacs-lisp-mode-syntax-table) |
69 (modify-syntax-entry ?\( "() " emacs-lisp-mode-syntax-table) | 69 (modify-syntax-entry ?\( "() " emacs-lisp-mode-syntax-table) |
70 (modify-syntax-entry ?\) ")( " emacs-lisp-mode-syntax-table) | 70 (modify-syntax-entry ?\) ")( " emacs-lisp-mode-syntax-table) |
71 (modify-syntax-entry ?\[ "(] " emacs-lisp-mode-syntax-table) | 71 (modify-syntax-entry ?\[ "(] " emacs-lisp-mode-syntax-table) |
72 (modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table))) | 72 (modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table) |
73 ;; All non-word multibyte characters should be `symbol'. | |
74 (map-char-table | |
75 (function (lambda (key val) | |
76 (and (>= key 256) | |
77 (/= (char-syntax key) ?w) | |
78 (modify-syntax-entry key "_ " | |
79 emacs-lisp-mode-syntax-table)))) | |
80 (standard-syntax-table)))) | |
73 | 81 |
74 (if (not lisp-mode-syntax-table) | 82 (if (not lisp-mode-syntax-table) |
75 (progn (setq lisp-mode-syntax-table | 83 (progn (setq lisp-mode-syntax-table |
76 (copy-syntax-table emacs-lisp-mode-syntax-table)) | 84 (copy-syntax-table emacs-lisp-mode-syntax-table)) |
77 (modify-syntax-entry ?\| "\" " lisp-mode-syntax-table) | 85 (modify-syntax-entry ?\| "\" " lisp-mode-syntax-table) |