# HG changeset patch # User Pavel Jank # Date 1002960676 0 # Node ID e4e8b9d662e23e6eb53d6eec4569f47f95053d96 # Parent a4570786d40dba0c596042728af7467420d6e467 (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 -r a4570786d40d -r e4e8b9d662e2 lisp/delim-col.el --- a/lisp/delim-col.el Sat Oct 13 08:10:30 2001 +0000 +++ b/lisp/delim-col.el Sat Oct 13 08:11:16 2001 +0000 @@ -4,7 +4,7 @@ ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre -;; 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 @@ (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 @@ (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)