diff options
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 66 |
1 files changed, 32 insertions, 34 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 539b2771490..b36896ae7ce 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1429,10 +1429,40 @@ the last)." (rx (sequence line-start (0+ blank) (eval cperl--imenu-entries-rx))) "The regular expression used for `outline-minor-mode'.") -(defvar cperl-mode-syntax-table nil +(defvar cperl-mode-syntax-table + (let ((st (make-syntax-table))) + (modify-syntax-entry ?\\ "\\" st) + (modify-syntax-entry ?/ "." st) + (modify-syntax-entry ?* "." st) + (modify-syntax-entry ?+ "." st) + (modify-syntax-entry ?- "." st) + (modify-syntax-entry ?= "." st) + (modify-syntax-entry ?% "." st) + (modify-syntax-entry ?< "." st) + (modify-syntax-entry ?> "." st) + (modify-syntax-entry ?& "." st) + (modify-syntax-entry ?$ "\\" st) + (modify-syntax-entry ?\n ">" st) + (modify-syntax-entry ?# "<" st) + (modify-syntax-entry ?' "\"" st) + (modify-syntax-entry ?` "\"" st) + (if cperl-under-as-char + (modify-syntax-entry ?_ "w" st)) + (modify-syntax-entry ?: "_" st) + (modify-syntax-entry ?| "." st) + st) "Syntax table in use in CPerl mode buffers.") -(defvar cperl-string-syntax-table nil +(defvar cperl-string-syntax-table + (let ((st (copy-syntax-table cperl-mode-syntax-table))) + (modify-syntax-entry ?$ "." st) + (modify-syntax-entry ?\{ "." st) + (modify-syntax-entry ?\} "." st) + (modify-syntax-entry ?\" "." st) + (modify-syntax-entry ?' "." st) + (modify-syntax-entry ?` "." st) + (modify-syntax-entry ?# "." st) ; (?# comment ) + st) "Syntax table in use in CPerl mode string-like chunks.") (defsubst cperl-1- (p) @@ -1441,38 +1471,6 @@ the last)." (defsubst cperl-1+ (p) (min (point-max) (1+ p))) -(if cperl-mode-syntax-table - () - (setq cperl-mode-syntax-table (make-syntax-table)) - (modify-syntax-entry ?\\ "\\" cperl-mode-syntax-table) - (modify-syntax-entry ?/ "." cperl-mode-syntax-table) - (modify-syntax-entry ?* "." cperl-mode-syntax-table) - (modify-syntax-entry ?+ "." cperl-mode-syntax-table) - (modify-syntax-entry ?- "." cperl-mode-syntax-table) - (modify-syntax-entry ?= "." cperl-mode-syntax-table) - (modify-syntax-entry ?% "." cperl-mode-syntax-table) - (modify-syntax-entry ?< "." cperl-mode-syntax-table) - (modify-syntax-entry ?> "." cperl-mode-syntax-table) - (modify-syntax-entry ?& "." cperl-mode-syntax-table) - (modify-syntax-entry ?$ "\\" cperl-mode-syntax-table) - (modify-syntax-entry ?\n ">" cperl-mode-syntax-table) - (modify-syntax-entry ?# "<" cperl-mode-syntax-table) - (modify-syntax-entry ?' "\"" cperl-mode-syntax-table) - (modify-syntax-entry ?` "\"" cperl-mode-syntax-table) - (if cperl-under-as-char - (modify-syntax-entry ?_ "w" cperl-mode-syntax-table)) - (modify-syntax-entry ?: "_" cperl-mode-syntax-table) - (modify-syntax-entry ?| "." cperl-mode-syntax-table) - (setq cperl-string-syntax-table (copy-syntax-table cperl-mode-syntax-table)) - (modify-syntax-entry ?$ "." cperl-string-syntax-table) - (modify-syntax-entry ?\{ "." cperl-string-syntax-table) - (modify-syntax-entry ?\} "." cperl-string-syntax-table) - (modify-syntax-entry ?\" "." cperl-string-syntax-table) - (modify-syntax-entry ?' "." cperl-string-syntax-table) - (modify-syntax-entry ?` "." cperl-string-syntax-table) - (modify-syntax-entry ?# "." cperl-string-syntax-table)) ; (?# comment ) - - (defvar cperl-faces-init nil) ;; Fix for msb.el |