diff options
Diffstat (limited to 'lisp/progmodes/prolog.el')
| -rw-r--r-- | lisp/progmodes/prolog.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 352f3785c05..3767dbaa1e8 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -2617,6 +2617,8 @@ and end of list building." (goto-char (point-max)) ) +(declare-function pltrace-on "ext:pltrace" ()) + (defun prolog-enable-sicstus-sd () "Enable the source level debugging facilities of SICStus 3.7 and later." (interactive) @@ -2627,21 +2629,22 @@ and end of list building." (progn ;; If there is a *prolog* buffer, then call pltrace-on (if (get-buffer "*prolog*") - ;; Avoid compilation warnings by using eval - (eval '(pltrace-on))) + (pltrace-on)) (setq prolog-use-sicstus-sd t) ))) +(declare-function pltrace-off "ext:pltrace" (&optional remove-process-filter)) + (defun prolog-disable-sicstus-sd () "Disable the source level debugging facilities of SICStus 3.7 and later." (interactive) + (require 'pltrace) (setq prolog-use-sicstus-sd nil) ;; Remove the hook (remove-hook 'prolog-inferior-mode-hook 'pltrace-on) ;; If there is a *prolog* buffer, then call pltrace-off (if (get-buffer "*prolog*") - ;; Avoid compile warnings by using eval - (eval '(pltrace-off)))) + (pltrace-off))) (defun prolog-toggle-sicstus-sd () ;; FIXME: Use define-minor-mode. |