diff options
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/gametree.el | 3 | ||||
| -rw-r--r-- | lisp/play/life.el | 7 |
2 files changed, 4 insertions, 6 deletions
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index 6fcc3136d07..215d95db341 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el @@ -201,7 +201,7 @@ should be no leading white space." (let ((boundary (concat "[ \t]*\\([1-9][0-9]*\\)\\(" gametree-full-ply-regexp "\\|" gametree-half-ply-regexp "\\)")) - (limit (save-excursion (beginning-of-line 1) (point)))) + (limit (line-beginning-position 1))) (if (looking-at boundary) (+ (* 2 (string-to-number (match-string 1))) (if (string-match gametree-half-ply-regexp (match-string 2)) 1 0)) @@ -617,5 +617,4 @@ shogi, etc.) players, it is a slightly modified version of Outline mode. (provide 'gametree) -;; arch-tag: aaa30943-9ae4-4cc1-813d-a46f96b7e4f1 ;;; gametree.el ends here diff --git a/lisp/play/life.el b/lisp/play/life.el index f4a6ee1836e..996b0c6144b 100644 --- a/lisp/play/life.el +++ b/lisp/play/life.el @@ -1,7 +1,7 @@ ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs -;; Copyright (C) 1988, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009, 2010 Free Software Foundation, Inc. ;; Author: Kyle Jones <kyleuunet.uu.net> ;; Maintainer: FSF @@ -163,7 +163,7 @@ generations (this defaults to 1)." (replace-match (life-life-string) t t)) ;; center the pattern horizontally (goto-char (point-min)) - (setq n (/ (- fill-column (save-excursion (end-of-line) (point))) 2)) + (setq n (/ (- fill-column (line-end-position)) 2)) (while (not (eobp)) (indent-to n) (forward-line)) @@ -302,5 +302,4 @@ generations (this defaults to 1)." (provide 'life) -;; arch-tag: e9373544-755e-42f5-a9a1-4d4c422bb97a ;;; life.el ends here |