Allow autocompletion in Perl double-quoted strings.

Don't autocomplete in Perl single-quoted strings (closes #2821061).
Don't autocomplete in Perl q() strings.



git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@3961 ea778897-0a13-0410-b9d1-a72fbfd435f5
This commit is contained in:
Nick Treleaven 2009-07-14 11:04:52 +00:00
parent 10b519d786
commit c07e7af183
2 changed files with 11 additions and 1 deletions

View File

@ -2,6 +2,10 @@
* src/editor.c: * src/editor.c:
Properly fix wrong brace highlighting of non-brace character. Properly fix wrong brace highlighting of non-brace character.
* src/editor.c:
Allow autocompletion in Perl double-quoted strings.
Don't autocomplete in Perl single-quoted strings (closes #2821061).
Don't autocomplete in Perl q() strings.
2009-07-13 Nick Treleaven <nick(dot)treleaven(at)btinternet(dot)com> 2009-07-13 Nick Treleaven <nick(dot)treleaven(at)btinternet(dot)com>

View File

@ -3248,12 +3248,18 @@ static gboolean is_string_style(gint lexer, gint style)
style == SCE_F_STRINGEOL); style == SCE_F_STRINGEOL);
case SCLEX_PERL: case SCLEX_PERL:
return (style == SCE_PL_STRING || return (/*style == SCE_PL_STRING ||*/ /* may want variable autocompletion "$(foo)" */
style == SCE_PL_CHARACTER ||
style == SCE_PL_HERE_DELIM || style == SCE_PL_HERE_DELIM ||
style == SCE_PL_HERE_Q || style == SCE_PL_HERE_Q ||
style == SCE_PL_HERE_QQ || style == SCE_PL_HERE_QQ ||
style == SCE_PL_HERE_QX || style == SCE_PL_HERE_QX ||
style == SCE_PL_POD || style == SCE_PL_POD ||
style == SCE_PL_STRING_Q ||
style == SCE_PL_STRING_QQ ||
style == SCE_PL_STRING_QX ||
style == SCE_PL_STRING_QR ||
style == SCE_PL_STRING_QW ||
style == SCE_PL_POD_VERB); style == SCE_PL_POD_VERB);
case SCLEX_R: case SCLEX_R: