aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
authorStefan Monnier2010-08-11 07:42:48 +0200
committerStefan Monnier2010-08-11 07:42:48 +0200
commitc566235d981eba73c88bbff00b6a1d88360b6e9f (patch)
treef8d653add3570fe750a83d1123ed35022e0bf4ef /src/buffer.c
parent0bfdb86f425a88fe43ebc88851c6f9a6418e1862 (diff)
parent490b89acab3e759426ede25c31c94268df55e925 (diff)
downloademacs-c566235d981eba73c88bbff00b6a1d88360b6e9f.tar.gz
emacs-c566235d981eba73c88bbff00b6a1d88360b6e9f.zip
Merge from trunk
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c19
1 files changed, 6 insertions, 13 deletions
diff --git a/src/buffer.c b/src/buffer.c
index bfef1c369ef..86a638eb230 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -106,8 +106,6 @@ static char buffer_permanent_local_flags[MAX_PER_BUFFER_VARS];
106int last_per_buffer_idx; 106int last_per_buffer_idx;
107 107
108EXFUN (Fset_buffer, 1); 108EXFUN (Fset_buffer, 1);
109void set_buffer_internal (struct buffer *b);
110void set_buffer_internal_1 (struct buffer *b);
111static void call_overlay_mod_hooks (Lisp_Object list, Lisp_Object overlay, 109static void call_overlay_mod_hooks (Lisp_Object list, Lisp_Object overlay,
112 int after, Lisp_Object arg1, 110 int after, Lisp_Object arg1,
113 Lisp_Object arg2, Lisp_Object arg3); 111 Lisp_Object arg2, Lisp_Object arg3);
@@ -162,7 +160,7 @@ Lisp_Object Qget_file_buffer;
162 160
163Lisp_Object Qoverlayp; 161Lisp_Object Qoverlayp;
164 162
165Lisp_Object Qpriority, Qwindow, Qevaporate, Qbefore_string, Qafter_string; 163Lisp_Object Qpriority, Qevaporate, Qbefore_string, Qafter_string;
166 164
167Lisp_Object Qmodification_hooks; 165Lisp_Object Qmodification_hooks;
168Lisp_Object Qinsert_in_front_hooks; 166Lisp_Object Qinsert_in_front_hooks;
@@ -174,8 +172,6 @@ static struct Lisp_Overlay * copy_overlays (struct buffer *, struct Lisp_Overlay
174static void modify_overlay (struct buffer *, EMACS_INT, EMACS_INT); 172static void modify_overlay (struct buffer *, EMACS_INT, EMACS_INT);
175static Lisp_Object buffer_lisp_local_variables (struct buffer *); 173static Lisp_Object buffer_lisp_local_variables (struct buffer *);
176 174
177extern char * emacs_strerror (int);
178
179/* For debugging; temporary. See set_buffer_internal. */ 175/* For debugging; temporary. See set_buffer_internal. */
180/* Lisp_Object Qlisp_mode, Vcheck_symbol; */ 176/* Lisp_Object Qlisp_mode, Vcheck_symbol; */
181 177
@@ -2512,7 +2508,6 @@ current buffer is cleared. */)
2512 if (!EQ (old_undo, Qt)) 2508 if (!EQ (old_undo, Qt))
2513 { 2509 {
2514 /* Represent all the above changes by a special undo entry. */ 2510 /* Represent all the above changes by a special undo entry. */
2515 extern Lisp_Object Qapply;
2516 current_buffer->undo_list = Fcons (list3 (Qapply, 2511 current_buffer->undo_list = Fcons (list3 (Qapply,
2517 intern ("set-buffer-multibyte"), 2512 intern ("set-buffer-multibyte"),
2518 NILP (flag) ? Qt : Qnil), 2513 NILP (flag) ? Qt : Qnil),
@@ -5288,7 +5283,7 @@ init_buffer (void)
5288 } while (0) 5283 } while (0)
5289 5284
5290static void 5285static void
5291defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, char *namestring, 5286defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, const char *namestring,
5292 Lisp_Object *address, Lisp_Object type, char *doc) 5287 Lisp_Object *address, Lisp_Object type, char *doc)
5293{ 5288{
5294 struct Lisp_Symbol *sym; 5289 struct Lisp_Symbol *sym;
@@ -5349,8 +5344,6 @@ syms_of_buffer (void)
5349 staticpro (&Qget_file_buffer); 5344 staticpro (&Qget_file_buffer);
5350 Qpriority = intern_c_string ("priority"); 5345 Qpriority = intern_c_string ("priority");
5351 staticpro (&Qpriority); 5346 staticpro (&Qpriority);
5352 Qwindow = intern_c_string ("window");
5353 staticpro (&Qwindow);
5354 Qbefore_string = intern_c_string ("before-string"); 5347 Qbefore_string = intern_c_string ("before-string");
5355 staticpro (&Qbefore_string); 5348 staticpro (&Qbefore_string);
5356 Qafter_string = intern_c_string ("after-string"); 5349 Qafter_string = intern_c_string ("after-string");
@@ -5900,14 +5893,14 @@ fringe indicator.
5900 5893
5901INDICATOR specifies the logical indicator type which is one of the 5894INDICATOR specifies the logical indicator type which is one of the
5902following symbols: `truncation' , `continuation', `overlay-arrow', 5895following symbols: `truncation' , `continuation', `overlay-arrow',
5903`top', `bottom', `up', `down', `one-line', `empty-line', or `unknown'. 5896`top', `bottom', `top-bottom', `up', `down', empty-line', or `unknown'.
5904 5897
5905BITMAPS is list of symbols (LEFT RIGHT [LEFT1 RIGHT1]) which specifies 5898BITMAPS is a list of symbols (LEFT RIGHT [LEFT1 RIGHT1]) which specifies
5906the actual bitmap shown in the left or right fringe for the logical 5899the actual bitmap shown in the left or right fringe for the logical
5907indicator. LEFT and RIGHT are the bitmaps shown in the left and/or 5900indicator. LEFT and RIGHT are the bitmaps shown in the left and/or
5908right fringe for the specific indicator. The LEFT1 or RIGHT1 bitmaps 5901right fringe for the specific indicator. The LEFT1 or RIGHT1 bitmaps
5909are used only for the `bottom' and `one-line' indicators when the last 5902are used only for the `bottom' and `top-bottom' indicators when the
5910\(only) line in has no final newline. BITMAPS may also be a single 5903last (only) line has no final newline. BITMAPS may also be a single
5911symbol which is used in both left and right fringes. */); 5904symbol which is used in both left and right fringes. */);
5912 5905
5913 DEFVAR_PER_BUFFER ("fringe-cursor-alist", 5906 DEFVAR_PER_BUFFER ("fringe-cursor-alist",