]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix problems caused by the last rebase.
authorGiuseppe Scrivano <gscrivano@gnu.org>
Thu, 11 Mar 2010 12:10:11 +0000 (13:10 +0100)
committerGiuseppe Scrivano <gscrivano@gnu.org>
Thu, 11 Mar 2010 12:10:11 +0000 (13:10 +0100)
19 files changed:
src/Makefile.in
src/buffer.c
src/buffer.h
src/character.c
src/cmds.c
src/composite.c
src/dbusbind.c
src/editfns.c
src/eval.c
src/fileio.c
src/globals.h
src/image.c
src/keyboard.c
src/lisp.h
src/menu.h
src/search.c
src/syntax.h
src/thread.c
src/xdisp.c

index ff8c1c47abeeca3d169f5547cbe553def7a0f2a3..b2f4dc6615c6a64d1d646ab8186285074dfe6737 100644 (file)
@@ -1126,12 +1126,12 @@ term.o: term.c termchar.h termhooks.h termopts.h lisp.h $(config_h) cm.h frame.h
    syssignal.h $(INTERVALS_H) buffer.h
 termcap.o: termcap.c lisp.h $(config_h)
 terminal.o: terminal.c frame.h termchar.h termhooks.h charset.h coding.h \
-   keyboard.h $(config_h)
-terminfo.o: terminfo.c $(config_h)
-thread.o: thread.c $(config_h) lisp.h
-tparam.o: tparam.c $(config_h)
-undo.o: undo.c buffer.h commands.h window.h $(config_h)
-unexaix.o: unexaix.c $(config_h)
+   keyboard.h lisp.h $(config_h) dispextern.h composite.h systime.h
+terminfo.o: terminfo.c lisp.h $(config_h)
+thread.o: thread.c lisp.h $(config_h)
+tparam.o: tparam.c lisp.h $(config_h)
+undo.o: undo.c buffer.h commands.h window.h dispextern.h lisp.h $(config_h)
+unexaix.o: unexaix.c lisp.h $(config_h)
 unexalpha.o: unexalpha.c $(config_h)
 unexcw.o: unexcw.c lisp.h $(config_h)
 unexec.o: unexec.c lisp.h $(config_h)
index 6f6c0c29ab31f5e44f356b6b12a70c8b0835f741..bd5d3e8aeafea951848b0288474d32d3ea30a328 100644 (file)
@@ -415,7 +415,7 @@ b->width_table_ = Qnil;
 
   b->mark_ = Fmake_marker ();
   BUF_MARKERS (b) = NULL;
-  b->name = name;
+  b->name_ = name;
 
   /* Put this in the alist of all live buffers.  */
   XSETBUFFER (buffer, b);
@@ -700,7 +700,7 @@ reset_buffer (b)
   /* It is more conservative to start out "changed" than "unchanged".  */
   b->clip_changed = 0;
   b->prevent_redisplay_optimizations_p = 1;
-  b->backed_up = Qnil;
+  b->backed_up_ = Qnil;
   BUF_AUTOSAVE_MODIFF (b) = 0;
   b->auto_save_failure_time = -1;
   b->auto_save_file_name_ = Qnil;
@@ -1550,7 +1550,7 @@ with SIGHUP.  */)
 
   /* Delete any auto-save file, if we saved it in this session.
      But not if the buffer is modified.  */
