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

Fix byte compiler warnings 

* org-macs.el (org-called-interactively-p): Wrap function call in
	with-no-warnings.
	(with-silent-modifications) Declare macro for Emacs < 23.2.

TINYCHANGE
This commit is contained in:
Achim Gratz 2010-11-19 01:37:01 +00:00 committed by David Maus
parent bd7bfd20f7
commit 95bb16661b
5 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ob-ref.el
View File

@ -51,6 +51,7 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(eval-when-compile (eval-when-compile
(require 'org-list)
(require 'cl)) (require 'cl))
(declare-function org-remove-if-not "org" (predicate seq)) (declare-function org-remove-if-not "org" (predicate seq))

1
lisp/ob.el
View File

@ -30,6 +30,7 @@
;;; Code: ;;; Code:
(eval-when-compile (eval-when-compile
(require 'org-list)
(require 'cl)) (require 'cl))
(require 'org-macs) (require 'org-macs)

6
lisp/org-agenda.el
View File

@ -927,6 +927,12 @@ For example, 9:30am would become 09:30 rather than 9:30."
:group 'org-agenda :group 'org-agenda
:type 'boolean) :type 'boolean)
(defcustom org-agenda-time-leading-zero nil
"Non-nil means use leading zero for military times in agenda.
For example, 9:30am would become 09:30 rather than 9:30."
:group 'org-agenda-daily/weekly
:type 'boolean)
(defun org-agenda-time-of-day-to-ampm (time) (defun org-agenda-time-of-day-to-ampm (time)
"Convert TIME of a string like '13:45' to an AM/PM style time string." "Convert TIME of a string like '13:45' to an AM/PM style time string."
(let* ((hour-number (string-to-number (substring time 0 -3))) (let* ((hour-number (string-to-number (substring time 0 -3)))

8
lisp/org-macs.el
View File

@ -46,9 +46,15 @@
(if (or (> emacs-major-version 23) (if (or (> emacs-major-version 23)
(and (>= emacs-major-version 23) (and (>= emacs-major-version 23)
(>= emacs-minor-version 2))) (>= emacs-minor-version 2)))
(called-interactively-p ,kind) (with-no-warnings (called-interactively-p ,kind)) ;; defined with no argument in <=23.1
(interactive-p)))) (interactive-p))))
(if (or (<= emacs-major-version 23)
(and (<= emacs-major-version 23)
(< emacs-minor-version 2)))
(defmacro with-silent-modifications
(org-unmodified)))
(defmacro org-bound-and-true-p (var) (defmacro org-bound-and-true-p (var)
"Return the value of symbol VAR if it is bound, else nil." "Return the value of symbol VAR if it is bound, else nil."
`(and (boundp (quote ,var)) ,var)) `(and (boundp (quote ,var)) ,var))

4
lisp/org.el
View File

@ -72,7 +72,8 @@
(eval-when-compile (eval-when-compile
(require 'cl) (require 'cl)
(require 'gnus-sum)) (require 'gnus-sum)
)
(require 'calendar) (require 'calendar)
(require 'pcomplete) (require 'pcomplete)
@ -3571,6 +3572,7 @@ Normal means, no org-mode-specific context."
(declare-function parse-time-string "parse-time" (string)) (declare-function parse-time-string "parse-time" (string))
(declare-function org-attach-reveal "org-attach" (&optional if-exists)) (declare-function org-attach-reveal "org-attach" (&optional if-exists))
(declare-function org-export-latex-fix-inputenc "org-latex" ()) (declare-function org-export-latex-fix-inputenc "org-latex" ())
(declare-function orgtbl-send-table "org-table" (&optional maybe))
(defvar remember-data-file) (defvar remember-data-file)
(defvar texmathp-why) (defvar texmathp-why)
(declare-function speedbar-line-directory "speedbar" (&optional depth)) (declare-function speedbar-line-directory "speedbar" (&optional depth))