Mercurial > emacs

comparison lisp/play/zone.el @ 91073:4bc33ffdda1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 902-908) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 131-137) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 261-262) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
author Miles Bader <miles@gnu.org>
date Sat, 27 Oct 2007 09:12:07 +0000
parents bdb3fe0ba9fa 786d3a985758
children 606f2d163a64
comparison
equal deleted inserted replaced
91072:74ab3ea909f9 91073:4bc33ffdda1a
487 (spaces (make-string cw-ceil 32)) 487 (spaces (make-string cw-ceil 32))
488 (col (current-column)) 488 (col (current-column))
489 (wait 0.15) 489 (wait 0.15)
490 newpos fall-p) 490 newpos fall-p)
491 (while (when (save-excursion 491 (while (when (save-excursion
492 (next-line 1) 492 (forward-line 1)
493 (and (= col (current-column)) 493 (and (= col (current-column))
494 (setq newpos (point)) 494 (setq newpos (point))
495 (string= spaces (buffer-substring-no-properties 495 (string= spaces (buffer-substring-no-properties
496 newpos (+ newpos cw-ceil))) 496 newpos (+ newpos cw-ceil)))
497 (setq newpos (+ newpos (1- cw-ceil))))) 497 (setq newpos (+ newpos (1- cw-ceil)))))