From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Lennart Borgman (gmail)" Newsgroups: gmane.emacs.devel Subject: More conventient move beginning/end of line Date: Sat, 22 Sep 2007 03:03:14 +0200 Message-ID: <46F469D2.5070007@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1190423006 31592 80.91.229.12 (22 Sep 2007 01:03:26 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 22 Sep 2007 01:03:26 +0000 (UTC) To: Emacs Devel Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Sep 22 03:03:25 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IYtOz-00072m-6P for ged-emacs-devel@m.gmane.org; Sat, 22 Sep 2007 03:03:21 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IYtOw-0006xg-TR for ged-emacs-devel@m.gmane.org; Fri, 21 Sep 2007 21:03:18 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IYtOu-0006vS-4u for emacs-devel@gnu.org; Fri, 21 Sep 2007 21:03:16 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IYtOs-0006tt-EF for emacs-devel@gnu.org; Fri, 21 Sep 2007 21:03:15 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IYtOs-0006tp-Ag for emacs-devel@gnu.org; Fri, 21 Sep 2007 21:03:14 -0400 Original-Received: from ch-smtp01.sth.basefarm.net ([80.76.149.212]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1IYtOr-0001oL-MP for emacs-devel@gnu.org; Fri, 21 Sep 2007 21:03:13 -0400 Original-Received: from c83-254-133-189.bredband.comhem.se ([83.254.133.189]:61583 helo=[127.0.0.1]) by ch-smtp01.sth.basefarm.net with esmtp (Exim 4.66) (envelope-from ) id 1IYtOq-0003pG-4Z for emacs-devel@gnu.org; Sat, 22 Sep 2007 03:03:12 +0200 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.6) Gecko/20070728 Thunderbird/2.0.0.6 Mnenhy/0.7.5.666 X-Antivirus: avast! (VPS 000775-5, 2007-09-21), Outbound message X-Antivirus-Status: Clean X-Originating-IP: 83.254.133.189 X-Scan-Result: No virus found in message 1IYtOq-0003pG-4Z. X-Scan-Signature: ch-smtp01.sth.basefarm.net 1IYtOq-0003pG-4Z 04d51f936712bda431520f5ffea2a7d9 X-Detected-Kernel: Linux 2.6? (barebone, rare!) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:79477 Archived-At: Some editor I used long ago had some behaviour similar to the functions below. One press on HOME moved to the beginning of line, next to the start of the text on that line. It would be nice to have this in Emacs (maybe the ARG part should be skipped): (defun my-move-beginning-of-line(arg) (interactive "p") (or arg (setq arg 1)) (let ((pos (point))) (move-beginning-of-line arg) (when (= pos (point)) (skip-chars-forward " \t")))) (put 'my-move-beginning-of-line 'CUA 'move) (global-set-key [home] 'my-move-beginning-of-line) (defun my-move-end-of-line(arg) (interactive "p") (or arg (setq arg 1)) (let ((pos (point))) (move-end-of-line arg) (when (= pos (point)) (skip-chars-backward " \t")))) (put 'my-move-end-of-line 'CUA 'move) (global-set-key [end] 'my-move-end-of-line)