Mercurial > hg > xemacs-beta
annotate nt/make-build-dir @ 5855:0bddb59072b6
Look for cased character classes when deciding on case-fold-search, #'isearch
lisp/ChangeLog addition:
2015-03-11 Aidan Kehoe <kehoea@parhasard.net>
* isearch-mode.el:
* isearch-mode.el (isearch-fix-case):
Use the new #'no-case-regexp-p function if treating ISEARCH-STRING
as a regular expression; otherwise, use the [[:upper:]] character
class.
* isearch-mode.el (isearch-no-upper-case-p): Removed.
* isearch-mode.el (with-caps-disable-folding): Removed.
These two haven't been used since 1998.
* occur.el (occur-1):
Use #'no-case-regexp-p here.
* replace.el (perform-replace):
Don't use #'no-upper-case-p, use #'no-case-regexp-p or
(string-match "[[:upper:]]" ...) as appropriate.
* simple.el:
* simple.el (no-upper-case-p): Removed. This did two different
things, and its secondary function (examining regular expressions)
just became much more complicated; move the regular expression
functionality to its own function, use character classes when
examining non-regular-expressions instead.
The code to look for character classes, and the design decision
that this should be done, are from GNU, thank you Stefan Monnier.
* simple.el (no-case-regexp-p): New.
Given a REGEXP, return non-nil if it has nothing to suggest an
interactive user wants a case-sensitive search.
* simple.el (with-search-caps-disable-folding):
* simple.el (with-interactive-search-caps-disable-folding):
Update both these macros to use #'no-case-regexp-p.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 11 Mar 2015 18:06:15 +0000 |
parents | 308d34e9f07d |
children |
rev | line source |
---|---|
1330 | 1 : #-*- Perl -*- |
2 | |
3 # Create skeleton build tree | |
4 # | |
5 # Copyright (C) 2003 Ben Wing. | |
6 # | |
7 # This file is part of XEmacs. | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
8 # |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
9 # XEmacs is free software: you can redistribute it and/or modify it |
1330 | 10 # under the terms of the GNU General Public License as published by the |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
11 # Free Software Foundation, either version 3 of the License, or (at your |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
12 # option) any later version. |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
13 # |
1330 | 14 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
15 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
16 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
17 # for more details. | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
18 # |
1330 | 19 # You should have received a copy of the GNU General Public License |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
20 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
1330 | 21 # |
22 # Author: Ben Wing <ben@xemacs.org> | |
23 # | |
24 # Synched up with: Not in FSF. | |
25 | |
26 eval 'exec perl -w -S $0 ${1+"$@"}' | |
27 if 0; | |
28 | |
29 use File::Copy; | |
30 use File::Basename; | |
31 use Cwd; | |
32 | |
33 die "Creates a skeleton build tree for use with SOURCE_DIR in config.inc. | |
34 | |
35 Usage: $0 PATH | |
36 " if ($#ARGV); | |
37 | |
38 my $path = $ARGV[0]; | |
39 # Sometimes perl sucks, too. To get the equivalent of expand-file-name | |
40 # in a reliable way, you have to do really weird shit, it seems. | |
41 my $cwd = cwd (); | |
42 $0 =~ s|\\|/|g; | |
43 chdir (dirname ($0)); | |
44 my $srcroot = dirname (cwd ()); | |
45 | |
46 # Convert the path to MS Windows format if we're running Cygwin Perl. | |
47 chomp ($srcroot = `cygpath -w $srcroot`) if ($^O eq "cygwin"); | |
48 $srcroot =~ s|/|\\|g; | |
49 | |
50 chdir ($cwd); | |
51 | |
52 print "Creating skeleton build tree in $path\n"; | |
53 mkdir $path if ! -e $path; | |
54 mkdir "$path/nt" if ! -e "$path/nt"; | |
55 copy("$srcroot/nt/xemacs.mak", "$path/nt/xemacs.mak") if ! -e "$path/nt/xemacs.mak"; | |
56 | |
57 &HackFile ("config.inc.samp"); | |
58 &HackFile ("config.inc") if -e "$srcroot/nt/config.inc"; | |
59 | |
60 sub HackFile | |
61 { | |
62 my $file = $_[0]; | |
63 if (! -e "$path/nt/$file") | |
64 { | |
65 open IN, "<$srcroot/nt/$file"; | |
66 open OUT, ">$path/nt/$file"; | |
67 | |
68 while (<IN>) | |
69 { | |
70 # Must hack away CRLF junk. Perl sucks again. Wouldn't it be | |
71 # nice if perl handled this right?? Really can't be that hard!!! | |
72 s/\r\n/\n/g; | |
73 | |
74 # hack the SOURCE_DIR line to point back to the source. | |
75 s!^# SOURCE_DIR=.*!SOURCE_DIR=$srcroot!; | |
76 | |
77 print OUT; | |
78 } | |
79 | |
80 close IN; | |
81 close OUT; | |
82 } | |
83 } |