From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "HS" Newsgroups: gmane.emacs.help Subject: Re: copy-word-from-line-above Date: 24 Jan 2007 09:34:23 -0800 Organization: http://groups.google.com Message-ID: <1169660063.651858.123660@v33g2000cwv.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> <1169641168.728984.258820@a75g2000cwd.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 1169660470 1758 80.91.229.12 (24 Jan 2007 17:41:10 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 24 Jan 2007 17:41:10 +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 18:40:59 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 1H9m7G-0000XK-Co for geh-help-gnu-emacs@m.gmane.org; Wed, 24 Jan 2007 18:40:58 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1H9m7F-00058z-Rt for geh-help-gnu-emacs@m.gmane.org; Wed, 24 Jan 2007 12:40:57 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!v33g2000cwv.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 57 Original-NNTP-Posting-Host: 200.213.54.31 Original-X-Trace: posting.google.com 1169660070 17403 127.0.0.1 (24 Jan 2007 17:34:30 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Wed, 24 Jan 2007 17:34:30 +0000 (UTC) In-Reply-To: <1169641168.728984.258820@a75g2000cwd.googlegroups.com> User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1,gzip(gfe),gzip(gfe) X-HTTP-Via: 1.1 fw.datacom-telematica.com.br:3128 (squid/2.5.STABLE6) Complaints-To: groups-abuse@google.com Injection-Info: v33g2000cwv.googlegroups.com; posting-host=200.213.54.31; posting-account=pG57fA0AAADtQ-4h1MyvjXjZpSNZC0zj Original-Xref: shelby.stanford.edu gnu.emacs.help:144996 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:40599 Archived-At: In practive I found out that copying chars is slower than typing, most of the times... Is there any kind soul here able to work out a insert-prior-line-word from rgb's function? :) Cheers HS On 24 jan, 09:19, "rgb" wrote: > 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))))