diff options
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index ab6efd137e0..6b0a0b69c03 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -69,7 +69,15 @@ | |||
| 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 |