Keep byte compiler happy

lisp/org-docbook.el

@@ -1149,6 +1149,7 @@ publishing directory."
 
 (defvar in-local-list)
 (defvar local-list-indent)
+(defvar local-list-type)
 (defun org-export-docbook-close-lists-maybe (line)
   (let ((ind (get-text-property 0 'original-indentation line))
 	didclose)

lisp/org-exp.el

@@ -1681,7 +1681,7 @@ from the buffer."
   "Mark block quote and verse environments with special cookies.
 These special cookies will later be interpreted by the backend."
   ;; Blockquotes
-  (let (type t1 ind beg end beg1 end1)
+  (let (type t1 ind beg end beg1 end1 content)
     (goto-char (point-min))
     (while (re-search-forward
 	    "^\\([ \t]*\\)#\\+\\(begin_\\(\\(block\\)?quote\\|verse\\|center\\)\\>.*\\)"

lisp/org-gnus.el

@@ -53,6 +53,7 @@ negates this setting for the duration of the command."
 ;; Declare external functions and variables
 (declare-function gnus-article-show-summary "gnus-art" ())
 (declare-function gnus-summary-last-subject "gnus-sum" ())
+(declare-function message-fetch-field "message" (header &optional not-all))
 (defvar gnus-other-frame-object)
 (defvar gnus-group-name)
 (defvar gnus-article-current)

lisp/org-html.el

@@ -1870,6 +1870,7 @@ If there are links in the string, don't modify these."
 
 (defvar in-local-list)
 (defvar local-list-indent)
+(defvar local-list-type)
 (defun org-export-html-close-lists-maybe (line)
   (let ((ind (get-text-property 0 'original-indentation line))
 	didclose)

lisp/org-macs.el

@@ -33,6 +33,8 @@
 
 ;;; Code:
 
+(declare-function org-add-props "org-compat" (string plist &rest props))
+
 (defmacro org-bound-and-true-p (var)
   "Return the value of symbol VAR if it is bound, else nil."
   `(and (boundp (quote ,var)) ,var))

lisp/org-src.el

@@ -34,6 +34,8 @@
 (require 'org-macs)
 (require 'org-compat)
 
+(declare-function org-do-remove-indentation "org" (&optional n))
+
 (defcustom org-edit-src-region-extra nil
   "Additional regexps to identify regions for editing with `org-edit-src-code'.
 For examples see the function `org-edit-src-find-region-and-lang'.
@@ -315,7 +317,7 @@ the language, a switch telling of the content should be in a single line."
 	    ("^[ \t]*#\\+begin_docbook.*\n" "\n[ \t]*#\\+end_docbook" "xml")
 	    )))
 	(pos (point))
-	re1 re2 single beg end lang lfmt match-re1 ind)
+	re1 re2 single beg end lang lfmt match-re1 ind entry)
     (catch 'exit
       (while (setq entry (pop re-list))
 	(setq re1 (car entry) re2 (nth 1 entry) lang (nth 2 entry)

lisp/org.el

@@ -3764,10 +3764,8 @@ This is for getting out of special buffers like remember.")
 ;; FIXME: Occasionally check by commenting these, to make sure
 ;;        no other functions uses these, forgetting to let-bind them.
 (defvar entry)
-(defvar state)
 (defvar last-state)
 (defvar date)
-(defvar description)
 
 ;; Defined somewhere in this file, but used before definition.
 (defvar org-html-entities)
@@ -12664,7 +12662,8 @@ days in order to avoid rounding problems."
   "Convert a time stamp to an absolute day number.
 If there is a specifyer for a cyclic time stamp, get the closest date to
 DAYNR.
-PREFER and SHOW-ALL are passed through to `org-closest-date'."
+PREFER and SHOW-ALL are passed through to `org-closest-date'.
+the variable date is bound by the calendar when this is called."
   (cond
    ((and daynr (string-match "\\`%%\\((.*)\\)" s))
     (if (org-diary-sexp-entry (match-string 1 s) "" date)