diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2001-10-13 08:13:34 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2001-10-13 08:13:34 +0000 |
| commit | a2bdcec408fe8fea7673d8e2cb548cfc75e12892 (patch) | |
| tree | a2168fadfb78b4eff1f78407c9ead4749e8d0849 | |
| parent | 906f211e1be9a7cc2759f63069e56bce312650c7 (diff) | |
| download | emacs-a2bdcec408fe8fea7673d8e2cb548cfc75e12892.tar.gz | |
(delimit-columns-rectangle-max): Do not double variables in the lambda-list.
(delimit-columns-rectangle-line): Do not double variables in the lambda-list.
| -rw-r--r-- | lisp/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/delim-col.el | 6 |
2 files changed, 15 insertions, 3 deletions
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) |