February 2005 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by adrian ADDED: xemacs/tests/automated region-tests.el 19 years, 2 months

CVS Monitor

User: adrian Date: 05/02/25 00:02:37 Added: xemacs/tests/automated region-tests.el Log: xemacs-21.5-clean: Add tests\automated\region-tests.el to test region-active-p fix -------------------- ChangeLog entries follow: -------------------- tests/ChangeLog addition: 2005-02-25 Adrian Aichner <adrian(a)xemacs.org> * automated/region-tests.el: Test regions and zmacs-regions. Revision Changes Path 1.65 +4 -0 XEmacs/xemacs/tests/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v retrieving revision 1.64 retrieving revision 1.65 diff -u -r1.64 -r1.65 --- ChangeLog 2005/02/18 06:31:22 1.64 +++ ChangeLog 2005/02/24 23:02:32 1.65 ＠＠ -1,3 +1,7 ＠＠ +2005-02-25 Adrian Aichner <adrian(a)xemacs.org> + + * automated/region-tests.el: Test regions and zmacs-regions. + 2005-02-18 Stephen J. Turnbull <stephen(a)xemacs.org> * XEmacs 21.5.19 "chives" is released. 1.1 XEmacs/xemacs/tests/automated/region-tests.el Index: region-tests.el =================================================================== ;; Copyright (C) 2005 Adrian Aichner ;; Author: Adrian Aichner <adrian(a)xemacs.org> ;; Maintainer: XEmacs Beta List <xemacs-beta(a)xemacs.org> ;; 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> (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)))))

1 participants
0 comments

CVS update by viteno MODIFIED: xemacs ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/02/24 23:51:10 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1078 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1077 retrieving revision 1.1078 diff -u -r1.1077 -r1.1078 --- version.sh 2005/02/23 22:51:09 1.1077 +++ version.sh 2005/02/24 22:51:09 1.1078 ＠＠ -8,5 +8,5 ＠＠ infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20050223)" +xemacs_extra_name="(+CVS-20050224)" xemacs_release_date="2005-02-18"

1 participants
0 comments

CVS update by stephent MODIFIED: xemacs/src ... 19 years, 2 months

CVS Monitor

User: stephent Date: 05/02/24 12:08:30 Modified: xemacs/src Tag: sjt-xft ChangeLog objects-x.c Log: fix FcConfigSubstitute call <877jkyw70y.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path No revision No revision 1.758.2.15 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.758.2.14 retrieving revision 1.758.2.15 diff -u -r1.758.2.14 -r1.758.2.15 --- ChangeLog 2005/02/24 09:32:25 1.758.2.14 +++ ChangeLog 2005/02/24 11:08:24 1.758.2.15 ＠＠ -1,5 +1,10 ＠＠ 2005-02-24 Stephen J. Turnbull <stephen(a)xemacs.org> + * objects-x.c (x_find_charset_font): ConfigSubstitute in the + _pattern_ before matching. + +2005-02-24 Stephen J. Turnbull <stephen(a)xemacs.org> + * faces.c (complex_vars_of_faces): Default to monospace-12 for Xft. (Suggestion by Aidan Kehoe.) 1.26.2.9 +11 -6 XEmacs/xemacs/src/objects-x.c Index: objects-x.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x.c,v retrieving revision 1.26.2.8 retrieving revision 1.26.2.9 diff -u -r1.26.2.8 -r1.26.2.9 --- objects-x.c 2005/02/21 08:43:33 1.26.2.8 +++ objects-x.c 2005/02/24 11:08:27 1.26.2.9 ＠＠ -1059,14 +1059,12 ＠＠ FcChar8 *lang = "en"; fcc = FcConfigGetCurrent (); patternxft = FcNameParse (patternext); - /* #### Next four return FcBool, but what does the return mean? */ - /* #### There's probably a way to do this with FcCharsets, but isn't - the language approach better in the long run? */ - /* #### can we regression test this, or does it break too early? */ if (debug_xft > 1) stderr_out ("FcNameParse'ed name is %s\n", FcNameUnparse (patternxft)); - FcConfigSubstitute (fcc, patternxft, FcMatchFont); + /* #### Next two return FcBool, but what does the return mean? */ + /* #### I wonder if the order of the next two should be reversed. */ + FcConfigSubstitute (fcc, patternxft, FcMatchPattern); if (debug_xft > 1) stderr_out ("FcConfigSubstitute'ed name is %s\n", FcNameUnparse (patternxft)); ＠＠ -1074,6 +1072,14 ＠＠ if (debug_xft > 0) stderr_out ("FcDefaultSubstitute'ed name is %s\n", FcNameUnparse (patternxft)); + patternxft = FcFontMatch (fcc, patternxft, &fcresult); + if (debug_xft > 0) + stderr_out ("FcFontMatch'ed name is %s\n", + FcNameUnparse (patternxft)); + + /* #### There's probably a way to do this with FcCharsets, but isn't + the language approach better in the long run? */ + /* #### can we regression test this, or does it break too early? */ if (EQ (charset, Fget_charset (intern ("katakana-jisx0201"))) || EQ (charset, Fget_charset (intern ("japanese-jisx0208"))) || EQ (charset, Fget_charset (intern ("japanese-jisx0212")))) ＠＠ -1097,7 +1103,6 ＠＠ /* default to "en" */ } - patternxft = FcFontMatch (fcc, patternxft, &fcresult); /* #### stderr_out crashed in the next block; why? probably because FcTypeOfValueToString below didn't get an argument!! Fixed now, but watch for crashes. */

