diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
| commit | 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 (patch) | |
| tree | e96c135042999136bf0e75d113aae306e51983e3 /lisp/delim-col.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz | |
lisp/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/delim-col.el')
| -rw-r--r-- | lisp/delim-col.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/delim-col.el b/lisp/delim-col.el index 009b179fa49..d9f8634fb54 100644 --- a/lisp/delim-col.el +++ b/lisp/delim-col.el @@ -240,6 +240,11 @@ column (column 0) is located at left corner." ;; User Commands: +;; to avoid compilation gripes +(defvar delimit-columns-max nil) +(defvar delimit-columns-limit nil) + + ;;;###autoload (defun delimit-columns-customize () "Customization of `columns' group." @@ -354,12 +359,7 @@ START and END delimits the corners of text rectangle." ;; Internal Variables and Functions: -;; to avoid compilation gripes -(defvar delimit-columns-max nil) -(defvar delimit-columns-limit nil) - - -(defun delimit-columns-rectangle-max (startpos &optional ignore1 ignore2) +(defun delimit-columns-rectangle-max (startpos &optional _ignore1 _ignore2) (set-marker delimit-columns-limit (point)) (goto-char startpos) (let ((ncol 1) @@ -392,7 +392,7 @@ START and END delimits the corners of text rectangle." (setq values (cdr values))))) -(defun delimit-columns-rectangle-line (startpos &optional ignore1 ignore2) +(defun delimit-columns-rectangle-line (startpos &optional _ignore1 _ignore2) (let ((len (length delimit-columns-max)) (ncol 0) origin) |