[Emacs-diffs] /srv/bzr/emacs/trunk r103628: * allout-widgets.el (allout-widgets-tally) Initialize allout-widgets-tally

[Ken Manheimer]

------------------------------------------------------------
revno: 103628
committer: Ken Manheimer <address@hidden>
branch nick: trunk
timestamp: Fri 2011-03-11 13:46:12 -0500
message:
  * 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).
modified:
  lisp/ChangeLog
  lisp/allout-widgets.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-11 00:33:57 +0000
+++ b/lisp/ChangeLog    2011-03-11 18:46:12 +0000
@@ -1,3 +1,11 @@
+2011-03-11  Ken Manheimer  <address@hidden>
+
+       * 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  <address@hidden>
 
        * help-fns.el (describe-variable): Don't complete keywords.

=== modified file 'lisp/allout-widgets.el'
--- a/lisp/allout-widgets.el    2011-02-23 07:27:09 +0000
+++ b/lisp/allout-widgets.el    2011-03-11 18:46:12 +0000
@@ -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 @@
 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.