Remove some XEmacs compat code from tests

* test/lisp/cedet/srecode-utest-getset.el
(srecode-utest-getset-output):
* test/lisp/cedet/srecode-utest-template.el
(srecode-utest-template-output): Remove XEmacs compat code.
This commit is contained in:
Stefan Kangas 2021-01-13 15:17:44 +01:00
parent 6d467eb4d1
commit 118d6ef554
2 changed files with 1 additions and 6 deletions

View file

@ -128,7 +128,6 @@ private:
(srecode-utest-getset-jumptotag "miscFunction"))
(let ((pos (point)))
(skip-chars-backward " \t\n") ; xemacs forward-comment is different.
(forward-comment -1)
(re-search-forward "miscFunction" pos))

View file

@ -307,13 +307,9 @@ INSIDE SECTION: ARG HANDLER ONE")
(should (srecode-table major-mode))
;; Loop over the output testpoints.
(dolist (p srecode-utest-output-entries)
(set-buffer testbuff) ;; XEmacs causes a buffer switch. I don't know why
(should-not (srecode-utest-test p))
)
(should-not (srecode-utest-test p)))))
))
(when (file-exists-p srecode-utest-testfile)
(delete-file srecode-utest-testfile)))