* 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 ca24dcff4a7d0eb37dca080a8ab4779f2f8d7a23..9456644a7a84537a726bed624e3270936c65ac29 100644 (file)
--- 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 cc5fd6d96fa142bafc2f5cb17129f75a9d374f53..47f181ab76b8ba2e86f39db9bce4d307f74f5955 100644 (file)
--- 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.