diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2000-09-23 16:47:42 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2000-09-23 16:47:42 +0000 |
commit | 355cddd5dce166cd15998d81e5e6dece96db2858 (patch) | |
tree | 56ffbc1410f37931e42f3e54ae774b635ce042f8 | |
parent | 6b9442beff024dcc7839df74f6316f4266c85ba3 (diff) |
Add Pierre's tweak
-rw-r--r-- | hol98/x-symbol-hol98.el | 4 | ||||
-rw-r--r-- | lego/x-symbol-lego.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/hol98/x-symbol-hol98.el b/hol98/x-symbol-hol98.el index 8c60b4ca..920af03d 100644 --- a/hol98/x-symbol-hol98.el +++ b/hol98/x-symbol-hol98.el @@ -60,7 +60,9 @@ (defvar x-symbol-hol98-electric-ignore nil) (defvar x-symbol-hol98-required-fonts nil) (defvar x-symbol-hol98-case-insensitive nil) -(defvar x-symbol-hol98-token-shape nil) +;; Setting token shape prevents "philosophy" example, but still +;; problems, e.g. delphi, false1. (Pierre) +(defvar x-symbol-hol98-token-shape '(?_ "[A-Za-z]+" . "[A-Za-z_]")) (defvar x-symbol-hol98-table x-symbol-hol98-symbol-table) (defun x-symbol-hol98-default-token-list (tokens) tokens) (defvar x-symbol-hol98-token-list 'x-symbol-hol98-default-token-list) diff --git a/lego/x-symbol-lego.el b/lego/x-symbol-lego.el index bcc25a50..531810fa 100644 --- a/lego/x-symbol-lego.el +++ b/lego/x-symbol-lego.el @@ -57,7 +57,9 @@ (defvar x-symbol-lego-electric-ignore nil) (defvar x-symbol-lego-required-fonts nil) (defvar x-symbol-lego-case-insensitive nil) -(defvar x-symbol-lego-token-shape nil) +;; Setting token shape prevents "philosophy" example, but still +;; problems, e.g. delphi, false1. (Pierre) +(defvar x-symbol-lego-token-shape '(?_ "[A-Za-z]+" . "[A-Za-z_]")) (defvar x-symbol-lego-table x-symbol-lego-symbol-table) (defun x-symbol-lego-default-token-list (tokens) tokens) (defvar x-symbol-lego-token-list 'x-symbol-lego-default-token-list) |