-  if (STRINGP (b->auto_save_file_name)
+  if (STRINGP (BUF_AUTO_SAVE_FILE_NAME (b))
       && BUF_AUTOSAVE_MODIFF (b) != 0
       && BUF_SAVE_MODIFF (b) < BUF_AUTOSAVE_MODIFF (b)
       && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b)
@@ -5202,14 +5202,14 @@ init_buffer_once ()
   buffer_defaults.overlays_after = NULL;
   buffer_defaults.overlay_center = BEG;
 
-  XSETFASTINT (buffer_defaults.tab_width, 8);
-  buffer_defaults.truncate_lines = Qnil;
-  buffer_defaults.word_wrap = Qnil;
-  buffer_defaults.ctl_arrow = Qt;
-  buffer_defaults.direction_reversed = Qnil;
-  buffer_defaults.cursor_type = Qt;
-  buffer_defaults.extra_line_spacing = Qnil;
-  buffer_defaults.cursor_in_non_selected_windows = Qt;
+  XSETFASTINT (BUF_TAB_WIDTH (&buffer_defaults), 8);
+  BUF_TRUNCATE_LINES (&buffer_defaults) = Qnil;
+  BUF_WORD_WRAP (&buffer_defaults) = Qnil;
+  BUF_CTL_ARROW (&buffer_defaults) = Qt;
+  BUF_DIRECTION_REVERSED (&buffer_defaults) = Qnil;
+  BUF_CURSOR_TYPE (&buffer_defaults) = Qt;
+  BUF_EXTRA_LINE_SPACING (&buffer_defaults) = Qnil;
+  BUF_CURSOR_IN_NON_SELECTED_WINDOWS (&buffer_defaults) = Qt;
 
 #ifdef DOS_NT
   buffer_defaults.buffer_file_type = Qnil; /* TEXT */
@@ -5758,17 +5758,17 @@ Format with `format-mode-line' to produce a string value.  */);
                     doc: /* *Non-nil if searches and matches should ignore case.  */);
 
   DEFVAR_PER_BUFFER ("fill-column", &current_buffer->fill_column_,
-                    make_number (Lisp_Int),
+                    make_number (LISP_INT_TAG),
                     doc: /* *Column beyond which automatic line-wrapping should happen.
 Interactively, you can set the buffer local value using \\[set-fill-column].  */);
 
   DEFVAR_PER_BUFFER ("left-margin", &current_buffer->left_margin_,
-                    make_number (Lisp_Int),
+                    make_number (LISP_INT_TAG),
                     doc: /* *Column for the default `indent-line-function' to indent to.
 Linefeed indents to this column in Fundamental mode.  */);
 
   DEFVAR_PER_BUFFER ("tab-width", &current_buffer->tab_width_,
-                    make_number (Lisp_Int),
+                    make_number (LISP_INT_TAG),
                     doc: /* *Distance between tab stops (for display of tab characters), in columns.  */);
 
   DEFVAR_PER_BUFFER ("ctl-arrow", &current_buffer->ctl_arrow_, Qnil,
@@ -5879,7 +5879,7 @@ If it is nil, that means don't auto-save this buffer.  */);
 Backing up is done before the first time the file is saved.  */);
 
   DEFVAR_PER_BUFFER ("buffer-saved-size", &current_buffer->save_length_,
-                    make_number (Lisp_Int),
+                    make_number (LISP_INT_TAG),
                     doc: /* Length of current buffer when last read in, saved or auto-saved.
 0 initially.
 -1 means auto-saving turned off until next real save.
index 8f4fbfcd2e8ab738d8b6337c81d61b518613c75e..cfe9e037254593d76f19209c6d514c0a130c1a6c 100644 (file)
@@ -799,7 +799,7 @@ struct buffer
   /* *Cursor type to display in non-selected windows.
      t means to use hollow box cursor.
      See `cursor-type' for other values.  */
-  Lisp_Object cursor_in_non_selected_windows;
+  Lisp_Object cursor_in_non_selected_windows_;
 };
 
 #define BUF_CURSOR_IN_NON_SELECTED_WINDOWS(BUF) *find_variable_location (&((BUF)->cursor_in_non_selected_windows_))
index e077edf1a789e84f4415f0a69ed3e3ca7cc74fbb..79ddcf4a5a2dcf1a418bc4cec6bb1614e5c0bb6e 100644 (file)
@@ -87,7 +87,6 @@ Lisp_Object impl_Vscript_representative_chars;
 static Lisp_Object Qchar_script_table;
 
 Lisp_Object impl_Vunicode_category_table;
