From 6151201e58ed340b20670c0fed546dbdc56dc550 Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Mon, 14 Aug 2000 15:32:18 +0000 Subject: enhancement of x-symbol for coq, philosophy is not encoded, and phi1 is, one problem remains: a word ending with phi will be encoded. --- coq/x-symbol-coq.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/coq/x-symbol-coq.el b/coq/x-symbol-coq.el index 541560ee..3f77c1b3 100644 --- a/coq/x-symbol-coq.el +++ b/coq/x-symbol-coq.el @@ -6,7 +6,10 @@ ;; (defvar x-symbol-coq-symbol-table - '((longarrowright () "->" "\\") + '((perpendicular () "False" "\\") + (top () "True" "\\") + (notsign () "~" "\\") + (longarrowright () "->" "\\") (logicaland () "/\\" "\\") (logicalor () "\\/" "\\") (equivalence () "<->" "\\") @@ -58,7 +61,15 @@ (defvar x-symbol-coq-electric-ignore nil) (defvar x-symbol-coq-required-fonts nil) (defvar x-symbol-coq-case-insensitive nil) -(defvar x-symbol-coq-token-shape nil) + +;Pierre: let's try this, phi1 will be encoded, but not phia or +;philosophy. problem: blaphi will be encoded, other problem: false1 +;sholud not be encoded (this on eshould be easy: +;x-symbol-coq-token-shape is a list) + +(defvar x-symbol-coq-token-shape '(?_ "[A-Za-z]+" . "[^0-9\ \t\n]")) +;(defvar x-symbol-coq-token-shape nil) + (defvar x-symbol-coq-table x-symbol-coq-symbol-table) (defun x-symbol-coq-default-token-list (tokens) tokens) (defvar x-symbol-coq-token-list 'x-symbol-coq-default-token-list) -- cgit v1.2.3