diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e89ad861..01857f7d8 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-11-03 Carsten Dominik + * 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). diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 4eed1d48d..e002c62a4 100644 --- a/lisp/org-agenda.el +++ b/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))) diff --git a/lisp/org-plot.el b/lisp/org-plot.el index f69bfc6f5..5e21520e8 100644 --- a/lisp/org-plot.el +++ b/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."