Mercurial > emacs
changeset 39867:e4e8b9d662e2
(delimit-columns-rectangle-max): Do not double variables in the lambda-list.
(delimit-columns-rectangle-line): Do not double variables in the lambda-list.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 13 Oct 2001 08:11:16 +0000 |
| parents | a4570786d40d |
| children | c31f4d66b8e9 |
| files | lisp/delim-col.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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 @@ (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)