Mercurial > emacs
annotate oldXMenu/ChgPane.c @ 88886:300f83fb46e1
Include "coding.h".
(Qget_emacs_mule_file_char, Qload_force_doc_strings,
load_each_byte, unread_char): New variables.
(readchar_backlog): This variable deleted.
(readchar): Return a character unless load_each_byte is nonzero.
Handle the case that readcharfun is Qget_emacs_mule_file_char or a
cons. If unread_char is not -1, simply return it.
(unreadchar): Handle the case that readcharfun is
Qget_emacs_mule_file_char or a cons. Set unread_char if
necessary.
(read_multibyte): This function deleted.
(readbyte_for_lambda, readbyte_from_file, readbyte_from_string)
(read_emacs_mule_char): New functions.
(Fload): Even if the file doesn't have the extention ".elc", if
safe_to_load_p returns a positive version number, assume that the
file contains bytecompiled code. If the version is less than 22,
load the file while decoding multibyte sequences by emacs-mule.
(readevalloop): Don't use readchar_backlog.
(Fread): Likewise. Pay attention to the case that STREAM is a
cons.
(Fread_from_string): Pay attention to the case that STREAM is a
cons.
(read_escape): The arg BYTEREP deleted.
(read1): Set load_each_byte to 1 temporarily while handling
#@NUMBER. Don't call read_multibyte.
(read_vector): Call Fread with a cons. If readcharfun is
Qget_emacs_mule_file_char, decode the read string by emacs-mule.
(read_list): If doc_reference is 2, make the cdr part string as
unibyte.
(syms_of_lread): Intern and staticpro Qget_emacs_mule_file_char
and Qload_force_doc_strings.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 24 Jul 2002 10:51:15 +0000 |
parents | bbce331da1be |
children | 695cf19ef79e d7ddb3e565de |
rev | line source |
---|---|
25858 | 1 #include "copyright.h" |
2 | |
3 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/ChgPane.c,v 1.1 1992/04/11 22:10:17 jimb Exp $ */ | |
4 /* Copyright Massachusetts Institute of Technology 1985 */ | |
5 | |
6 /* | |
7 * XMenu: MIT Project Athena, X Window system menu package | |
8 * | |
9 * XMenuChangePane - Change the label of a menu pane. | |
10 * | |
11 * Author: Tony Della Fera, DEC | |
12 * December 19, 1985 | |
13 * | |
14 */ | |
15 | |
16 #include "XMenuInt.h" | |
17 | |
18 int | |
19 XMenuChangePane(menu, p_num, label) | |
20 register XMenu *menu; /* Menu object to be modified. */ | |
21 register int p_num; /* Pane number to be modified. */ | |
22 char *label; /* Selection label. */ | |
23 { | |
24 register XMPane *p_ptr; /* XMPane pointer. */ | |
25 | |
26 int label_length; /* Label length in characters. */ | |
27 int label_width; /* Label width in pixels. */ | |
28 | |
29 /* | |
30 * Check for NULL pointers! | |
31 */ | |
32 if (label == NULL) { | |
33 _XMErrorCode = XME_ARG_BOUNDS; | |
34 return(XM_FAILURE); | |
35 } | |
36 | |
37 /* | |
38 * Find the right pane. | |
39 */ | |
40 p_ptr = _XMGetPanePtr(menu, p_num); | |
41 if (p_ptr == NULL) return(XM_FAILURE); | |
42 | |
43 /* | |
44 * Determine label size. | |
45 */ | |
46 label_length = strlen(label); | |
47 label_width = XTextWidth(menu->p_fnt_info, label, label_length); | |
48 | |
49 /* | |
50 * Change the pane data. | |
51 */ | |
52 p_ptr->label = label; | |
53 p_ptr->label_width = label_width; | |
54 p_ptr->label_length = label_length; | |
55 | |
56 /* | |
57 * Schedule a recompute. | |
58 */ | |
59 menu->recompute = 1; | |
60 | |
61 /* | |
62 * Return the pane number just changed. | |
63 */ | |
64 _XMErrorCode = XME_NO_ERROR; | |
65 return(p_num); | |
66 } |