From 6806ead529d2b465d2ca4c9df5c1ead2f16ed6e2 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Mon, 17 Oct 2011 19:59:18 +0000 Subject: [PATCH] 2011-10-17 12:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/ideedit.prg ! Fixed: uppercased source names were not considered for Harbour keywords. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbide/ideedit.prg | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ea2890656e..eee0fe4790 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2011-10-17 12:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/ideedit.prg + ! Fixed: uppercased source names were not considered for Harbour keywords. + 2011-10-14 10:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbapicdp.h * harbour/src/rtl/cdpapi.c diff --git a/harbour/contrib/hbide/ideedit.prg b/harbour/contrib/hbide/ideedit.prg index 50698d9afa..cf75589401 100644 --- a/harbour/contrib/hbide/ideedit.prg +++ b/harbour/contrib/hbide/ideedit.prg @@ -2196,7 +2196,7 @@ METHOD IdeEdit:handlePreviousWord( lUpdatePrevWord ) nL := len( cWord ) + nSpace nB := qCursor:position() - nL - IF ::oEditor:cExt $ ".prg,.hbs" .AND. ! ::oINI:lSupressHbKWordsToUpper + IF lower( ::oEditor:cExt ) $ ".prg,.hbs" .AND. ! ::oINI:lSupressHbKWordsToUpper qCursor:beginEditBlock() qCursor:setPosition( nB ) qCursor:movePosition( QTextCursor_NextCharacter, QTextCursor_KeepAnchor, nL )