Spacing between words in listings package and emphasizing identifiers

Question

I have written some source code using listings package but is stretching out of the page. This package leaves huge spaces between the words, so is there a way to make them smaller? At least like the spaces in normal text?

Also I tried to use emph and emphstyle and it only identifies single words. I wrote for each and it doesn't recognize it. What should I do to recognize multiple words?

\documentclass[12pt]{article}

\usepackage
[
  top=0.7in,
  bottom=1.2in,
  left=0.8in,
  right=0.8in
]{geometry}


\usepackage{parskip}

\setlength{\parindent}{0cm}

\usepackage[fleqn]{amsmath}

\usepackage{unicode-math}

\usepackage{fontspec}

\usepackage[english,greek]{babel}


\setmainfont
[
  Ligatures=TeX,
  Extension=.otf,
  UprightFont=*,
  BoldFont=*Bold,
  ItalicFont=*It,
  BoldItalicFont=*BoldIt,
  Mapping=tex-text
]{GFSArtemisia}

\setsansfont[Mapping=tex-text]{GFSArtemisia.otf}


%Math fonts

\setmathfont{latinmodern-math.otf}
\setmathfont[range=\varnothing]{Asana-Math.otf}
\setmathfont[range=\int]{latinmodern-math.otf}

\usepackage{listings}

\usepackage[usenames,dvipsnames,svgnames,table]{xcolor}

\begin{document}

\lstset
{
    basicstyle=\ttfamily,
    keepspaces=true,
    emph=
    {
    if, for each, loop do,
    then return, function
    },
    emphstyle=\color{red}
}

\selectlanguage{english}


\begin{lstlisting}[title={Breadth-First Search}]
function BREADTH-FIRST-SEARCH(Problem) return A solution or failure

Node= Root

if Problem.GOAL-TEST(Node.STATE) then return SOLUTION(Node)

Frontier= Node

Explored= Empty

loop do

    if EMPTY(Frontier) then return failure

    Node= POP(Frontier)

    add Node.STATE to Explored

    for each Action in Problem.ACTIONS(Node.STATE) do

        Child= CHILD-NODE(Problem,Node,Action)

        if Child.STATE is not in Explored or Frontier then

            if Problem.GOAL-TEST(Child.STATE) then return SOLUTION(Child)
            Frontier=INSERT(Child, Frontier)
\end{lstlisting}

\end{document}