aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/srecode/fields.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cedet/srecode/fields.el')
-rw-r--r--lisp/cedet/srecode/fields.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el
index 088781cfb53..f13fb17ca8f 100644
--- a/lisp/cedet/srecode/fields.el
+++ b/lisp/cedet/srecode/fields.el
@@ -101,7 +101,7 @@ Has virtual :start and :end initializers.")
101 )) 101 ))
102 102
103 ;; Create a temporary overlay now. We have to use an overlay and 103 ;; Create a temporary overlay now. We have to use an overlay and
104 ;; not a marker becaues of the in-front insertion rules. The rules 104 ;; not a marker because of the in-front insertion rules. The rules
105 ;; are backward from what is wanted while typing. 105 ;; are backward from what is wanted while typing.
106 (setq olay (make-overlay start end (current-buffer) t nil)) 106 (setq olay (make-overlay start end (current-buffer) t nil))
107 (overlay-put olay 'srecode-init-only t) 107 (overlay-put olay 'srecode-init-only t)
@@ -338,7 +338,7 @@ PRE-LEN is used in the after mode for the length of the changed text."
338 (inhibit-modification-hooks t) 338 (inhibit-modification-hooks t)
339 ) 339 )
340 ;; Sometimes a field is deleted, but we might still get a stray 340 ;; Sometimes a field is deleted, but we might still get a stray
341 ;; event. Lets just ignore those events. 341 ;; event. Let's just ignore those events.
342 (when (slot-boundp field 'overlay) 342 (when (slot-boundp field 'overlay)
343 ;; First, fixup the two overlays, in case they got confused. 343 ;; First, fixup the two overlays, in case they got confused.
344 (let ((main (oref field overlay)) 344 (let ((main (oref field overlay))