Browse Source

Fixed compiler warnings, including one small bug in ob-lilypond

* lisp/ob-lilypond.el (ly-compile-lilyfile): Fixed misplaced comma in a
quoting expression.

* lisp/org-pcomplete.el: added missing defvar definitions for org vars

* lisp/org-src.el: added declare-function line for org-babel-tangle

* lisp/ob.el (org-scan-tags): protected the variable tags-list with a let
(other) added missing defvar declarations.

TINYCHANGE
Ilya Shlyakhter 13 years ago
parent
commit
de4ba0d4cd
4 changed files with 15 additions and 3 deletions
  1. 1 1
      lisp/ob-lilypond.el
  2. 5 0
      lisp/org-pcomplete.el
  3. 2 0
      lisp/org-src.el
  4. 7 2
      lisp/org.el

+ 1 - 1
lisp/ob-lilypond.el

@@ -223,7 +223,7 @@ FILE-NAME is full path to lilypond (.ly) file"
         (arg-11 file-name))
         (arg-11 file-name))
     (if test
     (if test
         `(,arg-1 ,arg-2 ,arg-3 ,arg-4 ,arg-5 ,arg-6
         `(,arg-1 ,arg-2 ,arg-3 ,arg-4 ,arg-5 ,arg-6
-                 ,arg-7 ,arg-8 ,arg-9 ,arg-10, arg-11)
+                 ,arg-7 ,arg-8 ,arg-9 ,arg-10 ,arg-11)
       (call-process
       (call-process
        arg-1 arg-2 arg-3 arg-4 arg-5 arg-6
        arg-1 arg-2 arg-3 arg-4 arg-5 arg-6
        arg-7 arg-8 arg-9 arg-10 arg-11))))
        arg-7 arg-8 arg-9 arg-10 arg-11))))

+ 5 - 0
lisp/org-pcomplete.el

@@ -50,6 +50,9 @@
   :tag "Org"
   :tag "Org"
   :group 'org)
   :group 'org)
 
 
+(defvar org-drawer-regexp)
+(defvar org-property-re)
+
 (defun org-thing-at-point ()
 (defun org-thing-at-point ()
   "Examine the thing at point and let the caller know what it is.
   "Examine the thing at point and let the caller know what it is.
 The return value is a string naming the thing at point."
 The return value is a string naming the thing at point."
@@ -247,6 +250,8 @@ This needs more work, to handle headings with lots of spaces in them."
 	     lst))
 	     lst))
    (substring pcomplete-stub 1)))
    (substring pcomplete-stub 1)))
 
 
+(defvar org-drawers)
+
 (defun pcomplete/org-mode/drawer ()
 (defun pcomplete/org-mode/drawer ()
   "Complete a drawer name."
   "Complete a drawer name."
   (let ((spc (save-excursion
   (let ((spc (save-excursion

+ 2 - 0
lisp/org-src.el

@@ -686,6 +686,8 @@ the language, a switch telling if the content should be in a single line."
   (interactive)
   (interactive)
   (org-src-in-org-buffer (save-buffer)))
   (org-src-in-org-buffer (save-buffer)))
 
 
+(declare-function org-babel-tangle "ob-tangle" (&optional only-this-block target-file lang))
+
 (defun org-src-tangle (arg)
 (defun org-src-tangle (arg)
   "Tangle the parent buffer."
   "Tangle the parent buffer."
   (interactive)
   (interactive)

+ 7 - 2
lisp/org.el

@@ -76,6 +76,7 @@
   (require 'gnus-sum))
   (require 'gnus-sum))
 
 
 (require 'calendar)
 (require 'calendar)
+(require 'format-spec)
 
 
 ;; Emacs 22 calendar compatibility:  Make sure the new variables are available
 ;; Emacs 22 calendar compatibility:  Make sure the new variables are available
 (when (fboundp 'defvaralias)
 (when (fboundp 'defvaralias)
@@ -4930,6 +4931,8 @@ sure that we are at the beginning of the line.")
   "Matches an headline, putting stars and text into groups.
   "Matches an headline, putting stars and text into groups.
 Stars are put in group 1 and the trimmed body in group 2.")
 Stars are put in group 1 and the trimmed body in group 2.")
 
 
+(defvar bidi-paragraph-direction)
+
 ;;;###autoload
 ;;;###autoload
 (define-derived-mode org-mode outline-mode "Org"
 (define-derived-mode org-mode outline-mode "Org"
   "Outline-based notes management and organizer, alias
   "Outline-based notes management and organizer, alias
@@ -12854,7 +12857,7 @@ headlines matching this string."
 				   (buffer-name (buffer-base-buffer)))))))
 				   (buffer-name (buffer-base-buffer)))))))
 	 (case-fold-search nil)
 	 (case-fold-search nil)
 	 (org-map-continue-from nil)
 	 (org-map-continue-from nil)
-         lspos tags
+         lspos tags tags-list
 	 (tags-alist (list (cons 0 org-file-tags)))
 	 (tags-alist (list (cons 0 org-file-tags)))
 	 (llast 0) rtn rtn1 level category i txt
 	 (llast 0) rtn rtn1 level category i txt
 	 todo marker entry priority)
 	 todo marker entry priority)
@@ -14985,6 +14988,7 @@ So these are more for recording a certain time/date."
 (defvar org-read-date-final-answer nil)
 (defvar org-read-date-final-answer nil)
 (defvar org-read-date-analyze-futurep nil)
 (defvar org-read-date-analyze-futurep nil)
 (defvar org-read-date-analyze-forced-year nil)
 (defvar org-read-date-analyze-forced-year nil)
+(defvar org-read-date-inactive)
 
 
 (defun org-read-date (&optional with-time to-time from-string prompt
 (defun org-read-date (&optional with-time to-time from-string prompt
 				default-time default-input inactive)
 				default-time default-input inactive)
@@ -15184,7 +15188,6 @@ user."
 (defvar def)
 (defvar def)
 (defvar defdecode)
 (defvar defdecode)
 (defvar with-time)
 (defvar with-time)
-(defvar org-read-date-inactive)
 (defun org-read-date-display ()
 (defun org-read-date-display ()
   "Display the current date prompt interpretation in the minibuffer."
   "Display the current date prompt interpretation in the minibuffer."
   (when org-read-date-display-live
   (when org-read-date-display-live
@@ -17007,6 +17010,8 @@ Some of the options can be changed using the variable
 	      (error "Unknown conversion type %s for latex fragments"
 	      (error "Unknown conversion type %s for latex fragments"
 		     processing-type)))))))))
 		     processing-type)))))))))
 
 
+(declare-function format-spec "format-spec" (format specification))
+
 (defun org-create-math-formula (latex-frag &optional mathml-file)
 (defun org-create-math-formula (latex-frag &optional mathml-file)
   "Convert LATEX-FRAG to MathML and store it in MATHML-FILE.
   "Convert LATEX-FRAG to MathML and store it in MATHML-FILE.
 Use `org-latex-to-mathml-convert-command'.  If the conversion is
 Use `org-latex-to-mathml-convert-command'.  If the conversion is