andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor zone.el fix.

Browse source 
* play/zone.el (zone-fall-through-ws): Fix next-line -> forward-line fallout.
This commit is contained in:
Glenn Morris 2010-07-06 20:52:05 -07:00
parent e8579ebc15
commit 4955438820
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-07-07 Glenn Morris <rgm@gnu.org>
* play/zone.el (zone-fall-through-ws): Fix next-line ->
forward-line fallout.
2010-07-06 Chong Yidong <cyd@stupidchicken.com>
* mouse.el (mouse-appearance-menu): Add docstring.

10
lisp/play/zone.el
View file

@ -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 <zandy@cs.wisc.edu>
;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
@ -487,8 +487,10 @@ If the element is a function or a list of a function and a number,
(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)))