diff options
| author | Karoly Lorentey | 2004-11-06 17:52:02 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-11-06 17:52:02 +0000 |
| commit | 65ea79492334e2ef7b5b4e0d23b6f68ba2f4d0bb (patch) | |
| tree | 853cf391ca1abda4f4ccd6fe8e7bb43f7c86ee08 /lisp/play | |
| parent | e0bc17abe6979d607e8de4684dddb96e53c60065 (diff) | |
| parent | 392cf16dd0ee9358f8af0cd0d8048b822456bbeb (diff) | |
| download | emacs-65ea79492334e2ef7b5b4e0d23b6f68ba2f4d0bb.tar.gz emacs-65ea79492334e2ef7b5b4e0d23b6f68ba2f4d0bb.zip | |
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-653
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-654
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-655
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-656
Update from CVS: lisp/man.el (Man-xref-normal-file): Fix help-echo.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-657
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-658
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-659
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-661
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-662
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-663
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-664
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-665
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-666
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-667
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-668
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-670
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-671
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-64
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-65
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-66
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-67
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-68
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-264
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/5x5.el | 5 | ||||
| -rw-r--r-- | lisp/play/fortune.el | 4 |
2 files changed, 4 insertions, 5 deletions
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el index 886e53a6afa..83d67958f44 100644 --- a/lisp/play/5x5.el +++ b/lisp/play/5x5.el | |||
| @@ -224,9 +224,8 @@ Quit current game \\[5x5-quit-game]" | |||
| 224 | 5x5-y-pos (/ 5x5-grid-size 2) | 224 | 5x5-y-pos (/ 5x5-grid-size 2) |
| 225 | 5x5-moves 0 | 225 | 5x5-moves 0 |
| 226 | 5x5-grid (5x5-make-move (5x5-make-new-grid) 5x5-y-pos 5x5-x-pos)) | 226 | 5x5-grid (5x5-make-move (5x5-make-new-grid) 5x5-y-pos 5x5-x-pos)) |
| 227 | (when (interactive-p) | 227 | (5x5-draw-grid (list 5x5-grid)) |
| 228 | (5x5-draw-grid (list 5x5-grid)) | 228 | (5x5-position-cursor))) |
| 229 | (5x5-position-cursor)))) | ||
| 230 | 229 | ||
| 231 | (defun 5x5-quit-game () | 230 | (defun 5x5-quit-game () |
| 232 | "Quit the current game of `5x5'." | 231 | "Quit the current game of `5x5'." |
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 306cf7daac1..3919f57e78c 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el | |||
| @@ -271,7 +271,7 @@ and choose the directory as the fortune-file." | |||
| 271 | (fortune-ask-file) | 271 | (fortune-ask-file) |
| 272 | fortune-file))) | 272 | fortune-file))) |
| 273 | (save-excursion | 273 | (save-excursion |
| 274 | (fortune-in-buffer (interactive-p) file) | 274 | (fortune-in-buffer t file) |
| 275 | (set-buffer fortune-buffer-name) | 275 | (set-buffer fortune-buffer-name) |
| 276 | (let* ((fortune (buffer-string)) | 276 | (let* ((fortune (buffer-string)) |
| 277 | (signature (concat fortune-sigstart fortune fortune-sigend))) | 277 | (signature (concat fortune-sigstart fortune fortune-sigend))) |
| @@ -285,7 +285,7 @@ and choose the directory as the fortune-file." | |||
| 285 | (defun fortune-in-buffer (interactive &optional file) | 285 | (defun fortune-in-buffer (interactive &optional file) |
| 286 | "Put a fortune cookie in the *fortune* buffer. | 286 | "Put a fortune cookie in the *fortune* buffer. |
| 287 | 287 | ||
| 288 | When INTERACTIVE is nil, don't display it. Optional argument FILE, | 288 | INTERACTIVE is ignored. Optional argument FILE, |
| 289 | when supplied, specifies the file to choose the fortune from." | 289 | when supplied, specifies the file to choose the fortune from." |
| 290 | (let ((fortune-buffer (or (get-buffer fortune-buffer-name) | 290 | (let ((fortune-buffer (or (get-buffer fortune-buffer-name) |
| 291 | (generate-new-buffer fortune-buffer-name))) | 291 | (generate-new-buffer fortune-buffer-name))) |