1 participants
0 comments

CVS update by stephent MODIFIED: xemacs/src ... 19 years, 2 months

CVS Monitor

User: stephent Date: 05/02/24 10:32:31 Modified: xemacs/src Tag: sjt-xft ChangeLog faces.c Log: sane default to monospace-12 <87d5uqwbgt.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path No revision No revision 1.758.2.14 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.758.2.13 retrieving revision 1.758.2.14 diff -u -r1.758.2.13 -r1.758.2.14 --- ChangeLog 2005/02/24 05:24:38 1.758.2.13 +++ ChangeLog 2005/02/24 09:32:25 1.758.2.14 ＠＠ -1,3 +1,8 ＠＠ +2005-02-24 Stephen J. Turnbull <stephen(a)xemacs.org> + + * faces.c (complex_vars_of_faces): Default to monospace-12 for + Xft. (Suggestion by Aidan Kehoe.) + 2005-02-24 Hrvoje Niksic <hniksic(a)xemacs.org> * xgccache.h (XE_GCONTEXT): Move out of DEBUG_XEMACS block. 1.43.2.3 +3 -3 XEmacs/xemacs/src/faces.c Index: faces.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/faces.c,v retrieving revision 1.43.2.2 retrieving revision 1.43.2.3 diff -u -r1.43.2.2 -r1.43.2.3 --- faces.c 2005/02/01 15:46:53 1.43.2.2 +++ faces.c 2005/02/24 09:32:27 1.43.2.3 ＠＠ -2016,10 +2016,10 ＠＠ #ifdef USE_XFT /************** Xft fonts *************/ - /* Blow me! there really doesn't seem to a standard Xft font. - Note that fontconfig can search for several font families in one + /* Note that fontconfig can search for several font families in one call. We should use this facility. */ - "Courier-12", /* Western #### add encoding info? */ + "monospace-12", /* Western #### add encoding info? */ + /* do we need to worry about non-Latin characters for monospace? */ "Sazanami Mincho-12", /* Japanese #### add encoding info? */ /* Arphic for Chinese? */ /* Korean */

1 participants
0 comments

CVS update by stephent MODIFIED: xemacs/src ... 19 years, 2 months

CVS Monitor

