XEmacs: Fix bug in column view

Alex Mizrahi writes:

>  I'm trying to use column view to work with effort estimates, but it
>  does not seem to work in XEmacs.  When I press C-c C-x C-c columns
>  show up in agenda view (I'm not sure if 100% correcly, but
>  more-or-less so), but when I try editing anything, column view goes
>  away and error appears:
>
>   Wrong number of arguments: #<subr local-variable-p>, 1

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-05-04  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-colview-xemacs.el (org-columns-remove-overlays)
+	(org-columns): Fix call to `local-variable-p'.
+
 2009-05-02  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-html.el (org-export-html-after-blockquotes-hook): New hook.

lisp/org-colview-xemacs.el

@@ -493,7 +493,8 @@ This is the compiled version of the format.")
        (setq org-columns-overlays nil)
        (let ((inhibit-read-only t))
 	 (remove-text-properties (point-min) (point-max) '(read-only t))))
-      (when (local-variable-p 'org-colview-initial-truncate-line-value)
+      (when (local-variable-p 'org-colview-initial-truncate-line-value
+			      (current-buffer))
 	(setq truncate-lines org-colview-initial-truncate-line-value)))))
 
 
@@ -869,7 +870,8 @@ around it."
 	(setq maxwidths (org-columns-get-autowidth-alist fmt cache))
 	(org-set-local 'org-columns-current-maxwidths maxwidths)
 	(org-columns-display-here-title)
-	(unless (local-variable-p 'org-colview-initial-truncate-line-value)
+	(unless (local-variable-p 'org-colview-initial-truncate-line-value
+				  (current-buffer))
 	  (org-set-local 'org-colview-initial-truncate-line-value
 			 truncate-lines))
 	(setq truncate-lines t)