ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix compiler warnings.

This commit is contained in:
Bastien Guerry 2012-03-20 13:04:55 +01:00
parent 4ef3304ac2
commit fc717f3eb7
6 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ob.el
View File

@ -79,6 +79,7 @@
(declare-function org-list-struct "org-list" ()) (declare-function org-list-struct "org-list" ())
(declare-function org-list-prevs-alist "org-list" (struct)) (declare-function org-list-prevs-alist "org-list" (struct))
(declare-function org-list-get-list-end "org-list" (item struct prevs)) (declare-function org-list-get-list-end "org-list" (item struct prevs))
(declare-function org-strip-protective-commas "org" (beg end))
(defgroup org-babel nil (defgroup org-babel nil
"Code block evaluation and management in `org-mode' documents." "Code block evaluation and management in `org-mode' documents."

2
lisp/org-agenda.el
View File

@ -6191,6 +6191,7 @@ When this is the global TODO list, a prefix argument will be interpreted."
(defvar org-global-tags-completion-table nil) (defvar org-global-tags-completion-table nil)
(defvar org-agenda-filter-form nil) (defvar org-agenda-filter-form nil)
(defvar org-agenda-filtered-by-category nil)
(defun org-agenda-filter-by-category (strip) (defun org-agenda-filter-by-category (strip)
"Keep only those lines in the agenda buffer that have a specific category. "Keep only those lines in the agenda buffer that have a specific category.
@ -6369,7 +6370,6 @@ If the line does not have an effort defined, return nil."
(funcall op (or eff (if org-sort-agenda-noeffort-is-high 32767 0)) (funcall op (or eff (if org-sort-agenda-noeffort-is-high 32767 0))
value)))) value))))
(defvar org-agenda-filtered-by-category nil)
(defun org-agenda-filter-apply (filter type) (defun org-agenda-filter-apply (filter type)
"Set FILTER as the new agenda filter and apply it." "Set FILTER as the new agenda filter and apply it."
(let (tags) (let (tags)

2
lisp/org-eshell.el
View File

@ -45,7 +45,7 @@
(if (get-buffer eshell-buffer-name) (if (get-buffer eshell-buffer-name)
(org-pop-to-buffer-same-window eshell-buffer-name) (org-pop-to-buffer-same-window eshell-buffer-name)
(eshell)) (eshell))
(end-of-buffer) (goto-char (point-max))
(eshell-kill-input) (eshell-kill-input)
(insert command) (insert command)
(eshell-send-input))) (eshell-send-input)))

1
lisp/org-footnote.el
View File

@ -58,6 +58,7 @@
(declare-function org-show-context "org" (&optional key)) (declare-function org-show-context "org" (&optional key))
(declare-function org-trim "org" (s)) (declare-function org-trim "org" (s))
(declare-function outline-next-heading "outline") (declare-function outline-next-heading "outline")
(declare-function org-skip-whitespace "org" ())
(defvar org-outline-regexp-bol) ; defined in org.el (defvar org-outline-regexp-bol) ; defined in org.el
(defvar org-odd-levels-only) ; defined in org.el (defvar org-odd-levels-only) ; defined in org.el

2
lisp/org-mobile.el
View File

@ -303,7 +303,7 @@ create all custom agenda views, for upload to the mobile phone."
(interactive) (interactive)
(let ((a-buffer (get-buffer org-agenda-buffer-name))) (let ((a-buffer (get-buffer org-agenda-buffer-name)))
(let ((org-agenda-buffer-name "*SUMO*") (let ((org-agenda-buffer-name "*SUMO*")
(org-agenda-filter org-agenda-filter) (org-agenda-tag-filter org-agenda-tag-filter)
(org-agenda-redo-command org-agenda-redo-command)) (org-agenda-redo-command org-agenda-redo-command))
(save-excursion (save-excursion
(save-window-excursion (save-window-excursion

2
lisp/org-src.el
View File

@ -43,6 +43,8 @@
(declare-function org-switch-to-buffer-other-window "org" (&rest args)) (declare-function org-switch-to-buffer-other-window "org" (&rest args))
(declare-function org-pop-to-buffer-same-window (declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label)) "org-compat" (&optional buffer-or-name norecord label))
(declare-function org-strip-protective-commas "org" (beg end))
(declare-function org-base-buffer "org" (buffer))
(defcustom org-edit-src-region-extra nil (defcustom org-edit-src-region-extra nil
"Additional regexps to identify regions for editing with `org-edit-src-code'. "Additional regexps to identify regions for editing with `org-edit-src-code'.