[PATCH] org-table: reference to free variable `line'

[PATCH] org-table: reference to free variable `line'

[Mikael Fornius]

[-- Attachment #1: Type: text/plain, Size: 91 bytes --]


As I compiled org-mode today I noticed a free variable and I think this
change fixes it.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-table-free-variable --]
[-- Type: text/x-patch, Size: 541 bytes --]

diff --git a/lisp/org-table.el b/lisp/org-table.el
index 670edcb..9614608 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -1043,8 +1043,8 @@ Return t when the line exists, nil if it does not exist."
   (goto-char (org-table-begin))
   (let ((end (org-table-end)) (cnt 0))
     (while (and (re-search-forward org-table-dataline-regexp end t)
-		(< (setq cnt (1+ cnt)) line)))
-    (= cnt line)))
+		(< (setq cnt (1+ cnt)) N)))
+    (= cnt N)))
 
 (defun org-table-blank-field ()
   "Blank the current table field or active region."

[-- Attachment #3: Type: text/plain, Size: 20 bytes --]


-- 
Mikael Fornius

[-- Attachment #4: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: [PATCH] org-table: reference to free variable `line'

[Carsten Dominik]

Applied, thanks.

- Carsten

On Mar 25, 2010, at 12:20 PM, Mikael Fornius wrote:

>
> As I compiled org-mode today I noticed a free variable and I think  
> this
> change fixes it.
>
> diff --git a/lisp/org-table.el b/lisp/org-table.el
> index 670edcb..9614608 100644
> --- a/lisp/org-table.el
> +++ b/lisp/org-table.el
> @@ -1043,8 +1043,8 @@ Return t when the line exists, nil if it does  
> not exist."
>   (goto-char (org-table-begin))
>   (let ((end (org-table-end)) (cnt 0))
>     (while (and (re-search-forward org-table-dataline-regexp end t)
> -		(< (setq cnt (1+ cnt)) line)))
> -    (= cnt line)))
> +		(< (setq cnt (1+ cnt)) N)))
> +    (= cnt N)))
>
> (defun org-table-blank-field ()
>   "Blank the current table field or active region."
>
> -- 
> Mikael Fornius
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten