Explorar el Código

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 hace 16 años
padre
commit
0dc772285e
Se han modificado 3 ficheros con 13 adiciones y 8 borrados
  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."