From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Greg Bognar <greg.bognar@gmail.com>
Newsgroups: gmane.emacs.help
Subject: Re: copy-word-from-line-above
Date: Sun, 21 Jan 2007 00:36:12 -0500
Organization: Harvard University
Message-ID: <pan.2007.01.21.05.36.05.491904@gmail.com>
References: <1169142712.291197.26770@a75g2000cwd.googlegroups.com>
	<1169238317.347524.324700@m58g2000cwm.googlegroups.com>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: sea.gmane.org 1169358027 32533 80.91.229.12 (21 Jan 2007 05:40:27 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Sun, 21 Jan 2007 05:40:27 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Jan 21 06:40:25 2007
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1H8VRH-0001og-LG
	for geh-help-gnu-emacs@m.gmane.org; Sun, 21 Jan 2007 06:40:23 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1H8VRH-0007Bx-6g
	for geh-help-gnu-emacs@m.gmane.org; Sun, 21 Jan 2007 00:40:23 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!elk.ncren.net!NNTP.WPI.EDU!newsfeed-00.mathworks.com!kanaga.switch.ch!switch.ch!news.belwue.de!LF.net!quimby.gnus.org!news.ccs.neu.edu!news.dfci.harvard.edu!news.harvard.edu!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 21
Original-NNTP-Posting-Host: dhcp-186-239.harvard.edu
Original-X-Trace: plato.harvard.edu 1169357772 28009 128.103.186.239 (21 Jan 2007
	05:36:12 GMT)
Original-X-Complaints-To: news@plato.harvard.edu
Original-NNTP-Posting-Date: Sun, 21 Jan 2007 05:36:12 +0000 (UTC)
User-Agent: Pan/0.14.2.91 (As She Crawled Across the Table (Debian GNU/Linux))
Original-Xref: shelby.stanford.edu gnu.emacs.help:144882
X-Originally-To: rbielaws@i1.net
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:40486
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/40486>


> I use this because its a bit more flexable. It allows you to copy exactly
> the parts you want even if not full words.
> 
> (global-set-key [?\C-\M-z] 'insert-prior-line-char)
> 
> (defun insert-prior-line-char ()
>   "Insert the same character as in the prior line. Space if none."
>   (interactive)
>   (let* ((cur (current-column))
>          (char (save-excursion
>                  (if (or (not (eq 0 (forward-line -1)))
>                          (not (eq cur (move-to-column cur)) ))
>                      32
>                    (char-after)))))
>     (insert char)))

This is great, but wouldn't it be nicer if you could give it an argument? 
Then you could do, say, C-8 C-M-z and the next 8 characters would be
inserted.