-
 \f
 
 /* If character code C has modifier masks, reflect them to the
index 010010d8dedfcb6f492254d20c71064d486c478a..8d73bc66028e9905b63b509ec90d49cb15899a22 100644 (file)
@@ -497,8 +497,6 @@ internal_self_insert (c, noautofill)
       hairy = 2;
     }
 
-  if (NILP (BUF_ENABLE_MULTIBYTE_CHARACTERS (current_buffer)))
-    MAKE_CHAR_MULTIBYTE (c);
   synt = SYNTAX (c);
 
   if (!NILP (BUF_ABBREV_MODE (current_buffer))
index efc0bcb96153dd13a38bdc6b37164f673884523a..0f26c9c3af2704ea24eb0a3caefe8ed31fe529b3 100644 (file)
@@ -1039,7 +1039,7 @@ composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string)
     }
   if (NILP (string) && PT > charpos && PT < endpos)
     cmp_it->stop_pos = PT;
-  if (NILP (current_buffer->enable_multibyte_characters)
+  if (NILP (BUF_ENABLE_MULTIBYTE_CHARACTERS (current_buffer))
       || NILP (Vauto_composition_mode))
     return;
   if (bytepos < 0)
@@ -1478,7 +1478,7 @@ composition_adjust_point (last_pt, new_pt)
       return new_pt;
     }
 
-  if (NILP (current_buffer->enable_multibyte_characters)
+  if (NILP (BUF_ENABLE_MULTIBYTE_CHARACTERS (current_buffer))
       || NILP (Vauto_composition_mode))
     return new_pt;
 
@@ -1661,7 +1661,7 @@ See `find-composition' for more details.  */)
 
   if (!find_composition (from, to, &start, &end, &prop, string))
     {
-      if (!NILP (current_buffer->enable_multibyte_characters)
+      if (!NILP (BUF_ENABLE_MULTIBYTE_CHARACTERS (current_buffer))
          && ! NILP (Vauto_composition_mode)
          && find_automatic_composition (from, to, &start, &end, &gstring,
                                         string))
index 4976bd0e169ec93c8eb47253542b8a104e62f2e7..b4e8cb08557a942a50c3af51056ea625f5c9dfbd 100644 (file)
@@ -60,7 +60,7 @@ Lisp_Object QCdbus_type_array, QCdbus_type_variant;
 Lisp_Object QCdbus_type_struct, QCdbus_type_dict_entry;
 
 /* Hash table which keeps function definitions.  */
-Lisp_Object impl_Vdbus_registered_functions_table;
+Lisp_Object impl_Vdbus_registered_objects_table;
 
 /* Whether to debug D-Bus.  */
 Lisp_Object impl_Vdbus_debug;
index 57537d04e62292ff9a54a0583277716ff8a2b6be..eb3b0d9d1e312316900defcda2a326a37d20f004 100644 (file)
@@ -3282,7 +3282,7 @@ save_restriction_restore (data)
                        ? XMARKER (XCAR (data))->buffer
                        : XBUFFER (data));
 
-  if (buf && buf != current_buffer && !NILP (buf->pt_marker))
+  if (buf && buf != current_buffer && !NILP (BUF_PT_MARKER (buf)))
     { /* If `buf' uses markers to keep track of PT, BEGV, and ZV (as
         is the case if it is or has an indirect buffer), then make
         sure it is current before we update BEGV, so
index 81f1dd2343bdb4ad422a3d2238e135c71a280e74..c0e4b631a4e52d5b09cc23c3791e20014a93f339 100644 (file)
@@ -47,6 +47,11 @@ struct backtrace
   char debug_on_exit;
 };
 
+#ifdef DEBUG_GCPRO
+/* Count levels of GCPRO to detect failure to UNGCPRO.  */
+int gcpro_level;
+#endif
+
 Lisp_Object Qautoload, Qmacro, Qexit, Qinteractive, Qcommandp, Qdefun;
 Lisp_Object Qinhibit_quit, impl_Vinhibit_quit, impl_Vquit_flag;
 Lisp_Object Qand_rest, Qand_optional;
index ff4626ca88336ad4330088af20ed7361368f2c1d..a63548a2192c7cb2054992a923a9f8cdfb713a3b 100644 (file)
@@ -4120,7 +4120,7 @@ variable `last-coding-system-used' to the coding system actually used.  */)
 
       SAVE_MODIFF = MODIFF;
       BUF_AUTOSAVE_MODIFF (current_buffer) = MODIFF;
-      XSETFASTINT (current_buffer->save_length, Z - BEG);
+      XSETFASTINT (BUF_SAVE_LENGTH (current_buffer), Z - BEG);
 #ifdef CLASH_DETECTION
       if (NILP (handler))
        {
@@ -5372,7 +5372,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer.  */)
            internal_condition_case (auto_save_1, Qt, auto_save_error);
            auto_saved++;
            BUF_AUTOSAVE_MODIFF (b) = BUF_MODIFF (b);
-           XSETFASTINT (current_buffer->save_length, Z - BEG);
+           XSETFASTINT (BUF_SAVE_LENGTH (current_buffer), Z - BEG);
            set_buffer_internal (old);
 
            EMACS_GET_TIME (after_time);
@@ -5419,7 +5419,7 @@ No auto-save file will be written until the buffer changes again.  */)
   /* FIXME: This should not be called in indirect buffers, since
      they're not autosaved.  */
   BUF_AUTOSAVE_MODIFF (current_buffer) = MODIFF;
-  XSETFASTINT (current_buffer->save_length, Z - BEG);
+  XSETFASTINT (BUF_SAVE_LENGTH (current_buffer), Z - BEG);
   current_buffer->auto_save_failure_time = -1;
   return Qnil;
 }
index 80180b8366854ef6cfff38ba8f524daf7fb837a3..0b96f3289ec46694359f6f3a1525d514781787b1 100644 (file)
@@ -51,7 +51,7 @@
 #define Vcurrent_prefix_arg *find_variable_location (&impl_Vcurrent_prefix_arg)
 #define Vdata_directory *find_variable_location (&impl_Vdata_directory)
 #define Vdbus_debug *find_variable_location (&impl_Vdbus_debug)
-#define Vdbus_registered_functions_table *find_variable_location (&impl_Vdbus_registered_functions_table)
+#define Vdbus_registered_objects_table *find_variable_location (&impl_Vdbus_registered_objects_table)
 #define Vdeactivate_mark *find_variable_location (&impl_Vdeactivate_mark)
 #define Vdebug_ignored_errors *find_variable_location (&impl_Vdebug_ignored_errors)
 #define Vdebug_on_error *find_variable_location (&impl_Vdebug_on_error)
index 4480cc52fbdf370bf85c5482864cf79594d0fef6..19aa87692837e7fefc316403057b4a935c67b7d1 100644 (file)
@@ -5555,15 +5555,6 @@ png_image_p (object)
 
 #ifdef HAVE_PNG
 
-/* png.h has a struct with a field named current_buffer.  */
-#undef current_buffer
-
-#if defined HAVE_LIBPNG_PNG_H
-# include <libpng/png.h>
-#else
-# include <png.h>
-#endif
-
 #ifdef HAVE_NTGUI
 /* PNG library details.  */
 
index 15fe57094dc0f27d205e5e0f946162e0e882a2a5..696e3f6d4f9d2e7a959a106839560e5c2b887478 100644 (file)
@@ -501,6 +501,7 @@ Lisp_Object Qevent_symbol_elements;
 Lisp_Object Qmenu_enable;
 Lisp_Object QCenable, QCvisible, QChelp, QCfilter, QCkeys, QCkey_sequence;
 Lisp_Object QCbutton, QCtoggle, QCradio;
+extern Lisp_Object impl_Vdefine_key_rebound_commands;
 extern Lisp_Object Qmenu_item;
 
 /* An event header symbol HEAD may have a property named
index 0c4bb15551f3b390638b076ab25416bdc261613c..8b7737831be12934a5470b96f4f41bf5a036fa9a 100644 (file)
@@ -1947,8 +1947,8 @@ struct catchtag
   struct gcpro *gcpro;
   jmp_buf jmp;
   struct backtrace *backlist;
-  struct handler *handlerlist;
-  int lisp_eval_depth;
+  struct handler *m_handlerlist;
+  int m_lisp_eval_depth;
   int pdlcount;
   int poll_suppress_count;
   int interrupt_input_blocked;
index 5f3c3d24e2294a9b4957f36c3e5cbc6ad2f04c2c..7560832c82fe6ea5e1aa93ea64b801290b65bef9 100644 (file)
@@ -19,7 +19,7 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #ifndef MENU_H
 #define MENU_H
 
-extern Lisp_Object Vmenu_updating_frame;
+extern Lisp_Object impl_Vmenu_updating_frame;
 
 extern void init_menu_items P_ ((void));
 extern void finish_menu_items P_ ((void));
index bcebca7e572b3f12285e5dc32d2a60d9d4617a70..68e3cd03157b035e0b47b35a6ac4683213ea0ca5 100644 (file)
@@ -3264,7 +3264,7 @@ syms_of_search ()
   Fput (Qinvalid_regexp, Qerror_conditions,
        pure_cons (Qinvalid_regexp, pure_cons (Qerror, Qnil)));
   Fput (Qinvalid_regexp, Qerror_message,
-       build_string ("Invalid regexp"));
+       make_pure_c_string ("Invalid regexp"));
 
   last_thing_searched = Qnil;
   saved_last_thing_searched = Qnil;
index 7a02fb3b8f4675b7333c2b262ee2767cd8865363..5b68da310dd18ebc3f93916ad0e03ce3452205f8 100644 (file)
@@ -250,7 +250,7 @@ extern char syntax_code_spec[16];
 do                                                                     \
   {                                                                    \
     gl_state.use_global = 0;                                           \
-    gl_state.current_syntax_table = current_buffer->syntax_table;      \
+    gl_state.current_syntax_table = BUF_SYNTAX_TABLE (current_buffer);  \
   } while (0)
 
 /* This macro should be called with FROM at the start of forward
index 1165a9622cb7c7c714bc2228b97a8899244dd0cd..74ad6c2376ebbccae48e8d5e28eda0e303f8e3bd 100644 (file)
@@ -1,5 +1,6 @@
 
 #include <config.h>
+#include <setjmp.h>
 #include "lisp.h"
 #include "buffer.h"
 #include "blockinput.h"
@@ -7,6 +8,7 @@
 #include "systime.h"
 #include "sysselect.h"
 
+
 void mark_byte_stack P_ ((struct byte_stack *));
 void mark_backtrace P_ ((struct backtrace *));
 void mark_catchlist P_ ((struct catchtag *));
index a6b0b04a6bcfadeb849042c06cd2ff1802aa44a4..acaa8c5141847a970c712a73a363ebd4a6253fe7 100644 (file)
@@ -18638,8 +18638,11 @@ decode_mode_spec (w, c, field_width, precision, string)
 
     case '@':
       {
-       Lisp_Object val;
-       val = call1 (intern ("file-remote-p"), BUF_DIRECTORY (current_buffer));
+       int count = inhibit_garbage_collection ();
+       Lisp_Object val = call1 (intern ("file-remote-p"),
+                                BUF_DIRECTORY (current_buffer));
+       unbind_to (count, Qnil);
+
        if (NILP (val))
          return "-";
        else