From 906f211e1be9a7cc2759f63069e56bce312650c7 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Pavel=20Jan=C3=ADk?= <Pavel@Janik.cz>
Date: Sat, 13 Oct 2001 08:10:30 +0000
Subject: [PATCH] Do not double variables in the lambda-list.

---
 lisp/mail/mailalias.el | 2 +-
 lisp/play/gomoku.el    | 4 ++--
 lisp/play/landmark.el  | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 2f120394f2d..caef6bd670d 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -520,7 +520,7 @@ See `mail-directory-stream'."
     (set-process-sentinel
      (apply 'open-network-stream "mailalias" (current-buffer)
 	    mail-directory-stream)
-     (lambda (x x)
+     (lambda (x y)
        (setq mailalias-done t)))
     (while (not mailalias-done)
       (sit-for .1))))
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index d360b1d8a4b..f08d934459a 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -1039,11 +1039,11 @@ If the game is finished, this command requests for another game."
       (insert-char ?\n gomoku-square-height))
     (or (eq (char-after 1) ?.)
 	(put-text-property 1 2 'point-entered
-			   (lambda (x x) (if (bobp) (forward-char)))))
+			   (lambda (x y) (if (bobp) (forward-char)))))
     (or intangible
 	(put-text-property point (point) 'intangible 2))
     (put-text-property point (point) 'point-entered
-		       (lambda (x x) (if (eobp) (backward-char))))
+		       (lambda (x y) (if (eobp) (backward-char))))
     (put-text-property (point-min) (point) 'category 'gomoku-mode))
   (gomoku-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board
   (sit-for 0))				; Display NOW
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 1680a4fec88..33acb70b0ee 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -945,11 +945,11 @@ mouse-1: get robot moving, mouse-2: play on this square")))
       (insert-char ?\n lm-square-height))
     (or (eq (char-after 1) ?.)
 	(put-text-property 1 2 'point-entered
-			   (lambda (x x) (if (bobp) (forward-char)))))
+			   (lambda (x y) (if (bobp) (forward-char)))))
     (or intangible
 	(put-text-property point (point) 'intangible 2))
     (put-text-property point (point) 'point-entered
-		       (lambda (x x) (if (eobp) (backward-char))))
+		       (lambda (x y) (if (eobp) (backward-char))))
     (put-text-property (point-min) (point) 'category 'lm-mode))
   (lm-goto-xy (/ (1+ n) 2) (/ (1+ m) 2)) ; center of the board
   (sit-for 0))				; Display NOW
-- 
2.39.2