[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103628: * allout-widgets.el (allout-
From: |
Ken Manheimer |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103628: * allout-widgets.el (allout-widgets-tally) Initialize allout-widgets-tally |
Date: |
Fri, 11 Mar 2011 13:46:12 -0500 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103628: * allout-widgets.el (allout-widgets-tally) Initialize allout-widgets-tally,
Ken Manheimer <=