From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 13 Oct 2001 08:13:34 +0000 (+0000)
Subject: (delimit-columns-rectangle-max): Do not double variables in the lambda-list.
X-Git-Tag: ttn-vms-21-2-B4~19493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2bdcec408fe8fea7673d8e2cb548cfc75e12892;p=emacs.git

(delimit-columns-rectangle-max): Do not double variables in the lambda-list.
(delimit-columns-rectangle-line): Do not double variables in the lambda-list.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e745026f822..6f6d11e7fa3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2001-10-13  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* mail/mailalias.el (mail-directory-stream): Do not double
+	variables in the lambda-list.
+
+	* play/gomoku.el (gomoku-init-display): Ditto.
+
+	* play/landmark.el (lm-init-display): Ditto.
+
+	* delim-col.el (delimit-columns-rectangle-max): Ditto.
+	(delimit-columns-rectangle-line): Ditto.
+
 2001-10-12  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* newcomment.el (comment-region-internal): Don't rebind
diff --git a/lisp/delim-col.el b/lisp/delim-col.el
index 3f7ca7ecee8..70791a3dae2 100644
--- a/lisp/delim-col.el
+++ b/lisp/delim-col.el
@@ -4,7 +4,7 @@
 
 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Time-stamp: <2001-07-15 11:12:35 pavel>
+;; Time-stamp: <2001-10-13 10:02:26 pavel>
 ;; Version: 2.1
 ;; Keywords: internal
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
@@ -362,7 +362,7 @@ START and END delimits the corners of text rectangle."
 (defvar delimit-columns-limit nil)
 
 
-(defun delimit-columns-rectangle-max (startpos &optional ignore ignore)
+(defun delimit-columns-rectangle-max (startpos &optional ignore1 ignore2)
   (set-marker delimit-columns-limit (point))
   (goto-char startpos)
   (let ((ncol 1)
@@ -395,7 +395,7 @@ START and END delimits the corners of text rectangle."
       (setq values (cdr values)))))
 
 
-(defun delimit-columns-rectangle-line (startpos &optional ignore ignore)
+(defun delimit-columns-rectangle-line (startpos &optional ignore1 ignore2)
   (let ((len  (length delimit-columns-max))
 	(ncol 0)
 	origin)