From 0dc772285efea5343fe10d25e52422ac205af31d Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Mon, 3 Nov 2008 13:44:42 +0100
Subject: [PATCH] Cleanup to make the compiler happy.

This is a regular task.  Follow up on the compiler message and try to
fix them so that the compiler will compile these files happily and
silently.
---
 lisp/ChangeLog     |  3 +++
 lisp/org-agenda.el | 16 ++++++++--------
 lisp/org-plot.el   |  2 ++
 3 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e89ad861..01857f7d8 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-11-03  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-agenda.el (org-agenda-remove-marked-text): Bind variable
+	BEG.
+
 	* org-compat.el (org-fit-window-to-buffer): New function (not
 	really, a preliminary and incomplete version was present earlier,
 	but not used).
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 4eed1d48d..e002c62a4 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -1914,6 +1914,7 @@ higher priority settings."
 		 (kill-buffer (current-buffer))
 		 (message "Plain text written to %s" file))))))))
     (set-buffer org-agenda-buffer-name)))
+(defvar org-agenda-filter-overlays nil)
 
 (defun org-agenda-mark-filtered-text ()
   "Mark all text hidden by filtering with a text property."
@@ -1934,12 +1935,13 @@ higher priority settings."
 (defun org-agenda-remove-marked-text (property &optional value)
   "Delete all text marked with VALUE of PROPERTY.
 VALUE defaults to t."
-  (setq value (or value t))
-  (while (setq beg (text-property-any (point-min) (point-max)
-				      property value))
-    (delete-region
-     beg (or (next-single-property-change beg 'org-filtered)
-	     (point-max)))))
+  (let (beg)
+    (setq value (or value t))
+    (while (setq beg (text-property-any (point-min) (point-max)
+					property value))
+      (delete-region
+       beg (or (next-single-property-change beg 'org-filtered)
+	       (point-max))))))
 
 (defun org-agenda-collect-markers ()
   "Collect the markers pointing to entries in the agenda buffer."
@@ -4294,8 +4296,6 @@ If the line does not have an effort defined, return nil."
 	      (beginning-of-line 2))
 	  (beginning-of-line 2))))))
 
-(defvar org-agenda-filter-overlays nil)
-
 (defun org-agenda-filter-by-tag-hide-line ()
   (let (ov)
     (setq ov (org-make-overlay (max (point-min) (1- (point-at-bol)))
diff --git a/lisp/org-plot.el b/lisp/org-plot.el
index f69bfc6f5..5e21520e8 100644
--- a/lisp/org-plot.el
+++ b/lisp/org-plot.el
@@ -46,6 +46,8 @@
     (:ind . 0))
   "Default options to gnuplot used by `org-plot/gnuplot'")
 
+(defvar org-plot-timestamp-fmt nil)
+
 (defun org-plot/add-options-to-plist (p options)
   "Parse an OPTIONS line and set values in the property list P.
 Returns the resulting property list."
-- 
2.11.4.GIT