Better regexp for PG SQL identifiers

This commit is contained in:
Victor Kryukov 2015-02-24 17:39:51 -08:00 committed by Dimitri Fontaine
parent 54997be2dd
commit 792db2fcf4

View File

@ -26,7 +26,7 @@
(cond ((quoted-p identifier)
:none)
((cl-ppcre:scan "[^A-Za-z_]" identifier)
((not (cl-ppcre:scan "^[A-Za-z_][A-Za-z0-9_$]*$" identifier))
:quote)
((member lowercase-identifier *pgsql-reserved-keywords*