diff options
| author | Ken Manheimer <ken.manheimer@gmail.com> | 2011-03-11 13:46:12 -0500 |
|---|---|---|
| committer | Ken Manheimer <ken.manheimer@gmail.com> | 2011-03-11 13:46:12 -0500 |
| commit | 14239447d34591d3bc90d0d447dd8253a37e49eb (patch) | |
| tree | 4e87a169c48de8e27946a0be3a42cbc73f8aff32 /lisp | |
| parent | ef1fd07e4e728fcbf60ce87f1434f5fd46862262 (diff) | |
| download | emacs-14239447d34591d3bc90d0d447dd8253a37e49eb.tar.gz emacs-14239447d34591d3bc90d0d447dd8253a37e49eb.tar.bz2 emacs-14239447d34591d3bc90d0d447dd8253a37e49eb.zip | |
* 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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/allout-widgets.el | 4 |
2 files changed, 10 insertions, 2 deletions
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. |