Mercurial > hg > xemacs-beta
comparison tests/redisplay-tests.el @ 448:3078fd1074e8 r21-2-39
Import from CVS: tag r21-2-39
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:38:25 +0200 |
| parents | |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 447:4fc5f13f3bd3 | 448:3078fd1074e8 |
|---|---|
| 1 ;; Copyright (C) 2000 Free Software Foundation, Inc. | |
| 2 | |
| 3 ;; Author: Yoshiki Hayashi <yoshiki@xemacs.org> | |
| 4 ;; Maintainer: Yoshiki Hayashi <yoshiki@xemacs.org> | |
| 5 ;; Created: 2000 | |
| 6 ;; Keywords: tests | |
| 7 | |
| 8 ;; This file is part of XEmacs. | |
| 9 | |
| 10 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 11 ;; under the terms of the GNU General Public License as published by | |
| 12 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 ;; any later version. | |
| 14 | |
| 15 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 18 ;; General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
| 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
| 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
| 23 ;; 02111-1307, USA. | |
| 24 | |
| 25 ;;; Synched up with: Not in FSF. | |
| 26 | |
| 27 ;;; Commentary: | |
| 28 | |
| 29 ;; Redisplay related tests. | |
| 30 | |
| 31 ;; This used to crash XEmacs. | |
| 32 (when (featurep 'mule) | |
| 33 (let ((buffer (generate-new-buffer "*split test*"))) | |
| 34 (set-window-buffer (selected-window) buffer) | |
| 35 (split-window-vertically) | |
| 36 (insert (make-char 'japanese-jisx0208 36 44)) | |
| 37 (backward-char) | |
| 38 (redraw-frame) | |
| 39 (delete-other-windows) | |
| 40 (split-window) | |
| 41 (kill-buffer buffer) | |
| 42 (delete-other-windows))) |