diff options
Diffstat (limited to 'test/src/comp-resources/comp-test-funcs.el')
| -rw-r--r-- | test/src/comp-resources/comp-test-funcs.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el index fff881dd595..73da7182a54 100644 --- a/test/src/comp-resources/comp-test-funcs.el +++ b/test/src/comp-resources/comp-test-funcs.el @@ -518,6 +518,19 @@ (defun comp-test-48029-nonascii-žžž-f (arg) (when arg t)) +(defun comp-test-62537-1-f ()) + +(defun comp-test-62537-2-f () + (when (let ((val (comp-test-62537-1-f))) + (cond + ((eq val 'x) + t) + ((eq val 'y) + 'y))) + (comp-test-62537-1-f)) + t) + + ;;;;;;;;;;;;;;;;;;;; ;; Tromey's tests ;; |