423 |
@group |
@group |
424 |
;; @r{Set syntax of chars up to 0 to class of chars that are} |
;; @r{Set syntax of chars up to 0 to class of chars that are} |
425 |
;; @r{part of symbol names but not words.} |
;; @r{part of symbol names but not words.} |
426 |
;; @r{(The number 0 is @code{48} in the @sc{ascii} character set.)} |
;; @r{(The number 0 is @code{48} in the @acronym{ASCII} character set.)} |
427 |
(while (< i ?0) |
(while (< i ?0) |
428 |
(modify-syntax-entry i "_ " emacs-lisp-mode-syntax-table) |
(modify-syntax-entry i "_ " emacs-lisp-mode-syntax-table) |
429 |
(setq i (1+ i))) |
(setq i (1+ i))) |