diff options
Diffstat (limited to 'lisp/cedet/semantic/fw.el')
| -rw-r--r-- | lisp/cedet/semantic/fw.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index e36f3598c0f..0e81b2c0ba5 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -374,7 +374,7 @@ If FORMS includes a call to `semantic-throw-on-input', then if a user presses any key during execution, this form macro will exit with the value passed to `semantic-throw-on-input'. If FORMS completes, then the return value is the same as `progn'." - (declare (indent 1)) + (declare (indent 1) (debug def-body)) `(let ((semantic-current-input-throw-symbol ,symbol) (semantic--on-input-start-marker (point-marker))) (catch ,symbol @@ -388,10 +388,10 @@ calling this one." `(when (and semantic-current-input-throw-symbol (or (input-pending-p) (with-current-buffer - ;; Timers might run during accept-process-output. - ;; If they redisplay, point must be where the user - ;; expects. (Bug#15045) (marker-buffer semantic--on-input-start-marker) + ;; Timers might run during accept-process-output. + ;; If they redisplay, point must be where the user + ;; expects. (Bug#15045) (save-excursion (goto-char semantic--on-input-start-marker) (accept-process-output))))) @@ -448,12 +448,12 @@ into `mode-local-init-hook'." file filename) ;; (defmacro semanticdb-without-unloaded-file-searches (forms) "Execute FORMS with `unloaded' removed from the current throttle." + (declare (indent 1)) `(let ((semanticdb-find-default-throttle (if (featurep 'semantic/db-find) (remq 'unloaded semanticdb-find-default-throttle) nil))) ,forms)) -(put 'semanticdb-without-unloaded-file-searches 'lisp-indent-function 1) ;; ;;; Editor goodies ;-) @@ -520,12 +520,6 @@ into `mode-local-init-hook'." file filename) ;; (font-lock-add-keywords 'emacs-lisp-mode ;; semantic-fw-font-lock-keywords)) -;;; Interfacing with edebug -;; -(defun semantic-fw-add-edebug-spec () - (def-edebug-spec semantic-exit-on-input 'def-body)) - -(add-hook 'edebug-setup-hook 'semantic-fw-add-edebug-spec) (provide 'semantic/fw) |