aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/srecode/fields.el
diff options
context:
space:
mode:
authorJoakim Verona2011-11-22 15:39:42 +0100
committerJoakim Verona2011-11-22 15:39:42 +0100
commit40bb789236e486a3f36eefb2840c293369ce2af3 (patch)
tree8e81d3aa5f232ec7f2c5187c683cb0998d2dc4e2 /lisp/cedet/srecode/fields.el
parent62318aed495a48e24ff73fe79e420dd801df3189 (diff)
parenta8e1496d750ab0f571b3412ff61aaa4da640a036 (diff)
downloademacs-40bb789236e486a3f36eefb2840c293369ce2af3.tar.gz
emacs-40bb789236e486a3f36eefb2840c293369ce2af3.zip
upstream
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))