blob: bf9b94ed09a29d5168e0e7518e16ed418eadf57f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;;; Tests
(add-to-list 'load-path ".")
(require 'stack-core)
(require 'stack-question)
(setq
stack-tmp (stack-question-get-questions 'emacs)
stack-tmp-2 (stack-question-get-questions 'emacs 2))
(prog1 nil
(stack-message "%S" stack-tmp)
(stack-message "%S" stack-tmp-2))
(defun -stack--nuke ()
(interactive)
(mapatoms
(lambda (symbol)
(if (string-prefix-p "stack-" (symbol-name symbol))
(unintern symbol)))))
|
