COMMIT APPROVE 21.5 RECOMMEND 21.4 Thanks Vin, for the gentle nudge. Adrian xemacs-21.5-clean ChangeLog patch: Diff command: cvs -q diff -U 0 Files affected: tests/ChangeLog Index: tests/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v retrieving revision 1.64 diff -u -U0 -r1.64 ChangeLog --- tests/ChangeLog 18 Feb 2005 06:31:22 -0000 1.64 +++ tests/ChangeLog 24 Feb 2005 23:01:13 -0000 ＠＠ -0,0 +1,4 ＠＠ +2005-02-25 Adrian Aichner <adrian(a)xemacs.org&gt; + + * automated/region-tests.el: Test regions and zmacs-regions. + xemacs-21.5-clean source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: tests/automated/region-tests.el Index: tests/automated/region-tests.el =================================================================== RCS file: tests/automated/region-tests.el diff -N tests/automated/region-tests.el --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ tests/automated/region-tests.el 24 Feb 2005 22:59:29 -0000 ＠＠ -0,0 +1,79 ＠＠ +;; Copyright (C) 2005 Adrian Aichner + +;; Author: Adrian Aichner <adrian(a)xemacs.org&gt; +;; Maintainer: XEmacs Beta List <xemacs-beta(a)xemacs.org&gt; +;; Created: 2005 +;; Keywords: tests + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Synched up with: Not in FSF. + +;;; Commentary: + +;;; Test region and zmacs-region functionality +;;; See test-harness.el + +(condition-case err + (require 'test-harness) + (file-error + (when (and (boundp 'load-file-name) (stringp load-file-name)) + (push (file-name-directory load-file-name) load-path) + (require 'test-harness)))) + +;; Active region testing, verifying functionality of +;; http://list-archive.xemacs.org/xemacs-patches/200502/msg00194.html +;; Message-ID: <zmxwtboa.fsf(a)smtprelay.t-online.de&gt; +(with-temp-buffer + ;; Using active regions + (let ((zmacs-regions t) + (first-buffer (current-buffer))) + (insert (buffer-name)) + (Assert (not (region-exists-p))) + (Assert (not (region-active-p))) + (mark-whole-buffer) + (Assert (region-exists-p)) + (Assert (region-active-p)) + ;; Turn off active regions + (setq zmacs-regions nil) + ;; Region still exists + (Assert (region-exists-p)) + ;; Region is no longer active + (Assert (not (region-active-p))) + ;; Turn active regions back on + (setq zmacs-regions t) + ;; Region still exists + (Assert (region-exists-p)) + ;; Region is active again + (Assert (region-active-p)) + (with-temp-buffer + (insert (buffer-name)) + ;; Region exists in first buffer, not this second one + (Assert (not (region-exists-p))) + ;; Region not active in this second temp buffer + (Assert (not (region-active-p))) + ;; Region still active in first temp buffer + (Assert (eq (zmacs-region-buffer) first-buffer)) + ;; Activate region in second temp buffer + (mark-whole-buffer) + ;; Region exists in second temp buffer + (Assert (region-exists-p)) + ;; Region active in second temp buffer + (Assert (region-active-p))) + ;; Second temp buffer no longer exists + (Assert (null (zmacs-region-buffer))))) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/