/**
 * Convert the portion of the current word to upper case, starting at the
 * caret and moving to the end of the word. Emulates the Emacs "upcase-word"
 * function.
 */

source (MiscUtilities.constructPath(dirname(scriptPath), "EmacsUtil.bsh"));

void emacsUpcaseWord()
{
    caret = eatNonAlphanums();

    textArea.goToNextWord (false);
    endOfWord = textArea.getCaretPosition();

    textArea.setCaretPosition (caret);
    selection = new Selection.Range (caret, endOfWord);
    textArea.setSelection (selection);
    textArea.toUpperCase();
}

emacsUpcaseWord();