diff options
| author | Eric Schulte <eric.schulte@gmx.com> | 2012-03-14 09:55:04 -0400 |
|---|---|---|
| committer | Eric Schulte <eric.schulte@gmx.com> | 2012-03-14 09:55:04 -0400 |
| commit | 4542824f2c746baad9f19340c46204a9ec1b00f9 (patch) | |
| tree | 9029267f89f72f9324f79f2289334131f0375672 | |
| parent | 0dcd83d3b25c8187281ae493a28eb5898dea6b01 (diff) | |
| download | org-mode-4542824f2c746baad9f19340c46204a9ec1b00f9.tar.gz | |
fix compiler warnings
* lisp/ob.el (org-strip-protective-commas): Declared.
* lisp/org-agenda.el (org-agenda-filtered-by-category): Declared.
(org-agenda-filter-apply): Capture free variable.
* lisp/org-footnote.el (org-skip-whitespace): Declared.
* lisp/org-mobile.el (org-agenda-filter): Declared.
* lisp/org-src.el (org-strip-protective-commas): Declared.
| -rw-r--r-- | lisp/ob.el | 1 | ||||
| -rw-r--r-- | lisp/org-agenda.el | 5 | ||||
| -rw-r--r-- | lisp/org-footnote.el | 1 | ||||
| -rw-r--r-- | lisp/org-mobile.el | 2 | ||||
| -rw-r--r-- | lisp/org-src.el | 1 |
5 files changed, 7 insertions, 3 deletions
@@ -57,6 +57,7 @@ (declare-function org-cycle "org" (&optional arg)) (declare-function org-uniquify "org" (list)) (declare-function org-current-level "org" ()) +(declare-function org-strip-protective-commas "org" (beg end)) (declare-function org-table-import "org-table" (file arg)) (declare-function org-add-hook "org-compat" (hook function &optional append local)) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 31aa919..173cda6 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6191,7 +6191,7 @@ When this is the global TODO list, a prefix argument will be interpreted." (defvar org-global-tags-completion-table nil) (defvar org-agenda-filter-form nil) - +(defvar org-agenda-filtered-by-category nil) (defun org-agenda-filter-by-category (strip) "Keep only those lines in the agenda buffer that have a specific category. The category is that of the current line." @@ -6369,10 +6369,9 @@ If the line does not have an effort defined, return nil." (funcall op (or eff (if org-sort-agenda-noeffort-is-high 32767 0)) value)))) -(defvar org-agenda-filtered-by-category nil) (defun org-agenda-filter-apply (filter type) "Set FILTER as the new agenda filter and apply it." - (let (tags) + (let (tags cat) (if (eq type 'tag) (setq org-agenda-tag-filter filter) (setq org-agenda-category-filter filter diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 2433d88..8e59c0a 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -57,6 +57,7 @@ (declare-function org-mark-ring-push "org" (&optional pos buffer)) (declare-function org-show-context "org" (&optional key)) (declare-function org-trim "org" (s)) +(declare-function org-skip-whitespace "org" ()) (declare-function outline-next-heading "outline") (defvar org-outline-regexp-bol) ; defined in org.el diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 541ccc8..6e05efb 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -295,6 +295,8 @@ Also exclude files matching `org-mobile-files-exclude-regexp'." (push (cons file link-name) rtn))) (nreverse rtn))) +(defvar org-agenda-filter) + ;;;###autoload (defun org-mobile-push () "Push the current state of Org affairs to the WebDAV directory. diff --git a/lisp/org-src.el b/lisp/org-src.el index 70f28f0..13593c1 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -41,6 +41,7 @@ (declare-function org-at-table.el-p "org" ()) (declare-function org-get-indentation "org" (&optional line)) (declare-function org-switch-to-buffer-other-window "org" (&rest args)) +(declare-function org-strip-protective-commas "org" (beg end)) (declare-function org-pop-to-buffer-same-window "org-compat" (&optional buffer-or-name norecord label)) |