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: 24 Jan 2007 04:19:28 -0800 Organization: http://groups.google.com Message-ID: <1169641168.728984.258820@a75g2000cwd.googlegroups.com> References: <1169142712.291197.26770@a75g2000cwd.googlegroups.com> <1169238317.347524.324700@m58g2000cwm.googlegroups.com> <1169396144.659778.206270@a75g2000cwd.googlegroups.com> <1169470945.549075.73090@51g2000cwl.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" X-Trace: sea.gmane.org 1169642473 26356 80.91.229.12 (24 Jan 2007 12:41:13 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 24 Jan 2007 12:41:13 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jan 24 13:41:06 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 1H9hR2-0006Gw-LG for geh-help-gnu-emacs@m.gmane.org; Wed, 24 Jan 2007 13:41:04 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H9hR2-0005CZ-7J for geh-help-gnu-emacs@m.gmane.org; Wed, 24 Jan 2007 07:41:04 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!a75g2000cwd.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 52 Original-NNTP-Posting-Host: 168.208.215.220 Original-X-Trace: posting.google.com 1169641174 2985 127.0.0.1 (24 Jan 2007 12:19:34 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Wed, 24 Jan 2007 12:19:34 +0000 (UTC) In-Reply-To: <1169470945.549075.73090@51g2000cwl.googlegroups.com> 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: a75g2000cwd.googlegroups.com; posting-host=168.208.215.220; posting-account=C7LM4w0AAAD23IRuMuUUJVCLQTuHhTK8 Original-Xref: shelby.stanford.edu gnu.emacs.help:144978 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:40582 Archived-At: On Jan 22, 7:02 am, "HS" wrote: > Cool! Post it here as well! > Cheers everyone! > > rgb escreveu: > > > > > Greg Bognar wrote: > > > > 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. > > > I've got my keyboard repeat rate high enough that I've not missed > > that feature but it's a good idea. Maybe I'll add that Monday when > > I have time to goof of at work:-) > > thanks- Somebody must have told the boss I had goof-off time! But I got to it this morning... (defun insert-prior-line-char (cnt) "Insert the same character as in the prior line. Space if none." (interactive "p") (while (< 0 cnt) (setq cnt (1- cnt)) (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))))