Mercurial > emacs

changeset 39866:a4570786d40d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not double variables in the lambda-list.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 13 Oct 2001 08:10:30 +0000
parents 8bdfe67d9f16
children e4e8b9d662e2
files lisp/mail/mailalias.el lisp/play/gomoku.el lisp/play/landmark.el
diffstat 3 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mailalias.el	Fri Oct 12 22:39:29 2001 +0000
+++ b/lisp/mail/mailalias.el	Sat Oct 13 08:10:30 2001 +0000
@@ -520,7 +520,7 @@
     (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))))
--- a/lisp/play/gomoku.el	Fri Oct 12 22:39:29 2001 +0000
+++ b/lisp/play/gomoku.el	Sat Oct 13 08:10:30 2001 +0000
@@ -1039,11 +1039,11 @@
       (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
--- a/lisp/play/landmark.el	Fri Oct 12 22:39:29 2001 +0000
+++ b/lisp/play/landmark.el	Sat Oct 13 08:10:30 2001 +0000
@@ -945,11 +945,11 @@
       (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