From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-29436-mason-zsh=primenet.com.au@zsh.org>
Received: (qmail 7818 invoked by alias); 2 Jun 2011 14:26:14 -0000
Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm
Precedence: bulk
X-No-Archive: yes
List-Id: Zsh Workers List <zsh-workers.zsh.org>
List-Post: <mailto:zsh-workers@zsh.org>
List-Help: <mailto:zsh-workers-help@zsh.org>
X-Seq: 29436
Received: (qmail 14123 invoked from network); 2 Jun 2011 14:26:03 -0000
X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on f.primenet.com.au
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_NONE
	autolearn=ham version=3.3.1
Received-SPF: none (ns1.primenet.com.au: domain at closedmail.com does not designate permitted sender hosts)
From: Bart Schaefer <schaefer@brasslantern.com>
Message-id: <110602072553.ZM15639@torch.brasslantern.com>
Date: Thu, 02 Jun 2011 07:25:53 -0700
In-reply-to: <4DE6FDA4.6060705@realraum.at>
Comments: In reply to Bernhard Tittelbach <xro@realraum.at>
 "Re: Behaviour of {beginning,end}-of-buffer-or-history" (Jun  2,  5:04am)
References: <is65ie$jtu$1@dough.gmane.org>
	<110601192206.ZM14271@torch.brasslantern.com>	<4DE6FDA4.6060705@realraum.at>
X-Mailer: OpenZMail Classic (0.9.2 24April2005)
To: zsh-workers@zsh.org
Subject: Re: Behaviour of {beginning,end}-of-buffer-or-history
MIME-version: 1.0
Content-type: text/plain; charset=us-ascii

On Jun 2,  5:04am, Bernhard Tittelbach wrote:
}
} > beginning-or-end-of-somewhere() {
} >   local hno=$HISTNO
} >   zle .${WIDGET:s/somewhere/line-hist/} "$@"
} >   if (( HISTNO != hno )); then
} >     zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
} >   fi
} > }
} > zle -N beginning-of-somewhere beginning-or-end-of-somewhere
} > zle -N end-of-somewhere beginning-or-end-of-somewhere
} >
} 
} Mhh, just when I got used to jumping to the beginning/end of a 
} multi-line buffer with a double keypress of HOME/END ...

A quick test of [[ $LBUFFER[-1] = $'\n' ]] should fix that.

beginning-or-end-of-somewhere() {
  local hno=$HISTNO
  if [[ "${LBUFFER[-1]}" = $'\n' ]]
  then
    zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
  else
    zle .${WIDGET:s/somewhere/line-hist/} "$@"
    if (( HISTNO != hno )); then
      zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
    fi
  fi
}
zle -N beginning-of-somewhere beginning-or-end-of-somewhere
zle -N end-of-somewhere beginning-or-end-of-somewhere