From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?Peter_M=C3=BCnster?= Subject: [PATCH] Avoid some warnings about `assignment to free variable' Date: Sat, 18 Feb 2012 21:28:03 +0100 Message-ID: <87k43jrie0.fsf@micropit.couberia.bzh> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:39045) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ryqyi-0007w2-KE for emacs-orgmode@gnu.org; Sat, 18 Feb 2012 15:33:57 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ryqyh-0003SC-NA for emacs-orgmode@gnu.org; Sat, 18 Feb 2012 15:33:56 -0500 Received: from plane.gmane.org ([80.91.229.3]:34374) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ryqyh-0003ON-Ho for emacs-orgmode@gnu.org; Sat, 18 Feb 2012 15:33:55 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Ryqye-00071p-2X for emacs-orgmode@gnu.org; Sat, 18 Feb 2012 21:33:52 +0100 Received: from arennes-359-1-251-30.w2-2.abo.wanadoo.fr ([2.2.202.30]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 18 Feb 2012 21:33:52 +0100 Received: from pmlists by arennes-359-1-251-30.w2-2.abo.wanadoo.fr with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 18 Feb 2012 21:33:52 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/org.el, lisp/org-pcomplete.el: Add some `defvars' to avoid warnings about `assignment to free variable'. TINYCHANGE --- 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." 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.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) -- 1.7.3.4