Mercurial > emacs
comparison lisp/delim-col.el @ 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 | b174db545cfd |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 39866:a4570786d40d | 39867:e4e8b9d662e2 |
|---|---|
| 2 | 2 |
| 3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
| 6 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 6 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
| 7 ;; Time-stamp: <2001-07-15 11:12:35 pavel> | 7 ;; Time-stamp: <2001-10-13 10:02:26 pavel> |
| 8 ;; Version: 2.1 | 8 ;; Version: 2.1 |
| 9 ;; Keywords: internal | 9 ;; Keywords: internal |
| 10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ | 10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
| 11 | 11 |
| 12 ;; This file is part of GNU Emacs. | 12 ;; This file is part of GNU Emacs. |
| 360 ;; to avoid compilation gripes | 360 ;; to avoid compilation gripes |
| 361 (defvar delimit-columns-max nil) | 361 (defvar delimit-columns-max nil) |
| 362 (defvar delimit-columns-limit nil) | 362 (defvar delimit-columns-limit nil) |
| 363 | 363 |
| 364 | 364 |
| 365 (defun delimit-columns-rectangle-max (startpos &optional ignore ignore) | 365 (defun delimit-columns-rectangle-max (startpos &optional ignore1 ignore2) |
| 366 (set-marker delimit-columns-limit (point)) | 366 (set-marker delimit-columns-limit (point)) |
| 367 (goto-char startpos) | 367 (goto-char startpos) |
| 368 (let ((ncol 1) | 368 (let ((ncol 1) |
| 369 origin values) | 369 origin values) |
| 370 ;; get current column length | 370 ;; get current column length |
| 393 (aset delimit-columns-max ncol (max (aref delimit-columns-max ncol) | 393 (aset delimit-columns-max ncol (max (aref delimit-columns-max ncol) |
| 394 (car values))) | 394 (car values))) |
| 395 (setq values (cdr values))))) | 395 (setq values (cdr values))))) |
| 396 | 396 |
| 397 | 397 |
| 398 (defun delimit-columns-rectangle-line (startpos &optional ignore ignore) | 398 (defun delimit-columns-rectangle-line (startpos &optional ignore1 ignore2) |
| 399 (let ((len (length delimit-columns-max)) | 399 (let ((len (length delimit-columns-max)) |
| 400 (ncol 0) | 400 (ncol 0) |
| 401 origin) | 401 origin) |
| 402 (set-marker delimit-columns-limit (point)) | 402 (set-marker delimit-columns-limit (point)) |
| 403 (goto-char startpos) | 403 (goto-char startpos) |