forked from mirrors/org-mode
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:
parent
293d3311d6
commit
0dc772285e
|
@ -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).
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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."
|
||||
|
|
Loading…
Reference in a new issue