From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Deniz Dogan Newsgroups: gmane.emacs.devel Subject: Re: line-move-down-up Date: Mon, 18 Apr 2011 15:36:07 +0200 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 X-Trace: dough.gmane.org 1303133800 22251 80.91.229.12 (18 Apr 2011 13:36:40 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 18 Apr 2011 13:36:40 +0000 (UTC) Cc: emacs-devel@gnu.org To: A Soare Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Apr 18 15:36:36 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QBod2-0001Ez-Hi for ged-emacs-devel@m.gmane.org; Mon, 18 Apr 2011 15:36:36 +0200 Original-Received: from localhost ([::1]:39017 helo=lists2.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QBod1-0003ur-Fp for ged-emacs-devel@m.gmane.org; Mon, 18 Apr 2011 09:36:35 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:56909) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QBocy-0003uV-Ko for emacs-devel@gnu.org; Mon, 18 Apr 2011 09:36:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QBocx-0001H1-Rr for emacs-devel@gnu.org; Mon, 18 Apr 2011 09:36:32 -0400 Original-Received: from mail-iw0-f169.google.com ([209.85.214.169]:59244) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QBocx-0001Gq-Oi for emacs-devel@gnu.org; Mon, 18 Apr 2011 09:36:31 -0400 Original-Received: by iwg8 with SMTP id 8so5626462iwg.0 for ; Mon, 18 Apr 2011 06:36:30 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:mime-version:in-reply-to:references:from:date :message-id:subject:to:cc:content-type; bh=G7pA5g+RvEOwAynW51KqtlUJyKf5OG6g4uA4PBn1yJo=; b=sAp6HrpCBKeuBSmpNAxHXvZ1QfZ4OeSgejeXYHyfmJNnHNLd0RMiWESkXlScyAGs1D KmfGJXPNIzZdeGStd2A2Ix3P2QdSAEkgtr7QCBSCFDOl4KGfeLA15gG7/nPMYFYk/c1V Gs2buwyoij/NVL4eb/gpkUoNslweXkFvjy4Jw= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc:content-type; b=v1/BAtdAzBbneLKeQibQZ0emxR2NTqo3f/szu/M9j6KgiAn5X5gM1sdWrbcCnBMtIv B193SFxp52w7GSE+uU5zMXSKPZCvziqELwhS34YVjZstiJx0DdNQkR42Pc5g4pDUnUB7 XY98hSjCfCd1NmP5wlN+hd+KIT6uE6yPUiZCk= Original-Received: by 10.43.53.133 with SMTP id vq5mr5557802icb.527.1303133790624; Mon, 18 Apr 2011 06:36:30 -0700 (PDT) Original-Received: by 10.42.227.202 with HTTP; Mon, 18 Apr 2011 06:36:07 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 209.85.214.169 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:138548 Archived-At: 2011/4/18 A Soare : > > (defun line-move-down (n) > (let ((column (current-column)) > (line (delete-and-extract-region > (prog2 (beginning-of-line) (point)) > (prog2 (end-of-line) (1+ (point)) )))) > (next-line n) > (beginning-of-line) > (insert-string line) > (backward-char) > (move-to-column column) > 'down > )) > > (define-key global-map [(meta up)] (lambda (&optional n) (interactive "P") > (line-move-down (if (numberp n) (- n) -1)))) > > (define-key global-map [(meta down)] (lambda (&optional n) (interactive "P") > (line-move-down (if (numberp n) n 1)))) > I'm not sure what this post is all about, but you could replace (prog2 (beginning-of-line) (point)) with (point-at-bol) and respectively for the end. Also, (next-line n) (beginning-of-line) could be replaced with (beginning-of-line (1+ n)). -- Deniz Dogan