diff options
author | Bastien Guerry <bzg@altern.org> | 2012-04-17 11:17:17 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-04-17 11:17:17 +0200 |
commit | a6349c2f5041ca70bf9b8459c26294251e7629db (patch) | |
tree | 8ea8448ea2d93cc7b8580a82d1893e808b0a2a2d | |
parent | ec7bd3b1bee7125a998ace624d863a0d380908c9 (diff) | |
download | org-mode-a6349c2f5041ca70bf9b8459c26294251e7629db.tar.gz |
Fix compiler warnings.
-rw-r--r-- | lisp/ob.el | 2 | ||||
-rw-r--r-- | lisp/org-agenda.el | 23 | ||||
-rw-r--r-- | lisp/org-bbdb.el | 3 |
3 files changed, 17 insertions, 11 deletions
@@ -83,6 +83,8 @@ (declare-function org-list-prevs-alist "org-list" (struct)) (declare-function org-list-get-list-end "org-list" (item struct prevs)) (declare-function org-strip-protective-commas "org" (beg end)) +(declare-function org-remove-if "org" (predicate seq)) +(declare-function org-completing-read "org" (&rest args)) (defgroup org-babel nil "Code block evaluation and management in `org-mode' documents." diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 27f3c9f..609a85c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1818,6 +1818,17 @@ works you probably want to add it to `org-agenda-custom-commands' for good." ;;; Multiple agenda buffers support +(defcustom org-agenda-sticky nil + "Non-nil means agenda q key will bury agenda buffers. +Agenda commands will then show existing buffer instead of generating new ones. +When nil, `q' will kill the single agenda buffer." + :group 'org-agenda + :type 'boolean + :set (lambda (var val) + (if (boundp var) + (org-toggle-sticky-agenda (if val 1 0)) + (set var val)))) + (defun org-toggle-sticky-agenda (&optional arg) "Toggle `org-agenda-sticky'." (interactive "P") @@ -1832,17 +1843,6 @@ works you probably want to add it to `org-agenda-custom-commands' for good." (message "Sticky agenda was %s" (if org-agenda-sticky "enabled" "disabled"))))) -(defcustom org-agenda-sticky nil - "Non-nil means agenda q key will bury agenda buffers. -Agenda commands will then show existing buffer instead of generating new ones. -When nil, `q' will kill the single agenda buffer." - :group 'org-agenda - :type 'boolean - :set (lambda (var val) - (if (boundp var) - (org-toggle-sticky-agenda (if val 1 0)) - (set var val)))) - (defvar org-agenda-buffer nil "Agenda buffer currently being generated.") @@ -5136,6 +5136,7 @@ please use `org-class' instead." dayname skip-weeks))) (make-obsolete 'org-diary-class 'org-class "") +(defvar org-agenda-show-log-scoped) ;; dynamically scope in ̀org-timeline' or`org-agenda-list' (defalias 'org-get-closed 'org-agenda-get-progress) (defun org-agenda-get-progress () "Return the logged TODO entries for agenda display." diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el index f320d56..7f89f24 100644 --- a/lisp/org-bbdb.el +++ b/lisp/org-bbdb.el @@ -116,6 +116,9 @@ (declare-function bbdb-search-name "ext:bbdb-com" (regexp &optional layout)) (declare-function bbdb-search-organization "ext:bbdb-com" (regexp &optional layout)) +;; `bbdb-record-note' is part of BBDB v3.x +(declare-function bbdb-record-note "ext:bbdb" (record label)) + (declare-function calendar-leap-year-p "calendar" (year)) (declare-function diary-ordinal-suffix "diary-lib" (n)) |