User: stephent Date: 05/02/24 06:24:47 Modified: xemacs/src Tag: sjt-xft ChangeLog xgccache.h Log: fix disable-debug build <878y5f84ga.fsf(a)xemacs.org> Revision Changes Path No revision No revision 1.758.2.13 +4 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.758.2.12 retrieving revision 1.758.2.13 diff -u -r1.758.2.12 -r1.758.2.13 --- ChangeLog 2005/02/22 13:03:08 1.758.2.12 +++ ChangeLog 2005/02/24 05:24:38 1.758.2.13 ＠＠ -1,3 +1,7 ＠＠ +2005-02-24 Hrvoje Niksic <hniksic(a)xemacs.org> + + * xgccache.h (XE_GCONTEXT): Move out of DEBUG_XEMACS block. + 2005-02-22 Stephen J. Turnbull <stephen(a)xemacs.org> * xft-fonts.c (debug_xft): Suppress all debug output for now. 1.2.20.2 +2 -1 XEmacs/xemacs/src/xgccache.h Index: xgccache.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xgccache.h,v retrieving revision 1.2.20.1 retrieving revision 1.2.20.2 diff -u -r1.2.20.1 -r1.2.20.2 --- xgccache.h 2004/11/25 12:44:19 1.2.20.1 +++ xgccache.h 2005/02/24 05:24:42 1.2.20.2 ＠＠ -31,9 +31,10 ＠＠ void free_gc_cache (struct gc_cache *cache); GC gc_cache_lookup (struct gc_cache *, XGCValues *, unsigned long mask); +#define XE_GCONTEXT(cell) (XGContextFromGC(cell->gc)) + #ifdef DEBUG_XEMACS -#define XE_GCONTEXT(cell) (XGContextFromGC(cell->gc)) void describe_gc_cache (struct gc_cache *cache, int flags); #define DGCCFLAG_DISABLE 0

1 participants
0 comments

CVS update by vins MODIFIED: xemacs/man/lispref ... 19 years, 2 months

CVS Monitor

