From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: picture mode Date: Sun, 30 Jun 2002 14:53:57 -0600 (MDT) Sender: emacs-devel-admin@gnu.org Message-ID: <200206302053.g5UKrv705714@aztec.santafe.edu> References: <20020629124225.72720.qmail@web21411.mail.yahoo.com> <20020629142117.GA182@xyz> <20020629143522.GB182@xyz> Reply-To: rms@gnu.org NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1025470487 31705 127.0.0.1 (30 Jun 2002 20:54:47 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 30 Jun 2002 20:54:47 +0000 (UTC) Cc: sigserv@yahoo.com, emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17OliZ-0008FG-00 for ; Sun, 30 Jun 2002 22:54:47 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17Olmn-0006tL-00 for ; Sun, 30 Jun 2002 22:59:09 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17Olio-0004mt-00; Sun, 30 Jun 2002 16:55:02 -0400 Original-Received: from pele.santafe.edu ([192.12.12.119]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17Olhn-0004dn-00; Sun, 30 Jun 2002 16:53:59 -0400 Original-Received: from aztec.santafe.edu (aztec [192.12.12.49]) by pele.santafe.edu (8.11.6+Sun/8.11.6) with ESMTP id g5UKrwB01546; Sun, 30 Jun 2002 14:53:58 -0600 (MDT) Original-Received: (from rms@localhost) by aztec.santafe.edu (8.10.2+Sun/8.9.3) id g5UKrv705714; Sun, 30 Jun 2002 14:53:57 -0600 (MDT) X-Authentication-Warning: aztec.santafe.edu: rms set sender to rms@aztec using -f Original-To: paul.stoeber@stud.tu-ilmenau.de In-Reply-To: <20020629143522.GB182@xyz> (message from Paul Stoeber on Sat, 29 Jun 2002 14:35:22 +0000) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:5280 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:5280 Does this fix it? *** picture.el.~1.39.~ Sat Mar 9 23:03:34 2002 --- picture.el Sun Jun 30 14:06:14 2002 *************** *** 106,117 **** (interactive "p\nd") (picture-update-desired-column interactive) (setq picture-desired-column (max 0 (+ picture-desired-column arg))) ! (let ((current-column (move-to-column picture-desired-column t))) ! (if (and (> current-column picture-desired-column) ! (< arg 0)) ! ;; It seems that we have just tried to move to the right ! ;; column of a multi-column character. ! (forward-char -1)))) (defun picture-backward-column (arg &optional interactive) "Move cursor left, making whitespace if necessary. --- 106,118 ---- (interactive "p\nd") (picture-update-desired-column interactive) (setq picture-desired-column (max 0 (+ picture-desired-column arg))) ! (let (deactivate-mark) ! (let ((current-column (move-to-column picture-desired-column t))) ! (if (and (> current-column picture-desired-column) ! (< arg 0)) ! ;; It seems that we have just tried to move to the right ! ;; column of a multi-column character. ! (forward-char -1))))) (defun picture-backward-column (arg &optional interactive) "Move cursor left, making whitespace if necessary. *************** *** 124,134 **** "Move vertically down, making whitespace if necessary. With argument, move that many lines." (interactive "p") ! (picture-update-desired-column nil) ! (picture-newline arg) ! (let ((current-column (move-to-column picture-desired-column t))) ! (if (> current-column picture-desired-column) ! (forward-char -1)))) (defvar picture-vertical-step 0 "Amount to move vertically after text character in Picture mode.") --- 125,136 ---- "Move vertically down, making whitespace if necessary. With argument, move that many lines." (interactive "p") ! (let (deactivate-mark) ! (picture-update-desired-column nil) ! (picture-newline arg) ! (let ((current-column (move-to-column picture-desired-column t))) ! (if (> current-column picture-desired-column) ! (forward-char -1))))) (defvar picture-vertical-step 0 "Amount to move vertically after text character in Picture mode.")