Applied, Thanks! Ilya Shlyakhter <ilya_...@alum.mit.edu> writes:
> Re-sending the patch as a correct attachment type. > One of the warnings indicated an actual (small) bug. > > From d0579b6e104b82ec7d3255086384ff8dee0d4e0e Mon Sep 17 00:00:00 2001 > From: Ilya Shlyakhter <ilya_...@alum.mit.edu> > Date: Fri, 16 Mar 2012 01:52:03 -0400 > Subject: [PATCH] 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 > --- > lisp/ob-lilypond.el | 2 +- > lisp/org-pcomplete.el | 5 +++++ > lisp/org-src.el | 2 ++ > lisp/org.el | 9 +++++++-- > 4 files changed, 15 insertions(+), 3 deletions(-) > > diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el > index a008b2d..0e9b0c6 100644 > --- a/lisp/ob-lilypond.el > +++ b/lisp/ob-lilypond.el > @@ -223,7 +223,7 @@ FILE-NAME is full path to lilypond (.ly) file" > (arg-11 file-name)) > (if test > `(,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 > arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 > arg-7 arg-8 arg-9 arg-10 arg-11)))) > diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el > index c475bcc..7a4dc0d 100644 > --- a/lisp/org-pcomplete.el > +++ b/lisp/org-pcomplete.el > @@ -50,6 +50,9 @@ > :tag "Org" > :group 'org) > > +(defvar org-drawer-regexp) > +(defvar org-property-re) > + > (defun org-thing-at-point () > "Examine the thing at point and let the caller know what it is. > 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)) > (substring pcomplete-stub 1))) > > +(defvar org-drawers) > + > (defun pcomplete/org-mode/drawer () > "Complete a drawer name." > (let ((spc (save-excursion > diff --git a/lisp/org-src.el b/lisp/org-src.el > index 88217cd..cc5a6ca 100644 > --- a/lisp/org-src.el > +++ b/lisp/org-src.el > @@ -686,6 +686,8 @@ the language, a switch telling if the content should be > in a single line." > (interactive) > (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) > "Tangle the parent buffer." > (interactive) > diff --git a/lisp/org.el b/lisp/org.el > index 951f692..7f8eddb 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -76,6 +76,7 @@ > (require 'gnus-sum)) > > (require 'calendar) > +(require 'format-spec) > > ;; Emacs 22 calendar compatibility: Make sure the new variables are > available > (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. > Stars are put in group 1 and the trimmed body in group 2.") > > +(defvar bidi-paragraph-direction) > + > ;;;###autoload > (define-derived-mode org-mode outline-mode "Org" > "Outline-based notes management and organizer, alias > @@ -12854,7 +12857,7 @@ headlines matching this string." > (buffer-name (buffer-base-buffer))))))) > (case-fold-search nil) > (org-map-continue-from nil) > - lspos tags > + lspos tags tags-list > (tags-alist (list (cons 0 org-file-tags))) > (llast 0) rtn rtn1 level category i txt > todo marker entry priority) > @@ -14986,6 +14989,7 @@ So these are more for recording a certain time/date." > (defvar org-read-date-final-answer nil) > (defvar org-read-date-analyze-futurep 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 > default-time default-input inactive) > @@ -15185,7 +15189,6 @@ user." > (defvar def) > (defvar defdecode) > (defvar with-time) > -(defvar org-read-date-inactive) > (defun org-read-date-display () > "Display the current date prompt interpretation in the minibuffer." > (when org-read-date-display-live > @@ -17008,6 +17011,8 @@ Some of the options can be changed using the variable > (error "Unknown conversion type %s for latex fragments" > processing-type))))))))) > > +(declare-function format-spec "format-spec" (format specification)) > + > (defun org-create-math-formula (latex-frag &optional mathml-file) > "Convert LATEX-FRAG to MathML and store it in MATHML-FILE. > Use `org-latex-to-mathml-convert-command'. If the conversion is -- Eric Schulte http://cs.unm.edu/~eschulte/