Browse Source

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.
Carsten Dominik 16 years ago
parent
commit
0dc772285e
3 changed files with 13 additions and 8 deletions
  1. 3 0
      lisp/ChangeLog
  2. 8 8
      lisp/org-agenda.el
  3. 2 0
      lisp/org-plot.el

+ 3 - 0
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).

+ 8 - 8
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)))

+ 2 - 0
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."