diff options
Diffstat (limited to 'lisp/cedet')
-rw-r--r-- | lisp/cedet/semantic/edit.el | 8 | ||||
-rw-r--r-- | lisp/cedet/srecode/fields.el | 4 | ||||
-rw-r--r-- | lisp/cedet/srecode/insert.el | 4 |
3 files changed, 5 insertions, 11 deletions
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el index 7cb6768f7e1..4efc283520f 100644 --- a/lisp/cedet/semantic/edit.el +++ b/lisp/cedet/semantic/edit.el @@ -128,11 +128,9 @@ If nil, errors are still displayed, but informative messages are not." "Provide a mechanism for semantic tag management. Argument START, END, and LENGTH specify the bounds of the change." (setq semantic-unmatched-syntax-cache-check t) - (let ((inhibit-point-motion-hooks t) - ) - (save-match-data - (run-hook-with-args 'semantic-change-functions start end length) - ))) + (save-match-data + (run-hook-with-args 'semantic-change-functions start end length) + )) (defun semantic-changes-in-region (start end &optional buffer) "Find change overlays which exist in whole or in part between START and END. diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el index 2fc79d01a75..67ee82c73e0 100644 --- a/lisp/cedet/srecode/fields.el +++ b/lisp/cedet/srecode/fields.el @@ -334,9 +334,7 @@ START and END are the bounds of the change. PRE-LEN is used in the after mode for the length of the changed text." (when (and after (not undo-in-progress)) (let* ((field (overlay-get ol 'srecode)) - (inhibit-point-motion-hooks t) - (inhibit-modification-hooks t) - ) + (inhibit-modification-hooks t)) ;; Sometimes a field is deleted, but we might still get a stray ;; event. Let's just ignore those events. (when (slot-boundp field 'overlay) diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el index db17b7f23f8..f8cfe2a733e 100644 --- a/lisp/cedet/srecode/insert.el +++ b/lisp/cedet/srecode/insert.el @@ -125,9 +125,7 @@ has set everything up already." ;; I tried `combine-after-change-calls', but it did not have ;; the effect I wanted. (let ((start (point))) - (let ((inhibit-point-motion-hooks t) - (inhibit-modification-hooks t) - ) + (let ((inhibit-modification-hooks t)) (srecode--insert-into-buffer template dictionary) ) ;; Now call those after change functions. |