diff options
| author | Joakim Verona | 2011-11-22 15:39:42 +0100 |
|---|---|---|
| committer | Joakim Verona | 2011-11-22 15:39:42 +0100 |
| commit | 40bb789236e486a3f36eefb2840c293369ce2af3 (patch) | |
| tree | 8e81d3aa5f232ec7f2c5187c683cb0998d2dc4e2 /lisp/cedet/srecode/fields.el | |
| parent | 62318aed495a48e24ff73fe79e420dd801df3189 (diff) | |
| parent | a8e1496d750ab0f571b3412ff61aaa4da640a036 (diff) | |
| download | emacs-40bb789236e486a3f36eefb2840c293369ce2af3.tar.gz emacs-40bb789236e486a3f36eefb2840c293369ce2af3.zip | |
upstream
Diffstat (limited to 'lisp/cedet/srecode/fields.el')
| -rw-r--r-- | lisp/cedet/srecode/fields.el | 4 |
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)) |