Parcourir la 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 il y a 16 ans
Parent
commit
0dc772285e
3 fichiers modifiés avec 13 ajouts et 8 suppressions
  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."