Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 27934:8c28c1c31e9b
(lisp-mode-syntax-table): Fix syntax of |.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 01 Mar 2000 20:59:07 +0000 |
| parents | f2abbe1d6b47 |
| children | 979a905864ab |
comparison
equal
deleted
inserted
replaced
| 27933:ea5807a5d84e | 27934:8c28c1c31e9b |
|---|---|
| 70 (modify-syntax-entry ?\] ")[ " table)) | 70 (modify-syntax-entry ?\] ")[ " table)) |
| 71 table)) | 71 table)) |
| 72 | 72 |
| 73 (defvar lisp-mode-syntax-table | 73 (defvar lisp-mode-syntax-table |
| 74 (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) | 74 (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) |
| 75 (modify-syntax-entry ?\| "\" " table) | |
| 76 (modify-syntax-entry ?\[ "_ " table) | 75 (modify-syntax-entry ?\[ "_ " table) |
| 77 (modify-syntax-entry ?\] "_ " table) | 76 (modify-syntax-entry ?\] "_ " table) |
| 78 (modify-syntax-entry ?# "' 14bn" table) | 77 (modify-syntax-entry ?# "' 14bn" table) |
| 79 (modify-syntax-entry ?| "' 23b" table) | 78 (modify-syntax-entry ?| "\" 23b" table) |
| 80 table)) | 79 table)) |
| 81 | 80 |
| 82 (define-abbrev-table 'lisp-mode-abbrev-table ()) | 81 (define-abbrev-table 'lisp-mode-abbrev-table ()) |
| 83 | 82 |
| 84 (defvar lisp-imenu-generic-expression | 83 (defvar lisp-imenu-generic-expression |