Mercurial > emacs
annotate lib-src/vcdiff @ 3076:e3b3c67cf203
Arrange for font names to get fully resolved - no wildcards.
* xfns.c (x_set_frame_parameters): Store the value in the frame
parameter alist before we call the setter function, so the setter
function can touch up the value if it chooses.
(x_set_foreground_color, x_set_background_color): Call
recompute_basic_faces, so their GC's will reflect the changes.
(x_new_font): Add extern declaration - this returns a Lisp_Object
now, the fully resolved font name.
(x_set_font): Accept the fully resolved name from x_new_font, and
put it in the frame's parameter alist. Call recompute_basic_faces.
* xterm.c (x_new_font): Return the fully resolved font name, Qnil
(if no match), or Qt (match, but unacceptable metrics).
* xterm.c (x_new_font): Don't call init_frame_faces.
* xterm.h: New section for declarations for xfaces.c.
(init_frame_faces, free_frame_faces, intern_face,
face_name_id_number, same_size_fonts, recompute_basic_faces,
compute_char_face, compute_glyph_face): Declare these here.
* xfaces.c (same_size_fonts): We can now remove this extern
declaration.
* xfns.c (face_name_id_number): Likewise.
* xterm.c (intern_face): Likewise.
* xterm.c (dumpglyphs): Remember that the default faces can have
null fonts, too.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 25 May 1993 14:04:12 +0000 |
parents | a95dc7876025 |
children | bfb5dd246441 |
rev | line source |
---|---|
928 | 1 #!/bin/sh |
2 # | |
3 # Enhanced sccs diff utility for use with vc mode. | |
4 # This version is more compatible with rcsdiff(1). | |
5 # | |
6 # $Id: vcdiff,v 1.2 1992/06/03 04:56:26 eric Exp $ | |
7 # | |
8 | |
9 DIFF="diff" | |
10 usage="$0: Usage: vcdiff [-r<sid1>] [-r<sid2>] [diffopts] sccsfile..." | |
11 | |
12 sid1=-r sid2= | |
13 | |
14 for f | |
15 do | |
16 case $f in | |
17 -*) | |
18 case $f in | |
19 -r?*) | |
20 case $sid1 in | |
21 -r) | |
22 sid1=$f | |
23 ;; | |
24 *) | |
25 case $sid2 in | |
26 ?*) echo "$usage" >&2; exit 2 ;; | |
27 esac | |
28 sid2=$f | |
29 ;; | |
30 esac | |
31 ;; | |
32 *) | |
33 options="$options $f" | |
34 ;; | |
35 esac | |
36 shift | |
37 ;; | |
38 *) | |
39 break | |
40 ;; | |
41 esac | |
42 done | |
43 | |
44 case $# in | |
45 0) | |
46 echo "$usage" >&2 | |
47 exit 2 | |
48 esac | |
49 | |
50 | |
51 rev1= rev2= status=0 | |
52 trap 'status=2; exit' 1 2 13 15 | |
53 trap 'rm -f $rev1 $rev2 || status=2; exit $status' 0 | |
54 | |
55 for f | |
56 do | |
57 s=2 | |
58 | |
59 case $f in | |
60 s.* | */s.*) | |
61 if | |
62 rev1=/tmp/geta$$ | |
63 get -s -p -k $sid1 "$f" > $rev1 && | |
64 case $sid2 in | |
65 '') | |
66 workfile=`expr " /$f" : '.*/s.\(.*\)'` | |
67 ;; | |
68 *) | |
69 rev2=/tmp/getb$$ | |
70 get -s -p -k $sid2 "$f" > $rev2 | |
71 workfile=$rev2 | |
72 esac | |
73 then | |
74 echo $DIFF $options $sid1 $sid2 $workfile >&2 | |
75 $DIFF $options $rev1 $workfile | |
76 s=$? | |
77 fi | |
78 ;; | |
79 *) | |
80 echo "$0: $f is not an SCCS file" >&2 | |
81 esac | |
82 | |
83 if test $status -lt $s | |
84 then status=$s | |
85 fi | |
86 done |