Mercurial > hg > xemacs-beta
annotate src/bufslots.h @ 5932:d2c2d83dbb52 cygwin
working with new Xpm.dll
| author | Henry Thompson <ht@markup.co.uk> |
|---|---|
| date | Wed, 09 Dec 2015 15:50:11 +0000 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* Definitions of marked slots in buffers |
| 2 Copyright (C) 1990, 1992, 1993 Free Software Foundation, Inc. | |
| 1204 | 3 Copyright (C) 2001, 2002 Ben Wing. |
| 428 | 4 |
| 5 This file is part of XEmacs. | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5214
diff
changeset
|
7 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 8 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:
5214
diff
changeset
|
9 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:
5214
diff
changeset
|
10 option) any later version. |
| 428 | 11 |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 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:
5214
diff
changeset
|
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 19 |
| 20 /* Synched up with: Mule 2.0, FSF 19.30. Split out of buffer.h. */ | |
| 21 | |
| 22 /* Authorship: | |
| 23 | |
| 24 FSF: long ago (part of buffer.h). | |
| 25 JWZ: separated out from buffer.h, early in Lemacs. | |
| 26 XEmacs: a few other changes. | |
| 27 */ | |
| 28 | |
| 617 | 29 /* We define the Lisp_Objects in the buffer structure in a separate file |
| 30 because there are numerous places we want to iterate over them, such | |
| 31 as when defining them in the structure, initializing them, or marking | |
| 32 them. | |
| 33 | |
| 34 To use, define MARKED_SLOT before including this file. No need to | |
| 35 undefine; that happens automatically. */ | |
| 428 | 36 |
| 37 #ifndef BUFFER_SLOTS_FIRST_NAME | |
| 38 #define BUFFER_SLOTS_FIRST_NAME name | |
| 39 #endif | |
| 40 | |
| 41 /* The name of this buffer. */ | |
| 1204 | 42 MARKED_SLOT (name) |
| 428 | 43 |
| 44 /* The name of the file visited in this buffer, or nil. */ | |
| 1204 | 45 MARKED_SLOT (filename) |
| 428 | 46 |
| 47 /* Dir for expanding relative file names. */ | |
| 1204 | 48 MARKED_SLOT (directory) |
| 428 | 49 |
| 50 /* True iff this buffer has been backed up (if you write to the | |
| 51 visited file and it hasn't been backed up, then a backup will | |
| 52 be made). */ | |
| 53 /* #### This isn't really used by the C code, so could be deleted. */ | |
| 1204 | 54 MARKED_SLOT (backed_up) |
| 428 | 55 |
| 56 /* Length of file when last read or saved. | |
| 57 This is not in the struct buffer_text | |
| 58 because it's not used in indirect buffers at all. */ | |
| 1204 | 59 MARKED_SLOT (saved_size) |
| 428 | 60 |
| 61 /* File name used for auto-saving this buffer. | |
| 62 This is not in the struct buffer_text | |
| 63 because it's not used in indirect buffers at all. */ | |
| 1204 | 64 MARKED_SLOT (auto_save_file_name) |
| 428 | 65 |
| 66 /* Non-nil if buffer read-only. */ | |
| 1204 | 67 MARKED_SLOT (read_only) |
| 428 | 68 |
| 69 /* "The mark". This is a marker which may | |
| 70 point into this buffer or may point nowhere. */ | |
| 1204 | 71 MARKED_SLOT (mark) |
| 428 | 72 |
| 73 /* Alist of elements (SYMBOL . VALUE-IN-THIS-BUFFER) | |
| 74 for all per-buffer variables of this buffer. | |
| 75 Specifically, this lists those variables that have | |
| 76 a buffer-local value in this buffer: i.e. those | |
| 77 whose value does not shadow the default value. | |
| 78 (Remember that for any particular variable created | |
| 79 with `make-local-variable' or `make-variable-buffer-local', | |
| 80 it will have a per-buffer value in some buffers and a | |
| 81 default value in others.) | |
| 82 | |
| 83 Variables declared in C with DEFVAR_BUFFER_LOCAL() (i.e. | |
| 84 those stored in the struct buffer) are not listed here. */ | |
| 1204 | 85 MARKED_SLOT (local_var_alist) |
| 428 | 86 |
| 87 /* Symbol naming major mode (eg, lisp-mode). */ | |
| 1204 | 88 MARKED_SLOT (major_mode) |
| 428 | 89 |
| 90 /* Pretty name of major mode (eg, "Lisp"). */ | |
| 1204 | 91 MARKED_SLOT (mode_name) |
| 428 | 92 |
| 93 /* Modeline element that controls format of modeline. */ | |
| 1204 | 94 MARKED_SLOT (modeline_format) |
| 428 | 95 |
| 96 /* Keys that are bound local to this buffer. */ | |
| 1204 | 97 MARKED_SLOT (keymap) |
| 428 | 98 |
| 99 /* This buffer's local abbrev table. */ | |
| 1204 | 100 MARKED_SLOT (abbrev_table) |
| 428 | 101 /* This buffer's syntax table. */ |
| 1204 | 102 MARKED_SLOT (syntax_table) |
| 428 | 103 /* Massaged values from the syntax table, for faster lookup. */ |
| 1204 | 104 MARKED_SLOT (mirror_syntax_table) |
| 428 | 105 |
| 106 #ifdef MULE | |
| 107 /* This buffer's category table. */ | |
| 1204 | 108 MARKED_SLOT (category_table) |
| 428 | 109 #endif /* MULE */ |
| 110 /* This buffer's coding system. */ | |
| 1204 | 111 MARKED_SLOT (buffer_file_coding_system) |
| 428 | 112 /* Values of several buffer-local variables. |
| 113 | |
| 114 tab-width is buffer-local so that redisplay can find it | |
| 115 in buffers that are not current */ | |
| 1204 | 116 MARKED_SLOT (case_fold_search) |
| 117 MARKED_SLOT (tab_width) | |
| 118 MARKED_SLOT (fill_column) | |
| 119 MARKED_SLOT (left_margin) | |
| 428 | 120 |
| 121 /* Function to call when insert space past fill column. */ | |
| 1204 | 122 MARKED_SLOT (auto_fill_function) |
| 428 | 123 |
| 446 | 124 /* Case table for case-conversion in this buffer. */ |
| 1204 | 125 MARKED_SLOT (case_table) |
| 126 /* It contanis following char-tables: */ | |
| 446 | 127 /* Char-table maps each char into its lower-case version. */ |
| 428 | 128 /* Char-table mapping each char to its upper-case version. */ |
| 129 /* Char-table for conversion for case-folding search. */ | |
| 130 /* Char-table of equivalences for case-folding search. */ | |
| 131 | |
| 132 /* #### This ought to be a specifier: */ | |
| 133 /* Non-nil means do not display continuation lines. */ | |
| 1204 | 134 MARKED_SLOT (truncate_lines) |
| 428 | 135 /* #### This ought to be a specifier: */ |
| 136 /* #### Better yet, it ought to be junked. It really sucks. */ | |
| 137 /* Non-nil means display ctl chars with uparrow. */ | |
| 1204 | 138 MARKED_SLOT (ctl_arrow) |
| 428 | 139 /* #### This ought to be a specifier: */ |
| 140 /* #### Better yet, it ought to be junked. It really sucks. */ | |
| 141 /* Non-nil means do selective display; | |
| 142 see doc string in syms_of_buffer (buffer.c) for details. */ | |
| 1204 | 143 MARKED_SLOT (selective_display) |
| 428 | 144 /* #### This ought to be a specifier: */ |
| 145 /* #### Better yet, it ought to be junked. It really sucks. */ | |
| 146 /* Non-nil means show ... at end of line followed by invisible lines. */ | |
| 1204 | 147 MARKED_SLOT (selective_display_ellipses) |
| 428 | 148 /* Alist of (FUNCTION . STRING) for each minor mode enabled in buffer. */ |
| 1204 | 149 /* Unused: MARKED_SLOT (minor_modes) */ |
| 428 | 150 /* t if "self-insertion" should overwrite */ |
| 1204 | 151 MARKED_SLOT (overwrite_mode) |
| 428 | 152 /* non-nil means abbrev mode is on. Expand abbrevs automatically. */ |
| 1204 | 153 MARKED_SLOT (abbrev_mode) |
| 428 | 154 |
| 155 /* No display table here. It's a specifier. */ | |
| 156 #if 0 /* FSFmacs */ | |
| 157 /* t means the mark and region are currently active. */ | |
| 1204 | 158 MARKED_SLOT (mark_active) |
| 428 | 159 #endif |
| 160 | |
| 161 /* Changes in the buffer are recorded here for undo. | |
| 162 t means don't record anything. | |
| 163 This information belongs to the base buffer of an indirect buffer, | |
| 164 But we can't store it in the struct buffer_text | |
| 165 because local variables have to be right in the struct buffer. | |
| 166 So we copy it around in set_buffer_internal. */ | |
| 1204 | 167 MARKED_SLOT (undo_list) |
| 428 | 168 |
| 169 /* FSFmacs has overlay stuff here. We have extent info elsewhere in the | |
| 170 struct buffer. */ | |
| 171 | |
| 442 | 172 /* dedicated_frame in lisp */ |
| 428 | 173 |
| 174 /* Lisp of symbols naming the file format used for visited file. */ | |
| 1204 | 175 MARKED_SLOT (file_format) |
| 428 | 176 |
| 177 #ifdef REGION_CACHE_NEEDS_WORK | |
| 178 /* True if the newline position cache and width run cache are | |
| 179 enabled. See search.c and indent.c. */ | |
| 1204 | 180 MARKED_SLOT (cache_long_line_scans) |
| 428 | 181 |
| 182 /* If the width run cache is enabled, this table contains the | |
| 183 character widths width_run_cache (see above) assumes. When we | |
| 184 do a thorough redisplay, we compare this against the buffer's | |
| 185 current display table to see whether the display table has | |
| 186 affected the widths of any characters. If it has, we | |
| 187 invalidate the width run cache, and re-initialize width_table. */ | |
| 1204 | 188 MARKED_SLOT (width_table) |
| 428 | 189 #endif /* REGION_CACHE_NEEDS_WORK */ |
| 190 | |
| 191 /* A redundant copy of text.pt, in the form of a marker. Every time one | |
| 192 is updated, so is the other. | |
| 193 */ | |
| 1204 | 194 MARKED_SLOT (point_marker) |
| 428 | 195 |
| 196 /* FSFmacs has pt_marker, begv_marker, zv_marker here, used for | |
| 197 indirect buffers. We don't need them because we handle these | |
| 198 values directly instead of playing games with markers. */ | |
| 199 | |
| 200 /* This holds the point value before the last scroll operation. | |
| 201 Explicitly setting point sets this to nil. */ | |
| 1204 | 202 MARKED_SLOT (point_before_scroll) |
| 428 | 203 |
| 771 | 204 /* Truename of the visited file (via qxe_realpath()), |
| 428 | 205 or nil. */ |
| 1204 | 206 MARKED_SLOT (file_truename) |
| 428 | 207 |
| 208 /* Invisibility spec of this buffer. | |
| 209 t => any non-nil `invisible' property means invisible. | |
| 210 A list => `invisible' property means invisible | |
| 211 if it is memq in that list. */ | |
| 1204 | 212 MARKED_SLOT (invisibility_spec) |
| 428 | 213 |
| 214 /* The string generated by formatting the modeline in this buffer. */ | |
| 1204 | 215 MARKED_SLOT (generated_modeline_string) |
| 428 | 216 |
|
5214
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
217 /* Incremented each time a buffer is displayed using set-window-buffer. */ |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
218 MARKED_SLOT (display_count) |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
219 |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
220 /* Last time this buffer was displayed using set-window-buffer. */ |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
221 MARKED_SLOT (display_time) |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
222 |
| 428 | 223 /* A hash table that maps from a "generic extent" (an extent in |
| 224 `modeline-format') into a buffer-specific extent. */ | |
| 1204 | 225 MARKED_SLOT (modeline_extent_table) |
| 428 | 226 |
| 227 #ifndef BUFFER_SLOTS_LAST_NAME | |
| 228 #define BUFFER_SLOTS_LAST_NAME modeline_extent_table | |
| 229 #endif | |
| 230 | |
| 617 | 231 #undef MARKED_SLOT |