From 118d6ef554e9e821925578d6ca6f3fd3d4cba780 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 13 Jan 2021 15:17:44 +0100 Subject: [PATCH] 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. --- test/lisp/cedet/srecode-utest-getset.el | 1 - test/lisp/cedet/srecode-utest-template.el | 6 +----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/test/lisp/cedet/srecode-utest-getset.el b/test/lisp/cedet/srecode-utest-getset.el index 0497dea505d..1c6578038c0 100644 --- a/test/lisp/cedet/srecode-utest-getset.el +++ b/test/lisp/cedet/srecode-utest-getset.el @@ -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)) diff --git a/test/lisp/cedet/srecode-utest-template.el b/test/lisp/cedet/srecode-utest-template.el index 57d8a648050..f97ff18320e 100644 --- a/test/lisp/cedet/srecode-utest-template.el +++ b/test/lisp/cedet/srecode-utest-template.el @@ -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))) -- 2.39.5