User: vins Date: 05/02/24 04:06:20 Modified: xemacs/man/lispref Tag: release-21-4 searching.texi Log: Fix region-active-p and add \c to searching regexp doc. Revision Changes Path No revision No revision 1.266.2.82 +9 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.266.2.81 retrieving revision 1.266.2.82 diff -u -r1.266.2.81 -r1.266.2.82 --- ChangeLog 2005/02/23 01:54:26 1.266.2.81 +++ ChangeLog 2005/02/24 03:06:06 1.266.2.82 ＠＠ -1,3 +1,12 ＠＠ +2005-02-23 Adrian Aichner <adrian(a)xemacs.org> + + * cmdloop.el (keyboard-quit): Remove workaround for + `region-active-p' not making sure active region is in current + buffer now that it does. + * minibuf.el (minibuffer-keyboard-quit): Ditto. + * simple.el (region-active-p): `region-active-p' to only return t + when active region is in current buffer. + 2005-02-21 Norbert Koch <viteno(a)xemacs.org> * package-ui.el (pui-list-packages): MF21.5, adapt to longer 1.10.2.3 +1 -2 XEmacs/xemacs/lisp/cmdloop.el Index: cmdloop.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v retrieving revision 1.10.2.2 retrieving revision 1.10.2.3 diff -u -r1.10.2.2 -r1.10.2.3 --- cmdloop.el 2004/07/07 02:25:48 1.10.2.2 +++ cmdloop.el 2005/02/24 03:06:08 1.10.2.3 ＠＠ -70,8 +70,7 ＠＠ If `zmacs-regions' is true, and the zmacs region is active in this buffer, then this key deactivates the region without beeping or signalling." (interactive) - (if (and (region-active-p) - (eq (current-buffer) (zmacs-region-buffer))) + (if (region-active-p) ;; pseudo-zmacs compatibility: don't beep if this ^G is simply ;; deactivating the region. If it is inactive, beep. nil 1.19.2.3 +1 -2 XEmacs/xemacs/lisp/minibuf.el Index: minibuf.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/minibuf.el,v retrieving revision 1.19.2.2 retrieving revision 1.19.2.3 diff -u -r1.19.2.2 -r1.19.2.3 --- minibuf.el 2002/04/30 16:05:46 1.19.2.2 +++ minibuf.el 2005/02/24 03:06:08 1.19.2.3 ＠＠ -271,8 +271,7 ＠＠ If `zmacs-regions' is true, and the zmacs region is active in this buffer, then this key deactivates the region without beeping." (interactive) - (if (and (region-active-p) - (eq (current-buffer) (zmacs-region-buffer))) + (if (region-active-p) ;; pseudo-zmacs compatibility: don't beep if this ^G is simply ;; deactivating the region. If it is inactive, beep. nil 1.31.2.6 +3 -2 XEmacs/xemacs/lisp/simple.el Index: simple.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v retrieving revision 1.31.2.5 retrieving revision 1.31.2.6 diff -u -r1.31.2.5 -r1.31.2.6 --- simple.el 2005/01/18 03:31:07 1.31.2.5 +++ simple.el 2005/02/24 03:06:08 1.31.2.6 ＠＠ -3898,7 +3898,7 ＠＠ ;; XEmacs (defun region-active-p () - "Return non-nil if the region is active. + "Return non-nil if the region is active in the current buffer. If `zmacs-regions' is true, this is equivalent to `region-exists-p'. Otherwise, this function always returns false. ＠＠ -3908,7 +3908,8 ＠＠ [ ... ... :active (region-exists-p)] Which correctly caters to the user's setting of `zmacs-regions'." - (and zmacs-regions zmacs-region-extent)) + (and zmacs-regions zmacs-region-extent + (eq (current-buffer) (zmacs-region-buffer)))) (defvar zmacs-activate-region-hook nil "Function or functions called when the region becomes active; No revision No revision 1.116.2.57 +6 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.116.2.56 retrieving revision 1.116.2.57 diff -u -r1.116.2.56 -r1.116.2.57 --- ChangeLog 2005/02/23 01:54:32 1.116.2.56 +++ ChangeLog 2005/02/24 03:06:17 1.116.2.57 ＠＠ -1,3 +1,9 ＠＠ +2005-02-23 Aidan Kehoe <kehoea(a)parhasard.net> + + * lispref/searching.texi (Syntax of Regexps): + Mention the \c and \C regular expression constructs; cross + reference to the Category Table documentation. + 2005-02-22 Stephen J. Turnbull <stephen(a)xemacs.org> * lispref/glyphs.texi: Complete reorganization, some content updated. No revision No revision 1.9.2.2 +13 -0 XEmacs/xemacs/man/lispref/searching.texi Index: searching.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/lispref/searching.texi,v retrieving revision 1.9.2.1 retrieving revision 1.9.2.2 diff -u -r1.9.2.1 -r1.9.2.2 --- searching.texi 2004/09/23 03:03:00 1.9.2.1 +++ searching.texi 2005/02/24 03:06:19 1.9.2.2 ＠＠ -516,6 +516,19 ＠＠＠item \S＠var{code} ＠cindex ＠samp{\S} in regexp matches any character whose syntax is not ＠var{code}. + +＠item \c＠var{category} +＠cindex ＠samp{\c} in regexp +matches any character in ＠var{category}. Only available under Mule, +categories, and category tables, are further described in ＠ref{Category +Tables}. They are a mechanism for constructing classes of characters +that can be local to a buffer, and that do not require complicated [] +expressions every time they are referenced. + +＠item \C＠var{category} +＠cindex ＠samp{\C} in regexp +matches any character outside ＠var{category}. ＠xref{Category Tables}, +again, and note that this is only available under Mule. ＠end table The following regular expression constructs match the empty string---that is,

1 participants
0 comments

CVS update by viteno MODIFIED: xemacs ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/02/23 23:51:10 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1077 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1076 retrieving revision 1.1077 diff -u -r1.1076 -r1.1077 --- version.sh 2005/02/22 22:52:03 1.1076 +++ version.sh 2005/02/23 22:51:09 1.1077 ＠＠ -8,5 +8,5 ＠＠ infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20050222)" +xemacs_extra_name="(+CVS-20050223)" xemacs_release_date="2005-02-18"

1 participants
0 comments

CVS update by adrian MODIFIED: xemacs/lisp ... 19 years, 2 months

CVS Monitor

User: adrian Date: 05/02/23 23:25:18 Modified: xemacs/lisp ChangeLog cmdloop.el minibuf.el simple.el Log: [PATCH] xemacs-21.5-clean: `region-active-p' to only return t when <zmxwtboa.fsf(a)smtprelay.t-online.de> Revision Changes Path 1.646 +9 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.645 retrieving revision 1.646 diff -u -r1.645 -r1.646 --- ChangeLog 2005/02/23 22:09:13 1.645 +++ ChangeLog 2005/02/23 22:25:15 1.646 ＠＠ -1,3 +1,12 ＠＠ +2005-02-23 Adrian Aichner <adrian(a)xemacs.org> + + * cmdloop.el (keyboard-quit): Remove workaround for + `region-active-p' not making sure active region is in current + buffer now that it does. + * minibuf.el (minibuffer-keyboard-quit): Ditto. + * simple.el (region-active-p): `region-active-p' to only return t + when active region is in current buffer. + 2005-02-20 Adrian Aichner <adrian(a)xemacs.org> * replace.el (operate-on-non-matching-lines): Append matching 1.17 +1 -2 XEmacs/xemacs/lisp/cmdloop.el Index: cmdloop.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v retrieving revision 1.16 retrieving revision 1.17 diff -u -r1.16 -r1.17 --- cmdloop.el 2003/05/02 06:32:29 1.16 +++ cmdloop.el 2005/02/23 22:25:16 1.17 ＠＠ -72,8 +72,7 ＠＠ If `zmacs-regions' is true, and the zmacs region is active in this buffer, then this key deactivates the region without beeping or signalling." (interactive) - (if (and (region-active-p) - (eq (current-buffer) (zmacs-region-buffer))) + (if (region-active-p) ;; pseudo-zmacs compatibility: don't beep if this ^G is simply ;; deactivating the region. If it is inactive, beep. nil 1.28 +1 -2 XEmacs/xemacs/lisp/minibuf.el Index: minibuf.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/minibuf.el,v retrieving revision 1.27 retrieving revision 1.28 diff -u -r1.27 -r1.28 --- minibuf.el 2005/01/28 02:58:40 1.27 +++ minibuf.el 2005/02/23 22:25:16 1.28 ＠＠ -271,8 +271,7 ＠＠ If `zmacs-regions' is true, and the zmacs region is active in this buffer, then this key deactivates the region without beeping." (interactive) - (if (and (region-active-p) - (eq (current-buffer) (zmacs-region-buffer))) + (if (region-active-p) ;; pseudo-zmacs compatibility: don't beep if this ^G is simply ;; deactivating the region. If it is inactive, beep. nil 1.50 +3 -2 XEmacs/xemacs/lisp/simple.el Index: simple.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v retrieving revision 1.49 retrieving revision 1.50 diff -u -r1.49 -r1.50 --- simple.el 2005/01/17 11:23:01 1.49 +++ simple.el 2005/02/23 22:25:16 1.50 ＠＠ -3795,7 +3795,7 ＠＠ ;; XEmacs (defun region-active-p () - "Return non-nil if the region is active. + "Return non-nil if the region is active in the current buffer. If `zmacs-regions' is true, this is equivalent to `region-exists-p'. Otherwise, this function always returns false. ＠＠ -3805,7 +3805,8 ＠＠ [ ... ... :active (region-exists-p)] Which correctly caters to the user's setting of `zmacs-regions'." - (and zmacs-regions zmacs-region-extent)) + (and zmacs-regions zmacs-region-extent + (eq (current-buffer) (zmacs-region-buffer)))) (defvar zmacs-activate-region-hook nil "Function or functions called when the region becomes active;

1 participants
0 comments

CVS update by adrian MODIFIED: xemacs/lisp ... 19 years, 2 months

CVS Monitor

User: adrian Date: 05/02/23 23:09:16 Modified: xemacs/lisp ChangeLog replace.el Log: [PATCH] xemacs-21.5-clean: Avoid prohibitive string consing and GC <r7j8tbas.fsf(a)smtprelay.t-online.de> Revision Changes Path 1.645 +7 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.644 retrieving revision 1.645 diff -u -r1.644 -r1.645 --- ChangeLog 2005/02/22 23:38:49 1.644 +++ ChangeLog 2005/02/23 22:09:13 1.645 ＠＠ -1,3 +1,10 ＠＠ +2005-02-20 Adrian Aichner <adrian(a)xemacs.org> + + * replace.el (operate-on-non-matching-lines): Append matching + lines to temp buffer to avoid prohibitive GC as a result of + enormous string consing. + * replace.el (operate-on-matching-lines): Ditto. + 2005-02-21 Ben Wing <ben(a)xemacs.org> * glyphs.el: 1.11 +24 -20 XEmacs/xemacs/lisp/replace.el Index: replace.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/replace.el,v retrieving revision 1.10 retrieving revision 1.11 diff -u -r1.10 -r1.11 --- replace.el 2003/05/12 05:12:10 1.10 +++ replace.el 2005/02/23 22:09:15 1.11 ＠＠ -247,7 +247,9 ＠＠ (let ((matched-text nil) (curmatch-start (point)) - (limit (copy-marker (point-max)))) + (limit (copy-marker (point-max))) + (matched-text-buffer (generate-new-buffer " *matched-text*")) + lines-matched) ;; Limit search if limits were specified. (when end (setq limit (copy-marker end))) ＠＠ -259,32 +261,33 ＠＠ ;; curmatch-start is first char not preserved by previous match. (if (not (re-search-forward regexp limit 'move)) (let ((curmatch-end limit)) - (setq matched-text (concat matched-text (buffer-substring curmatch-start curmatch-end))) + (append-to-buffer matched-text-buffer curmatch-start curmatch-end) (if delete (delete-region curmatch-start curmatch-end))) (let ((curmatch-end (save-excursion (goto-char (match-beginning 0)) - (beginning-of-line) - (point)))) + (beginning-of-line) + (point)))) ;; Now curmatch-end is first char preserved by the new match. (if (< curmatch-start curmatch-end) (progn - (setq matched-text (concat matched-text (buffer-substring curmatch-start curmatch-end))) + (append-to-buffer matched-text-buffer curmatch-start curmatch-end) (if delete (delete-region curmatch-start curmatch-end)))))) (setq curmatch-start (save-excursion (forward-line 1) - (point))) + (point))) ;; If the match was empty, avoid matching again at same place. (and (not (eobp)) (= (match-beginning 0) (match-end 0)) (forward-char 1))) ;; If any lines were matched and KILL is non-nil, insert the ;; matched lines into the kill ring. + (setq matched-text (buffer-string matched-text-buffer)) (if (and matched-text kill) (kill-new matched-text)) ;; Return the number of matched lines. - (with-temp-buffer - ;; Use concat to make a string even if matched-text is nil. - (insert (concat matched-text)) - (count-lines (point-min) (point-max))) - )))) + (setq lines-matched + (with-current-buffer matched-text-buffer + (count-lines (point-min) (point-max)))) + (kill-buffer matched-text-buffer) + lines-matched)))) (define-function 'keep-lines 'delete-non-matching-lines) (defun delete-non-matching-lines (regexp) ＠＠ -358,8 +361,9 ＠＠ (let ((matched-text nil) (curmatch-start nil) (curmatch-end nil) - (limit nil)) - + (limit nil) + (matched-text-buffer (generate-new-buffer " *matched-text*")) + lines-matched) ;; Limit search if limits were specified. (when beg (goto-char beg)) (when end (setq limit (copy-marker end))) ＠＠ -370,17 +374,17 ＠＠ (beginning-of-line) (point))) (setq curmatch-end (progn (forward-line 1) (point))) - (setq matched-text (concat matched-text (buffer-substring curmatch-start curmatch-end))) + (append-to-buffer matched-text-buffer curmatch-start curmatch-end) (if delete (delete-region curmatch-start curmatch-end))) - + (setq matched-text (buffer-string matched-text-buffer)) (if (and matched-text kill) (kill-new matched-text)) ;; Return the number of matched lines. - (with-temp-buffer - ;; Use concat to make a string even if matched-text is nil. - (insert (concat matched-text)) - (count-lines (point-min) (point-max))) - )))) + (setq lines-matched + (with-current-buffer matched-text-buffer + (count-lines (point-min) (point-max)))) + (kill-buffer matched-text-buffer) + lines-matched)))) (define-function 'flush-lines 'delete-matching-lines) (defun delete-matching-lines (regexp)

1 participants
0 comments

CVS update by adrian MODIFIED: xemacs/info ... 19 years, 2 months

CVS Monitor

User: adrian Date: 05/02/23 19:56:45 Modified: xemacs/info dir Log: [PATCH] xemacs-21.5-clean: Update info/dir to content generated by <8y5gus08.fsf(a)smtprelay.t-online.de> Revision Changes Path 1.438 +4 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.437 retrieving revision 1.438 diff -u -r1.437 -r1.438 --- ChangeLog 2005/02/22 07:15:59 1.437 +++ ChangeLog 2005/02/23 18:56:41 1.438 ＠＠ -1,3 +1,7 ＠＠ +2005-02-22 Adrian Aichner <adrian(a)xemacs.org> + + * info/dir: Update to content generated by Info-rebuild-dir. + 2005-02-21 Stephen J. Turnbull <stephen(a)xemacs.org> * version.sh (XEMACS_RELEASE_DATE): New version info variable. 1.34 +16 -16 XEmacs/xemacs/info/dir Index: dir =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/info/dir,v retrieving revision 1.33 retrieving revision 1.34 diff -u -r1.33 -r1.34 --- dir 2002/11/11 14:19:11 1.33 +++ dir 2005/02/23 18:56:44 1.34 ＠＠ -36,23 +36,23 ＠＠ XEmacs 21.5 =========== -* XEmacs:: XEmacs User's Manual. -* Lispref:: XEmacs Lisp Reference Manual. -* New-Users-Guide:: Getting Started with XEmacs. -* XEmacs-FAQ:: XEmacs Frequently Asked Questions for 21.4. -* Info:: Guide to Info, the XEmacs online documentation system. -* Internals:: Guide to the internals of XEmacs. +* XEmacs: (xemacs). XEmacs Editor. +* Lispref: (lispref). XEmacs Lisp Reference Manual. +* Intro: (new-users-guide). Introduction to the XEmacs Editor. +* FAQ: (xemacs-faq). XEmacs FAQ. +* Info: (info). Documentation browsing system. +* Internals: (internals). XEmacs Internals Manual. + Other Documentation: -* CL:: A Common Lisp compatibility package for Emacs-Lisp. -* Custom:: Customization Library for Emacs. -* Emodules:: XEmacs dynamically loadable module support. -* External-Widget:: Use XEmacs as a text widget inside of another program. -* Standards:: GNU coding standards. -* Term:: A mode to control inferior processes (a comint replacement) -* Termcap:: The termcap library, which enables application programs - to handle all types of character-display terminals. -* Texinfo:: The GNU documentation format. -* Widget:: An Emacs Lisp widget library. +* Common Lisp: (cl). XEmacs Common Lisp emulation package. +* Customizations: (custom). Customization Library. +* Emodules: (emodules). XEmacs dynamically loadable module support. +* External Widget: (external-widget). External Client Widget. +* Standards: (standards). GNU coding standards. +* Term mode: (term). XEmacs Terminal Emulator Mode. +* Termcap: (termcap). Termcap library of the GNU system. +* Texinfo: (texinfo). The GNU documentation format. +* Widgets: (widget). The Emacs Widget Library.

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

xemacs-cvs February 2005