From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "rgb" Newsgroups: gmane.emacs.help Subject: Re: copy-word-from-line-above Date: 19 Jan 2007 12:25:17 -0800 Organization: http://groups.google.com Message-ID: <1169238317.347524.324700@m58g2000cwm.googlegroups.com> References: <1169142712.291197.26770@a75g2000cwd.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" X-Trace: sea.gmane.org 1169239235 28403 80.91.229.12 (19 Jan 2007 20:40:35 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 19 Jan 2007 20:40:35 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Jan 19 21:40:34 2007 Return-path: 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 1H80XJ-0000rM-5g for geh-help-gnu-emacs@m.gmane.org; Fri, 19 Jan 2007 21:40:33 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H80XI-0003iI-IE for geh-help-gnu-emacs@m.gmane.org; Fri, 19 Jan 2007 15:40:32 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!m58g2000cwm.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 33 Original-NNTP-Posting-Host: 168.208.215.220 Original-X-Trace: posting.google.com 1169238327 15674 127.0.0.1 (19 Jan 2007 20:25:27 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Fri, 19 Jan 2007 20:25:27 +0000 (UTC) User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727),gzip(gfe),gzip(gfe) Complaints-To: groups-abuse@google.com Injection-Info: m58g2000cwm.googlegroups.com; posting-host=168.208.215.220; posting-account=C7LM4w0AAAD23IRuMuUUJVCLQTuHhTK8 Original-Xref: shelby.stanford.edu gnu.emacs.help:144867 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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:40471 Archived-At: HS wrote: > Hello! > Does anyone have a function that copies words from the line above, word > after word ? > I'd like this function so I could have something like this: > > double int xxx; > > Then I'd just put the cursor under that line, press (for example) > twice and would be in this state: > > double int xxx; > double int > 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)))