[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] Avoid some warnings about `assignment to free variable'

From: Peter Münster
Subject: [O] [PATCH] Avoid some warnings about `assignment to free variable'
Date: Sat, 18 Feb 2012 21:28:03 +0100
User-agent: Gnus/5.130002 (Ma Gnus v0.2) Emacs/24.0.93 (gnu/linux)

* lisp/org.el, lisp/org-pcomplete.el: Add some `defvars' to avoid
  warnings about `assignment to free variable'.

 lisp/org-pcomplete.el |    5 +++++
 lisp/org.el           |    2 ++
 2 files changed, 7 insertions(+), 0 deletions(-)

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."
    (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.el b/lisp/org.el
index a81f7fc..45d4b6a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12778,6 +12778,7 @@ ACTION can be `set', `up', `down', or a character."
 ;;;; Tags
+(defvar tags-list)
 (defvar org-agenda-archives-mode)
 (defvar org-map-continue-from nil
   "Position from where mapping should continue.
@@ -14957,6 +14958,7 @@ So these are more for recording a certain time/date."
 (defvar org-ans2) ; dynamically scoped parameter
 (defvar org-plain-time-of-day-regexp) ; defined below
+(defvar org-read-date-inactive)
 (defvar org-overriding-default-time nil) ; dynamically scoped
 (defvar org-read-date-overlay nil)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]