[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99918: Minor zone.el fix.
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99918: Minor zone.el fix. |
Date: |
Tue, 06 Jul 2010 20:52:05 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 99918
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Tue 2010-07-06 20:52:05 -0700
message:
Minor zone.el fix.
* play/zone.el (zone-fall-through-ws): Fix next-line -> forward-line fallout.
modified:
lisp/ChangeLog
lisp/play/zone.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-07-06 19:42:46 +0000
+++ b/lisp/ChangeLog 2010-07-07 03:52:05 +0000
@@ -1,3 +1,8 @@
+2010-07-07 Glenn Morris <address@hidden>
+
+ * play/zone.el (zone-fall-through-ws): Fix next-line ->
+ forward-line fallout.
+
2010-07-06 Chong Yidong <address@hidden>
* mouse.el (mouse-appearance-menu): Add docstring.
=== modified file 'lisp/play/zone.el'
--- a/lisp/play/zone.el 2010-01-13 08:35:10 +0000
+++ b/lisp/play/zone.el 2010-07-07 03:52:05 +0000
@@ -1,7 +1,7 @@
;;; zone.el --- idle display hacks
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;; 2009, 2010 Free Software Foundation, Inc.
;; Author: Victor Zandy <address@hidden>
;; Maintainer: Thien-Thi Nguyen <address@hidden>
@@ -487,8 +487,10 @@
(wait 0.15)
newpos fall-p)
(while (when (save-excursion
- (forward-line 1)
- (and (= col (current-column))
+ (and (zerop (forward-line 1))
+ (progn
+ (forward-char col)
+ (= col (current-column)))
(setq newpos (point))
(string= spaces (buffer-substring-no-properties
newpos (+ newpos cw-ceil)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r99918: Minor zone.el fix.,
Glenn Morris <=