Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 23723:b706421adbd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)