The "flush" face property. -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2011-12-23 Didier Verna <didier@xemacs.org> * faces.h (struct Lisp_Face): New 'flush slot. * faces.h (struct face_cachel): New 'flush and 'flush_specified flags. * faces.h (WINDOW_FACE_CACHEL_FLUSH_P): * faces.h (FACE_FLUSH_P): New macros. * faces.c: Declare Qflush. * lisp.h: Externalize it. * faces.c (syms_of_faces): Define it. * faces.c (vars_of_faces): Update built-in face specifiers. * faces.c (complex_vars_of_faces): Update specifier fallbacks. * faces.c (mark_face): * faces.c (face_equal): * faces.c (face_getprop): * faces.c (face_putprop): * faces.c (face_remprop): * faces.c (face_plist): * faces.c (reset_face): * faces.c (update_face_inheritance_mapper): * faces.c (Fmake_face): * faces.c (update_face_cachel_data): * faces.c (merge_face_cachel_data): * faces.c (Fcopy_face): * fontcolor.c (face_boolean_validate): Handle the flush property. * redisplay.h (struct display_line): Rename 'default_findex slot to clearer name 'clear_findex. * redisplay.h (DISPLAY_LINE_INIT): Update accordingly. * redisplay-output.c (compare_display_blocks): * redisplay-output.c (output_display_line): * redisplay-output.c (redisplay_output_window): * redisplay.c (regenerate_window_extents_only_changed): * redisplay.c (regenerate_window_incrementally): Update the comparison tests between the current and desired display lines to cope for different 'clear_findex values. * redisplay.c (create_text_block): Initialize the display line's 'clear_findex slot to DEFAULT_INDEX. Record a new 'clear_findex value when we encounter a newline character displayed in a flushed face. * redisplay.c (create_string_text_block): Record a new 'clear_findex value when we encounter a newline character displayed in a flushed face. lisp/ChangeLog addition: 2011-12-23 Didier Verna <didier@xemacs.org> * cl-macs.el (face-flush-p): New defsetf. * faces.el (set-face-property): Document the flush property. * faces.el (face-flush-p): New function. * faces.el (set-face-flush-p): New function. * faces.el (face-equal): * cus-face.el (custom-face-attributes): * x-faces.el (x-init-face-from-resources): * x-faces.el (make-face-x-resource-internal): Handle the flush property.

: #-*- Perl -*-

# Create skeleton build tree
#
# Copyright (C) 2003 Ben Wing.
#
# 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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.
#
# Author: Ben Wing <ben@xemacs.org>
#
# Synched up with: Not in FSF.

eval 'exec perl -w -S $0 ${1+"$@"}'
    if 0;

use File::Copy;
use File::Basename;
use Cwd;

die "Creates a skeleton build tree for use with SOURCE_DIR in config.inc.

Usage: $0 PATH
" if ($#ARGV);

my $path = $ARGV[0];
# Sometimes perl sucks, too.  To get the equivalent of expand-file-name
# in a reliable way, you have to do really weird shit, it seems.
my $cwd = cwd ();
$0 =~ s|\\|/|g;
chdir (dirname ($0));
my $srcroot = dirname (cwd ());

# Convert the path to MS Windows format if we're running Cygwin Perl.
chomp ($srcroot = `cygpath -w $srcroot`) if ($^O eq "cygwin");
$srcroot =~ s|/|\\|g;

chdir ($cwd);

print "Creating skeleton build tree in $path\n";
mkdir $path if ! -e $path;
mkdir "$path/nt" if ! -e "$path/nt";
copy("$srcroot/nt/xemacs.mak", "$path/nt/xemacs.mak") if ! -e "$path/nt/xemacs.mak";

&HackFile ("config.inc.samp");
&HackFile ("config.inc") if -e "$srcroot/nt/config.inc";

sub HackFile
{
  my $file = $_[0];
  if (! -e "$path/nt/$file")
    {	
      open IN, "<$srcroot/nt/$file";
      open OUT, ">$path/nt/$file";

      while (<IN>)
	{
	  # Must hack away CRLF junk.  Perl sucks again.  Wouldn't it be
	  # nice if perl handled this right??  Really can't be that hard!!!
	  s/\r\n/\n/g;

	  # hack the SOURCE_DIR line to point back to the source.
	  s!^# SOURCE_DIR=.*!SOURCE_DIR=$srcroot!;

	  print OUT;
	}

      close IN;
      close OUT;
    }
}