diff options
| author | Stefan Monnier | 2010-08-11 07:42:48 +0200 |
|---|---|---|
| committer | Stefan Monnier | 2010-08-11 07:42:48 +0200 |
| commit | c566235d981eba73c88bbff00b6a1d88360b6e9f (patch) | |
| tree | f8d653add3570fe750a83d1123ed35022e0bf4ef /src/buffer.c | |
| parent | 0bfdb86f425a88fe43ebc88851c6f9a6418e1862 (diff) | |
| parent | 490b89acab3e759426ede25c31c94268df55e925 (diff) | |
| download | emacs-c566235d981eba73c88bbff00b6a1d88360b6e9f.tar.gz emacs-c566235d981eba73c88bbff00b6a1d88360b6e9f.zip | |
Merge from trunk
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 19 |
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]; | |||
| 106 | int last_per_buffer_idx; | 106 | int last_per_buffer_idx; |
| 107 | 107 | ||
| 108 | EXFUN (Fset_buffer, 1); | 108 | EXFUN (Fset_buffer, 1); |
| 109 | void set_buffer_internal (struct buffer *b); | ||
| 110 | void set_buffer_internal_1 (struct buffer *b); | ||
| 111 | static void call_overlay_mod_hooks (Lisp_Object list, Lisp_Object overlay, | 109 | static 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 | ||
| 163 | Lisp_Object Qoverlayp; | 161 | Lisp_Object Qoverlayp; |
| 164 | 162 | ||
| 165 | Lisp_Object Qpriority, Qwindow, Qevaporate, Qbefore_string, Qafter_string; | 163 | Lisp_Object Qpriority, Qevaporate, Qbefore_string, Qafter_string; |
| 166 | 164 | ||
| 167 | Lisp_Object Qmodification_hooks; | 165 | Lisp_Object Qmodification_hooks; |
| 168 | Lisp_Object Qinsert_in_front_hooks; | 166 | Lisp_Object Qinsert_in_front_hooks; |
| @@ -174,8 +172,6 @@ static struct Lisp_Overlay * copy_overlays (struct buffer *, struct Lisp_Overlay | |||
| 174 | static void modify_overlay (struct buffer *, EMACS_INT, EMACS_INT); | 172 | static void modify_overlay (struct buffer *, EMACS_INT, EMACS_INT); |
| 175 | static Lisp_Object buffer_lisp_local_variables (struct buffer *); | 173 | static Lisp_Object buffer_lisp_local_variables (struct buffer *); |
| 176 | 174 | ||
| 177 | extern 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 | ||
| 5290 | static void | 5285 | static void |
| 5291 | defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, char *namestring, | 5286 | defvar_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 | ||
| 5901 | INDICATOR specifies the logical indicator type which is one of the | 5894 | INDICATOR specifies the logical indicator type which is one of the |
| 5902 | following symbols: `truncation' , `continuation', `overlay-arrow', | 5895 | following 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 | ||
| 5905 | BITMAPS is list of symbols (LEFT RIGHT [LEFT1 RIGHT1]) which specifies | 5898 | BITMAPS is a list of symbols (LEFT RIGHT [LEFT1 RIGHT1]) which specifies |
| 5906 | the actual bitmap shown in the left or right fringe for the logical | 5899 | the actual bitmap shown in the left or right fringe for the logical |
| 5907 | indicator. LEFT and RIGHT are the bitmaps shown in the left and/or | 5900 | indicator. LEFT and RIGHT are the bitmaps shown in the left and/or |
| 5908 | right fringe for the specific indicator. The LEFT1 or RIGHT1 bitmaps | 5901 | right fringe for the specific indicator. The LEFT1 or RIGHT1 bitmaps |
| 5909 | are used only for the `bottom' and `one-line' indicators when the last | 5902 | are 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 | 5903 | last (only) line has no final newline. BITMAPS may also be a single |
| 5911 | symbol which is used in both left and right fringes. */); | 5904 | symbol 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", |