mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-11-03 Carsten Dominik <dominik@science.uva.nl> 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 * org-compat.el (org-fit-window-to-buffer): New function (not
really, a preliminary and incomplete version was present earlier, really, a preliminary and incomplete version was present earlier,
but not used). but not used).

16
lisp/org-agenda.el
View File

@ -1914,6 +1914,7 @@ higher priority settings."
(kill-buffer (current-buffer)) (kill-buffer (current-buffer))
(message "Plain text written to %s" file)))))))) (message "Plain text written to %s" file))))))))
(set-buffer org-agenda-buffer-name))) (set-buffer org-agenda-buffer-name)))
(defvar org-agenda-filter-overlays nil)
(defun org-agenda-mark-filtered-text () (defun org-agenda-mark-filtered-text ()
"Mark all text hidden by filtering with a text property." "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) (defun org-agenda-remove-marked-text (property &optional value)
"Delete all text marked with VALUE of PROPERTY. "Delete all text marked with VALUE of PROPERTY.
VALUE defaults to t." VALUE defaults to t."
(setq value (or value t)) (let (beg)
(while (setq beg (text-property-any (point-min) (point-max) (setq value (or value t))
property value)) (while (setq beg (text-property-any (point-min) (point-max)
(delete-region property value))
beg (or (next-single-property-change beg 'org-filtered) (delete-region
(point-max))))) beg (or (next-single-property-change beg 'org-filtered)
(point-max))))))
(defun org-agenda-collect-markers () (defun org-agenda-collect-markers ()
"Collect the markers pointing to entries in the agenda buffer." "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))
(beginning-of-line 2)))))) (beginning-of-line 2))))))
(defvar org-agenda-filter-overlays nil)
(defun org-agenda-filter-by-tag-hide-line () (defun org-agenda-filter-by-tag-hide-line ()
(let (ov) (let (ov)
(setq ov (org-make-overlay (max (point-min) (1- (point-at-bol))) (setq ov (org-make-overlay (max (point-min) (1- (point-at-bol)))

2
lisp/org-plot.el
View File

@ -46,6 +46,8 @@
(:ind . 0)) (:ind . 0))
"Default options to gnuplot used by `org-plot/gnuplot'") "Default options to gnuplot used by `org-plot/gnuplot'")
(defvar org-plot-timestamp-fmt nil)
(defun org-plot/add-options-to-plist (p options) (defun org-plot/add-options-to-plist (p options)
"Parse an OPTIONS line and set values in the property list P. "Parse an OPTIONS line and set values in the property list P.
Returns the resulting property list." Returns the resulting property list."