Mercurial > emacs
annotate src/indent.h @ 26059:2a7f35e0072b
(Fminibuffer_complete_and_exit): Supply value for new
ESCAPE_FROM_EDGE parameter to Ffield_beginning.
(Fminibuffer_complete_word): Use
Ffield_beginning to find the prompt end.
(Fminibuffer_complete_and_exit): Test for an empty
input string by seeing where the field begins, instead of
looking at text-properties.
(read_minibuf): Don't save minibuffer prompt length on
minibuf_save_list.
Don't initialize minibuffer prompt length.
Wrap prompt text-properties around the entire prompt.
Add 'prompt text-property to prompt.
Get final value with Ffield_string instead of make_buffer_string.
(read_minibuf_unwind): Don't restore minibuffer prompt length from
minibuf_save_list.
(do_completion): Get minibuffer input with Ffield_string
instead of Fbuffer_string.
Erase minibuffer input with Ferase_field instead of erase_buffer.
(Fminibuffer_complete_and_exit): Likewise.
Test whether buffer is empty by looking for the 'prompt text
property at the end.
Set prompt length by looking for the end of the prompt text property,
and save prompt length for later use (since there is no longer a
buffer variable to get it from).
(Fminibuffer_prompt_width, Fminibuffer_prompt_end): Functions removed.
(syms_of_minibuf): Remove initializations of
Sminibuffer_prompt_width and Sminibuffer_prompt_end.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 17 Oct 1999 12:55:49 +0000 |
parents | 488e6b8dc9ae |
children | 23a1cea22d13 |
rev | line source |
---|---|
484 | 1 /* Definitions for interface to indent.c |
2 Copyright (C) 1985, 1986 Free Software Foundation, Inc. | |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
12244 | 8 the Free Software Foundation; either version 2, or (at your option) |
484 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
484 | 20 |
17018
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
21 /* We introduce new member `tab_offset'. We need it because of the |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
22 existence of wide-column characters. There is a case that the |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
23 line-break occurs at a wide-column character and the number of |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
24 colums of the line gets less than width. |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
25 |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
26 Example (where W_ stands for a wide-column character): |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
27 ---------- |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
28 abcdefgh\\ |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
29 W_ |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
30 ---------- |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
31 |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
32 To handle this case, we should not calculate the tab offset by |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
33 tab_offset += width; |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
34 |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
35 Instead, we must remember tab_offset of the line. |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
36 |
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
37 */ |
484 | 38 |
39 struct position | |
40 { | |
41 int bufpos; | |
20540
64b4e34d34c2
(struct position): New field bytepos.
Richard M. Stallman <rms@gnu.org>
parents:
17018
diff
changeset
|
42 int bytepos; |
484 | 43 int hpos; |
44 int vpos; | |
45 int prevhpos; | |
46 int contin; | |
16403
a388d0109b9e
(struct position): New field ovstring_chars_done.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
47 /* Number of characters we have already handled |
a388d0109b9e
(struct position): New field ovstring_chars_done.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
48 from the before and after strings at this position. */ |
a388d0109b9e
(struct position): New field ovstring_chars_done.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
49 int ovstring_chars_done; |
17018
f13a67b3ec8d
(struct position): New member tab_offset to accumulate tab offset.
Karl Heuer <kwzh@gnu.org>
parents:
16403
diff
changeset
|
50 int tab_offset; |
484 | 51 }; |
52 | |
25026
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
53 struct position *compute_motion P_ ((int, int, int, int, int, int, int, |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
54 int, int, int, struct window *)); |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
55 struct position *vmotion P_ ((int, int, struct window *)); |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
56 int skip_invisible P_ ((int, int *, int, Lisp_Object)); |
484 | 57 |
58 /* Value of point when current_column was called */ | |
59 extern int last_known_column_point; | |
9408
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
60 |
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
61 /* Functions for dealing with the column cache. */ |
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
62 |
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
63 /* Return true iff the display table DISPTAB specifies the same widths |
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
64 for characters as WIDTHTAB. We use this to decide when to |
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
65 invalidate the buffer's column_cache. */ |
25026
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
66 int disptab_matches_widthtab P_ ((struct Lisp_Char_Table *disptab, |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
67 struct Lisp_Vector *widthtab)); |
9408
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
68 |
99429d6c8b4e
* indent.h (disptab_matches_widthtab, recompute_width_table): New
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
69 /* Recompute BUF's width table, using the display table DISPTAB. */ |
25026
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
70 void recompute_width_table P_ ((struct buffer *buf, |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
71 struct Lisp_Char_Table *disptab)); |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
72 |
488e6b8dc9ae
(toplevel): Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents:
20540
diff
changeset
|
73 |