HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
declare smobs in alloc.c
[bpt/emacs.git]
/
lisp
/
play
/
solitaire.el
diff --git
a/lisp/play/solitaire.el
b/lisp/play/solitaire.el
index
b52ade6
..
884b126
100644
(file)
--- a/
lisp/play/solitaire.el
+++ b/
lisp/play/solitaire.el
@@
-1,6
+1,6
@@
;;; solitaire.el --- game of solitaire in Emacs Lisp
;;; solitaire.el --- game of solitaire in Emacs Lisp
-;; Copyright (C) 1994, 2001-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1994, 2001-201
4
Free Software Foundation, Inc.
;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de>
;; Created: Fri afternoon, Jun 3, 1994
;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de>
;; Created: Fri afternoon, Jun 3, 1994
@@
-201,12
+201,12
@@
Pick your favorite shortcuts:
(setq buffer-read-only t)
(setq solitaire-stones 32)
(solitaire-insert-board)
(setq buffer-read-only t)
(setq solitaire-stones 32)
(solitaire-insert-board)
- (solitaire-build-modeline)
+ (solitaire-build-mode
-
line)
(goto-char (point-max))
(setq solitaire-center (search-backward "."))
(setq buffer-undo-list (list (point)))))
(goto-char (point-max))
(setq solitaire-center (search-backward "."))
(setq buffer-undo-list (list (point)))))
-(defun solitaire-build-modeline ()
+(defun solitaire-build-mode
-
line ()
(setq mode-line-format
(list "" "---" 'mode-line-buffer-identification
(if (< 1 solitaire-stones)
(setq mode-line-format
(list "" "---" 'mode-line-buffer-identification
(if (< 1 solitaire-stones)
@@
-353,7
+353,7
@@
which a stone will be taken away) and target."
(insert ?o)
(goto-char target)
(setq solitaire-stones (1- solitaire-stones))
(insert ?o)
(goto-char target)
(setq solitaire-stones (1- solitaire-stones))
- (solitaire-build-modeline)
+ (solitaire-build-mode
-
line)
(if solitaire-auto-eval (solitaire-do-check))))))
(defun solitaire-undo (arg)
(if solitaire-auto-eval (solitaire-do-check))))))
(defun solitaire-undo (arg)
@@
-372,7
+372,7
@@
which a stone will be taken away) and target."
(<= (solitaire-current-line) solitaire-end-y)
(setq count (1+ count))))
count)))
(<= (solitaire-current-line) solitaire-end-y)
(setq count (1+ count))))
count)))
- (solitaire-build-modeline)
+ (solitaire-build-mode
-
line)
(when solitaire-auto-eval (solitaire-do-check)))
(defun solitaire-check ()
(when solitaire-auto-eval (solitaire-do-check)))
(defun solitaire-check ()