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:
@@ -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))
|
||||
|
||||
|
||||
@@ -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)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user