diff options
| author | Tom Tromey | 2013-07-06 23:18:58 -0600 |
|---|---|---|
| committer | Tom Tromey | 2013-07-06 23:18:58 -0600 |
| commit | 6dacdad5fcb278e5a16b38bb81786aac9ca27be4 (patch) | |
| tree | f5f331ea361ba0f99e0f9b638d183ad492a7da31 /test/automated/python-tests.el | |
| parent | 0a6f2ff0c8ceb29703e76cddd46ea3f176dd873a (diff) | |
| parent | 219afb88d9d484393418820d1c08dc93299110ec (diff) | |
| download | emacs-6dacdad5fcb278e5a16b38bb81786aac9ca27be4.tar.gz emacs-6dacdad5fcb278e5a16b38bb81786aac9ca27be4.zip | |
merge from trunk
this merges frmo trunk and fixes various build issues.
this needed a few ugly tweaks.
this hangs in "make check" now
Diffstat (limited to 'test/automated/python-tests.el')
| -rw-r--r-- | test/automated/python-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/automated/python-tests.el b/test/automated/python-tests.el index 8462a863b84..40505cc7953 100644 --- a/test/automated/python-tests.el +++ b/test/automated/python-tests.el | |||
| @@ -39,7 +39,8 @@ always located at the beginning of buffer." | |||
| 39 | BODY is code to be executed within the temp buffer. Point is | 39 | BODY is code to be executed within the temp buffer. Point is |
| 40 | always located at the beginning of buffer." | 40 | always located at the beginning of buffer." |
| 41 | (declare (indent 1) (debug t)) | 41 | (declare (indent 1) (debug t)) |
| 42 | `(let* ((temp-file (concat (make-temp-file "python-tests") ".py")) | 42 | ;; temp-file never actually used for anything? |
| 43 | `(let* ((temp-file (make-temp-file "python-tests" nil ".py")) | ||
| 43 | (buffer (find-file-noselect temp-file))) | 44 | (buffer (find-file-noselect temp-file))) |
| 44 | (unwind-protect | 45 | (unwind-protect |
| 45 | (with-current-buffer buffer | 46 | (with-current-buffer buffer |
| @@ -47,7 +48,8 @@ always located at the beginning of buffer." | |||
| 47 | (insert ,contents) | 48 | (insert ,contents) |
| 48 | (goto-char (point-min)) | 49 | (goto-char (point-min)) |
| 49 | ,@body) | 50 | ,@body) |
| 50 | (and buffer (kill-buffer buffer))))) | 51 | (and buffer (kill-buffer buffer)) |
| 52 | (delete-file temp-file)))) | ||
| 51 | 53 | ||
| 52 | (defun python-tests-look-at (string &optional num restore-point) | 54 | (defun python-tests-look-at (string &optional num restore-point) |
| 53 | "Move point at beginning of STRING in the current buffer. | 55 | "Move point at beginning of STRING in the current buffer. |