Mercurial > hg > xemacs-beta
annotate src/bufslots.h @ 5652:cc6f0266bc36
Avoid #'delq in core Lisp, for the sake of style, a very slightly smaller binary
lisp/ChangeLog addition:
2012-05-01 Aidan Kehoe <kehoea@parhasard.net>
Avoid #'delq in core code, for the sake of style and a (very
slightly) smaller binary.
* behavior.el (disable-behavior):
* behavior.el (compute-behavior-group-children):
* buff-menu.el (buffers-tab-items):
* byte-optimize.el (byte-optimize-delay-constants-math):
* byte-optimize.el (byte-optimize-logmumble):
* byte-optimize.el (byte-decompile-bytecode-1):
* byte-optimize.el (byte-optimize-lapcode):
* bytecomp.el:
* bytecomp.el (byte-compile-arglist-warn):
* bytecomp.el (byte-compile-warn-about-unresolved-functions):
* bytecomp.el (byte-compile-lambda):
* bytecomp.el (byte-compile-out-toplevel):
* bytecomp.el (byte-compile-insert):
* bytecomp.el (byte-compile-defalias-warn):
* cl-macs.el (cl-upcase-arg):
* cl-macs.el (cl-transform-lambda):
* cl-macs.el (cl-do-proclaim):
* cl-macs.el (defstruct):
* cl-macs.el (cl-make-type-test):
* cl-macs.el (define-compiler-macro):
* cl-macs.el (delete-duplicates):
* cus-edit.el (widget-face-value-delete):
* cus-edit.el (face-history):
* easymenu.el (easy-menu-remove):
* files.el (files-fetch-hook-value):
* files.el (file-expand-wildcards):
* font-lock.el (font-lock-update-removed-keyword-alist):
* font-lock.el (font-lock-remove-keywords):
* frame.el (frame-initialize):
* frame.el (frame-notice-user-settings):
* frame.el (set-frame-font):
* frame.el (delete-other-frames):
* frame.el (get-frame-for-buffer-noselect):
* gnuserv.el (gnuserv-kill-buffer-function):
* gnuserv.el (gnuserv-check-device):
* gnuserv.el (gnuserv-kill-client):
* gnuserv.el (gnuserv-buffer-done-1):
* gtk-font-menu.el (gtk-reset-device-font-menus):
* gutter-items.el (buffers-tab-items):
* gutter.el (set-gutter-element-visible-p):
* info.el (Info-find-file-node):
* info.el (Info-history-add):
* info.el (Info-build-annotation-completions):
* info.el (Info-index):
* info.el (Info-reannotate-node):
* itimer.el (delete-itimer):
* itimer.el (start-itimer):
* lib-complete.el (lib-complete:cache-completions):
* loadhist.el (unload-feature):
* menubar-items.el (build-buffers-menu-internal):
* menubar.el (delete-menu-item):
* menubar.el (relabel-menu-item):
* msw-font-menu.el (mswindows-reset-device-font-menus):
* mule/make-coding-system.el (fixed-width-generate-helper):
* next-error.el (next-error-find-buffer):
* obsolete.el:
* obsolete.el (find-non-ascii-charset-string):
* obsolete.el (find-non-ascii-charset-region):
* occur.el (multi-occur-by-filename-regexp):
* occur.el (occur-1):
* packages.el (packages-package-hierarchy-directory-names):
* packages.el (package-get-key-1):
* process.el (setenv):
* simple.el (undo):
* simple.el (handle-pre-motion-command-current-command-is-motion):
* sound.el (load-sound-file):
* wid-edit.el (widget-field-value-delete):
* wid-edit.el (widget-checklist-match-inline):
* wid-edit.el (widget-checklist-match-find):
* wid-edit.el (widget-editable-list-delete-at):
* wid-edit.el (widget-editable-list-entry-create):
* window.el (quit-window):
* x-font-menu.el (x-reset-device-font-menus-core):
1. Replace (delq nil (mapcar ....)) with analogous (mapcan ...)
forms; this is in non-dumped files, it was done previously in
dumped files.
2. Replace (delq FOO (copy-sequence BAR)) with (remove* FOO BAR),
where #'eq and #'eql are equivalent
3. Replace (delq FOO BAR) with (delete* FOO BAR), where FOO is not
a non-fixnum number. Saves a little space in the dumped file
(since the compiler macro adds :test #'eq to the delete* call if
it's not clear that FOO is not a non-fixnum number).
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 01 May 2012 16:17:42 +0100 (2012-05-01) |
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 |