Mercurial > emacs
comparison lisp/wid-edit.el @ 18338:e15d8860f504
Don't delete nil overlays.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Thu, 19 Jun 1997 15:31:34 +0000 |
| parents | c87e4cdfcc71 |
| children | eecbc06aed1c |
comparison
equal
deleted
inserted
replaced
| 18337:c87e4cdfcc71 | 18338:e15d8860f504 |
|---|---|
| 813 (button (widget-get widget :button-overlay)) | 813 (button (widget-get widget :button-overlay)) |
| 814 (field (widget-get widget :field-overlay)) | 814 (field (widget-get widget :field-overlay)) |
| 815 (children (widget-get widget :children))) | 815 (children (widget-get widget :children))) |
| 816 (set-marker from nil) | 816 (set-marker from nil) |
| 817 (set-marker to nil) | 817 (set-marker to nil) |
| 818 (delete-overlay button) | 818 (when button |
| 819 (delete-overlay field) | 819 (delete-overlay button)) |
| 820 (when field | |
| 821 (delete-overlay field)) | |
| 820 (mapcar 'widget-leave-text children))) | 822 (mapcar 'widget-leave-text children))) |
| 821 | 823 |
| 822 ;;; Keymap and Commands. | 824 ;;; Keymap and Commands. |
| 823 | 825 |
| 824 (defvar widget-keymap nil | 826 (defvar widget-keymap nil |