mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Keep compiler happy

Browse Source
This commit is contained in:
Carsten Dominik 2009-10-20 13:24:55 +02:00
parent b16a086460
commit 79031ab5ab
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-agenda.el
View File

@ -54,8 +54,14 @@
(declare-function calendar-persian-date-string "cal-persia" (&optional date))
(declare-function org-columns-quit "org-colview" ())
(declare-function org-mobile-write-agenda-for-mobile "org-mobile" (file))
(declare-function org-habit-insert-consistency-graphs
"org-habit" (&optional line))
(declare-function org-is-habit-p "org-habit" (&optional pom))
(declare-function org-habit-parse-todo "org-habit" (&optional pom))
(defvar calendar-mode-map)
(defvar org-mobile-force-id-on-agenda-items) ; defined in org-mobile.el
(defvar org-habit-show-habits)
(defvar org-habit-show-habits-only-for-today)
;; Defined somewhere in this file, but used before definition.
(defvar org-agenda-buffer-name)

4
lisp/org-clock.el
View File

@ -918,8 +918,8 @@ the clocking selection, associated with the letter `d'."
(y-or-n-p
(format
"You stopped another clock %d mins ago; start this one from then? "
(/ (- (time-to-seconds (current-time))
(time-to-seconds left-over)) 60)))
(/ (- (org-float-time (current-time))
(org-float-time left-over)) 60)))
left-over)
(current-time)))
(setq ts (org-insert-time-stamp org-clock-start-time

5
lisp/org-mobile.el
View File

@ -33,6 +33,7 @@
(require 'org)
(require 'org-agenda)
(eval-when-compile (require 'cl))
(defgroup org-mobile nil
"Options concerning support for a viewer/editor on a mobile device."
@ -337,7 +338,7 @@ agenda view showing the flagged items."
(defun org-mobile-copy-agenda-files ()
"Copy all agenda files to the stage or WebDAV directory."
(let ((files-alist org-mobile-files-alist)
file buf entry link-name target-path target-dir)
file buf entry link-name target-path target-dir check)
(while (setq entry (pop files-alist))
(setq file (car entry) link-name (cdr entry))
(when (file-exists-p file)
@ -654,7 +655,7 @@ If BEG and END are given, only do this in that region."
(goto-char (+ 2 bos-marker))
(unless (markerp id-pos)
(insert "BAD REFERENCE ")
(incf cnd-error)
(incf cnt-error)
(throw 'next t))
(unless cmd
(insert "BAD FLAG ")