--- a/components/vim/vim72-patches/7.2.320 Thu Jul 07 19:05:29 2011 -0700
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,199 +0,0 @@
-To: [email protected]
-Subject: Patch 7.2.320
-Fcc: outbox
-From: Bram Moolenaar <[email protected]>
-Mime-Version: 1.0
-Content-Type: text/plain; charset=UTF-8
-Content-Transfer-Encoding: 8bit
-------------
-
-Patch 7.2.320
-Problem: Unused function in Mzscheme interface.
-Solution: Remove the function and what depends on it. (Dominique Pelle)
-Files: src/if_mzsch.c, src/proto/if_mzsch.pro
-
-
-*** ../vim-7.2.319/src/if_mzsch.c 2009-09-11 12:20:47.000000000 +0200
---- src/if_mzsch.c 2009-12-16 19:01:04.000000000 +0100
-***************
-*** 70,83 ****
- Scheme_Object *port;
- } Port_Info;
-
-- /* info for do_apply */
-- typedef struct
-- {
-- Scheme_Object *proc;
-- int argc;
-- Scheme_Object **argv;
-- } Apply_Info;
--
- /*
- *========================================================================
- * Vim-Control Commands
---- 70,75 ----
-***************
-*** 160,166 ****
- static Scheme_Object *extract_exn_message(Scheme_Object *v);
- static Scheme_Object *do_eval(void *, int noargc, Scheme_Object **noargv);
- static Scheme_Object *do_load(void *, int noargc, Scheme_Object **noargv);
-- static Scheme_Object *do_apply(void *, int noargc, Scheme_Object **noargv);
- static void register_vim_exn(void);
- static vim_mz_buffer *get_buffer_arg(const char *fname, int argnum,
- int argc, Scheme_Object **argv);
---- 152,157 ----
-***************
-*** 1056,1062 ****
- MZ_GC_REG();
- config = scheme_config;
- MZ_GC_CHECK();
-! /* recreate ports each call effectivelly clearing these ones */
- curout = scheme_make_string_output_port();
- MZ_GC_CHECK();
- curerr = scheme_make_string_output_port();
---- 1047,1053 ----
- MZ_GC_REG();
- config = scheme_config;
- MZ_GC_CHECK();
-! /* recreate ports each call effectively clearing these ones */
- curout = scheme_make_string_output_port();
- MZ_GC_CHECK();
- curerr = scheme_make_string_output_port();
-***************
-*** 1196,1231 ****
- }
- }
-
-- /*
-- * apply MzScheme procedure with arguments,
-- * handling errors
-- */
-- Scheme_Object *
-- mzvim_apply(Scheme_Object *proc, int argc, Scheme_Object **argv)
-- {
-- if (mzscheme_init())
-- return FAIL;
-- else
-- {
-- Apply_Info data = {NULL, 0, NULL};
-- Scheme_Object *ret = NULL;
--
-- MZ_GC_DECL_REG(5);
-- MZ_GC_VAR_IN_REG(0, ret);
-- MZ_GC_VAR_IN_REG(1, data.proc);
-- MZ_GC_ARRAY_VAR_IN_REG(2, data.argv, argc);
-- MZ_GC_REG();
--
-- data.proc = proc;
-- data.argc = argc;
-- data.argv = argv;
--
-- eval_with_exn_handling(&data, do_apply, &ret);
-- MZ_GC_UNREG();
-- return ret;
-- }
-- }
--
- static Scheme_Object *
- do_load(void *data, int noargc, Scheme_Object **noargv)
- {
---- 1187,1192 ----
-***************
-*** 1257,1263 ****
- MZ_GC_CHECK();
- }
-
-! /* errors will be caught in do_mzscheme_comamnd and ex_mzfile */
- scheme_close_input_port(pinfo->port);
- MZ_GC_CHECK();
- pinfo->port = NULL;
---- 1218,1224 ----
- MZ_GC_CHECK();
- }
-
-! /* errors will be caught in do_mzscheme_command and ex_mzfile */
- scheme_close_input_port(pinfo->port);
- MZ_GC_CHECK();
- pinfo->port = NULL;
-***************
-*** 1348,1360 ****
- return scheme_eval_string_all((char *)s, environment, TRUE);
- }
-
-- static Scheme_Object *
-- do_apply(void *a, int noargc, Scheme_Object **noargv)
-- {
-- Apply_Info *info = (Apply_Info *)a;
-- return scheme_apply(info->proc, info->argc, info->argv);
-- }
--
- /*
- *========================================================================
- * 3. MzScheme I/O Handlers
---- 1309,1314 ----
-***************
-*** 2128,2134 ****
- static Scheme_Object *
- set_buffer_line(void *data, int argc, Scheme_Object **argv)
- {
-! /* First of all, we check the the of the supplied MzScheme object.
- * There are three cases:
- * 1. #f - this is a deletion.
- * 2. A string - this is a replacement.
---- 2082,2088 ----
- static Scheme_Object *
- set_buffer_line(void *data, int argc, Scheme_Object **argv)
- {
-! /* First of all, we check the value of the supplied MzScheme object.
- * There are three cases:
- * 1. #f - this is a deletion.
- * 2. A string - this is a replacement.
-***************
-*** 2428,2434 ****
- /*
- * (insert-buff-line-list {linenr} {string/string-list} [buffer])
- *
-! * Insert a number of lines into the specified buffer after the specifed line.
- * The line number is in Vim format (1-based). The lines to be inserted are
- * given as an MzScheme list of string objects or as a single string. The lines
- * to be added are checked for validity and correct format. Errors are
---- 2382,2388 ----
- /*
- * (insert-buff-line-list {linenr} {string/string-list} [buffer])
- *
-! * Insert a number of lines into the specified buffer after the specified line.
- * The line number is in Vim format (1-based). The lines to be inserted are
- * given as an MzScheme list of string objects or as a single string. The lines
- * to be added are checked for validity and correct format. Errors are
-*** ../vim-7.2.319/src/proto/if_mzsch.pro 2009-05-26 22:58:43.000000000 +0200
---- src/proto/if_mzsch.pro 2009-12-16 19:01:01.000000000 +0100
-***************
-*** 13,20 ****
- void mzvim_check_threads __ARGS((void));
- void mzvim_reset_timer __ARGS((void));
- void *mzvim_eval_string __ARGS((char_u *str));
-- struct Scheme_Object *mzvim_apply __ARGS((struct Scheme_Object *, int argc,
-- struct Scheme_Object **));
- int mzthreads_allowed __ARGS((void));
- void mzscheme_main __ARGS((void));
- /* vim: set ft=c : */
---- 13,18 ----
-*** ../vim-7.2.319/src/version.c 2009-12-16 18:49:09.000000000 +0100
---- src/version.c 2009-12-16 18:53:48.000000000 +0100
-***************
-*** 683,684 ****
---- 683,686 ----
- { /* Add new patch number below this line */
-+ /**/
-+ 320,
- /**/
-
---
-hundred-and-one symptoms of being an internet addict:
-38. You wake up at 3 a.m. to go to the bathroom and stop and check your e-mail
- on the way back to bed.
-
- /// Bram Moolenaar -- [email protected] -- http://www.Moolenaar.net \\\
-/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
-\\\ download, build and distribute -- http://www.A-A-P.org ///
- \\\ help me help AIDS victims -- http://ICCF-Holland.org ///