code.delx.au - gnu-emacs-elpa/blob - packages/realgud/test/bt-helper.el

   1 (require 'test-simple)
   2 (require 'font-lock)
   3
   4 (load-file "../realgud/common/buffer/command.el")
   5 (load-file "../realgud/common/buffer/backtrace.el")
   6 (load-file "../realgud/common/backtrace-mode.el")
   7
   8 (declare-function realgud-backtrace-mode 'realgud-backtrace-mode)
   9 (declare-function realgud-cmdbuf-init 'realgud-buffer-command)
  10
  11 (eval-when-compile
  12   (defvar temp-cmdbuf)
  13   (defvar temp-bt)
  14   (defvar realgud-pat-hash)
  15 )
  16
  17 (defun setup-bt-vars(debugger-name)
  18   "Sets up globals temp-cmdbuf and temp-bt with command buffer
  19 for DEBUGGER-NAME"
  20   (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
  21   (setq temp-bt (generate-new-buffer "*bt-test*"))
  22   (with-current-buffer temp-cmdbuf
  23     (switch-to-buffer temp-cmdbuf)
  24     (realgud-cmdbuf-init temp-cmdbuf debugger-name
  25                       (gethash debugger-name realgud-pat-hash))
  26
  27     (switch-to-buffer nil)
  28   ))
  29
  30
  31 (defun setup-bt(debugger-name string)
  32   "Sets up globals temp-cmdbuf and temp-bt with command buffer
  33 for DEBUGGER-NAME and initializes it to STRING"
  34   (setup-bt-vars debugger-name)
  35   (with-current-buffer temp-bt
  36     (realgud-backtrace-mode temp-cmdbuf)
  37     (goto-char (point-min))
  38     (setq buffer-read-only nil)
  39     (insert string)
  40     (font-lock-fontify-buffer)
  41     (goto-char (point-min))
  42     )
  43   temp-bt
  44 )
  45
  46 (provide 'realgud-bt-helper)