*** pgadmin/ctl/ctlSQLBox.cpp.orig	Fri Oct 19 14:51:53 2007
--- pgadmin/ctl/ctlSQLBox.cpp	Fri Oct 19 14:52:28 2007
***************
*** 24,29 ****
--- 24,31 ----
  #include <wx/regex.h>
  
  wxString ctlSQLBox::sqlKeywords;
+ /* The special word for Pl/pgSQL is added. */
+ wxString dbgkeywordopt = wxT(" elsif exception exit loop raise record return text");
  
  
  BEGIN_EVENT_TABLE(ctlSQLBox, wxStyledTextCtrl)
***************
*** 107,113 ****
      if (sqlKeywords.IsEmpty())
          FillKeywords(sqlKeywords);
      SetLexer(wxSTC_LEX_SQL);
!     SetKeyWords(0, sqlKeywords);
  
      wxAcceleratorEntry entries[2];
      entries[0].Set(wxACCEL_CTRL, (int)'F', MNU_FIND);
--- 109,115 ----
      if (sqlKeywords.IsEmpty())
          FillKeywords(sqlKeywords);
      SetLexer(wxSTC_LEX_SQL);
!     SetKeyWords(0, sqlKeywords + dbgkeywordopt);
  
      wxAcceleratorEntry entries[2];
      entries[0].Set(wxACCEL_CTRL, (int)'F', MNU_FIND);