diff options
| author | Healfdene Goguen | 1998-05-21 17:27:41 +0000 |
|---|---|---|
| committer | Healfdene Goguen | 1998-05-21 17:27:41 +0000 |
| commit | dbfd4c263daa4f0a75981c0fd1c8b78c4addd757 (patch) | |
| tree | 2b426c0ee950ef6ec59245433d617135b6d15673 | |
| parent | 422bc59b8bb8276360843f8ee4dcb5e681ec220c (diff) | |
Removed uninitialized os variable in spans-at-region.
| -rw-r--r-- | span-overlay.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/span-overlay.el b/span-overlay.el index 07348cc9..f4ba66ab 100644 --- a/span-overlay.el +++ b/span-overlay.el @@ -5,6 +5,9 @@ ;; Maintainer: LEGO Team <lego@dcs.ed.ac.uk> ;; $Log$ +;; Revision 1.4 1998/05/21 17:27:41 hhg +;; Removed uninitialized os variable in spans-at-region. +;; ;; Revision 1.3 1998/05/21 08:28:52 hhg ;; Initialize 'before pointer in add-span-aux when last-span is nil. ;; Removed span-at-type. @@ -113,7 +116,7 @@ overlays)) (defun spans-at-region (start end) - (let ((overlays nil) (pos start) (os nil)) + (let ((overlays nil) (pos start)) (while (< pos end) (setq overlays (append (spans-at-point pos) overlays)) (setq pos (next-overlay-change pos))) |