From: Ken Manheimer <ken.manheimer@gmail.com>
Date: Fri, 11 Mar 2011 18:46:12 +0000 (-0500)
Subject: * allout-widgets.el (allout-widgets-tally) Initialize allout-widgets-tally
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~590^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14239447d34591d3bc90d0d447dd8253a37e49eb;p=emacs.git

* allout-widgets.el (allout-widgets-tally) Initialize allout-widgets-tally
as a hash table rather than nil to prevent mode-line redisplay warnings.
Also, clarify the module description and fix a comment typoo (sic).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca24dcff4a7..9456644a7a8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2011-03-11  Ken Manheimer  <ken.manheimer@gmail.com>
+
+	* allout-widgets.el (allout-widgets-tally) Initialize
+	allout-widgets-tally as a hash table rather than nil to prevent
+	mode-line redisplay warnings.
+	Also, clarify the module description and fix a comment typo.
+
+
 2011-03-11  Juanma Barranquero  <lekktu@gmail.com>
 
 	* help-fns.el (describe-variable): Don't complete keywords.
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index cc5fd6d96fa..47f181ab76b 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -1,4 +1,4 @@
-;; allout-widgets.el --- Show allout outline structure with graphical widgets.
+;; allout-widgets.el --- Visually highlight allout outline structure.
 
 ;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011 Ken Manheimer
 
@@ -238,7 +238,7 @@ buffer, and tracking increases as new widgets are added and
 decreases as obsolete widgets are garbage collected."
   :type 'boolean
   :group 'allout-widgets-developer)
-(defvar allout-widgets-tally nil
+(defvar allout-widgets-tally (make-hash-table :test 'eq :weakness 'key)
   "Hash-table of existing allout widgets, for debugging.
 
 Table is maintained iff `allout-widgets-maintain-tally' is non-nil.