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.
This commit is contained in:
Carsten Dominik 2008-11-03 13:44:42 +01:00
parent 293d3311d6
commit 0dc772285e
3 changed files with 13 additions and 8 deletions

View File

@ -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).

View File

@ -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)))

View File

@ -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."