declare smobs in alloc.c

extern lisp.h smobs

better load-path defaults

remove ".elc" from load-suffixes

* src/lread.c (syms_of_lread): Remove ".elc" from load-suffixes.

make_lisp_proc bug

* src/lisp.h (make_lisp_proc): Return the `self' object from the
  structure header. This prevents the allocation of distinct objects
  representing the same process. Thanks to Matt Kramer
  <matt314159@gmail.com> for the report.

disable GC_all_interior_pointers

* src/emacs.c (main): Don't enable `GC_all_interior_pointers'.
* src/eval.c (specpdl_base): New variable.
  (init_eval_once, grow_specpdl): Save the dummy entry preceding the
  specpdl in `specpdl_base'.

cut debugger frames from backtraces

Thanks to Oleg Sivokon <olegsivokon@gmail.com> for the report.

* lisp/emacs-lisp/debug.el (debug-inner-cut): New variable.
  (debug-1): New function extracted from `debug'.
  (debug): Call `debug-1' in a new prompt, binding `debug-inner-cut'
  to the prompt tag.
  (debugger-setup-buffer): Cut the backtrace with `debug-inner-cut'.

print scheme objects unreadably

* src/lread.c (print_object): Print Scheme objects unreadably, instead
  of printing them in Scheme syntax. Thanks to Taylan Ulrich
  Bayırlı/Kammer <taylanbayirli@gmail.com> for the report.

remove use of nested function in map_obarray

* src/lread.c (map_obarray_inner): New function.
  (map_obarray): Remove use of non-standard nested function. Thanks to
  Jaime Fournier <jaimef@linbsd.org> for the bug report.

don't use function-equal in nadvice

* lisp/emacs-lisp/nadvice.el (advice--set-buffer-local): Use `equal'
  instead of `function-equal'.

guile feature

* src/fns.c (syms_of_fns): Add `guile' to `features'.

* configure.ac: Require Guile 2.2.

remove eval-when-compile and eval-and-compile

guile string conversion functions

avoid recursive `require' when loading semantic

always load from source directory

autoloading eval-when forms

don't require grep in vc-git

defun/defmacro autoload generation

guile-elisp defsubst

scheme interaction mode

ignore-errors ignores scheme exceptions

guile-elisp eval-when

remove inline bytecode

* lisp/gnus/gnus-sum.el (gnus-thread-head): Remove inline bytecode.

edebug specs for guile-elisp

misc changes

use guile-elisp macroexpansion

compare symbol names with `equal'

remove `declare' macro

evaluation time changes

make macro errors less verbose

read_menu_command fix

flet/labels support in macroexp

dynwind fixes

Fequal_including_properties fix

fix push/pop

rm not definition

rm commented code

subrp fix

rm cl labels

bytecomp changes

rm lazy macro use

make gnus-byte-compile a nop

rm early use of pcase

remove documentation-string reading hack

lisp_string printer

define `inline' as a macro

* lisp/emacs-lisp/byte-run.el (inline): Define as a macro.

update unidata-gen.el

make Fprogn static

remove bytecode interpreter

* src/bytecode.c: Delete.
  (syms_of_bytecode, exec_byte_code): Removed. All uses changed.

show entire backtrace in `debug'

update nadvice

* lisp/emacs-lisp/nadvice.el (advice--where-alist): Replace literal
  bytecode with equivalent Lisp functions.
  (advice--bytecodes): Remove.
  (advice--p, advice--car, advice--cdr, advice--props,
  advice--make-1): Use procedure properties, etc.

* lisp/emacs-lisp/byte-run.el (defun): Set name after definition.

* src/profiler.c: Delete.

remove backtrace functions

* src/eval.c (backtrace_function, backtrace_nargs, backtrace_args)
  (backtrace_debug_on_exit, set_backtrace_args)
  (set_backtrace_debug_on_exit, backtrace_p, backtrace_top)
  (backtrace_next, do_debug_on_call, record_in_backtrace)
  (Fbacktrace_debug, Fbacktrace, get_backtrace_frame)
  (Fbacktrace_frame, backtrace_eval_unrewind, Fbacktrace_eval)
  (get_backtrace, backtrace_top_function, Vsignaling_function):
  Remove. All references changed.

* src/lisp.h (SPECPDL_BACKTRACE): Remove. All references changed.

remove ident string

guile-elisp bootstrap (lisp)

* lisp/abbrev.el: Remove use of cl-lib functions.
* lisp/frame.el: Remove use of cl-lib functions.
* lisp/international/mule-cmds.el: Remove use of cl-lib functions.
* lisp/minibuffer.el: Remove uses of cl-lib functions.

* lisp/byte-run.el: (defun-declarations-alist)
  (macro-declarations-alist): Define at compile time.

* lisp/faces.el: Move face-listing code to "faces2.el".
* lisp/faces2.el: New file.

* lisp/files.el: Move minibuffer-with-setup-hook to subr.el.

* lisp/help.el: Move definition of with-help-window.

* lisp/international/mule.el: Define temporary defcustom macro.

* lisp/jka-cmpr-hook.el: Disable auto-compression-mode.

* lisp/loadup.el: Load mule and mule-conf earlier. Load gv
  explicitly. Load subr2, derived, easy-mmode, cl-lib, cl-macs,
  help-macro, help-fns, faces2, ccl, and kmacro explicitly.

* lisp/simple.el: Move defs of internal-push-keymap,
  internal-pop-keymap, set-temporary-overlay-map from subr.el.

* lisp/subr.el (push): Use eval after loading macros.
  (dolist): Remove.
  (with-current-buffer, with-temp-buffer): Move definitions earlier.
  (with-demoted-errors): Use `progn' instead of `macroexp-progn'.
  (called-interactively-p-functions, called-interactively-p,
  interactive-p): Move to "subr2.el".
* lisp/subr2.el: New file.

charset map entries are pointerless

* src/charset.c (charset_map_entries): Make `entry' field a pointer
  instead of an array. All uses changed.

guile-elisp bootstrap part (C)

* src/data.c (Finteractive_form): Switch order of COMPILEDP and
  scm_procedure_p tests.

* src/doc.c (Fdocumentation): Switch order of COMPILEDP and
  scm_procedure_p tests.

* src/eval.c (init_eval_once): Make smobs applicable.
  (eval_sub_1): Wrap eval_fn, plus a quit.

  (Ffuncall1): Make static.
  (apply_lambda): Don't eval_sub args. Don't set backtrace.

icc_lisp_handler fix

guile-elisp bootstrap (C)

* src/data.c (Fsetq_default): Remove

* src/editfns.c (Fsave_excursion, Fsave_current_buffer)
  (Fsave_restriction): Change to functions taking thunks as arguments.

* src/eval.c (eval_fn, funcall_fn): New variables.
  (init_eval_once): Increase initial vales of max_specpdl_size and
  max_lisp_eval_depth. Define eval_fn and funcall_fn.
  (Fif, Fsetq, Fquote): Remove.
  (Ffunction): Don't define as DEFUN.
  Whitespace change.
  (Fdefvar, Fdefconst, FletX, Flet): Remove.
  (Fcatch): Take thunk as evaluated argument.
  (Funwind_protect): Remove.
  (Fcondition_case): Replace with Fcall_with_handler.
  (eval_sub_1): Only supported compiled and Scheme procedures.
  (Fapply): Don't define as DEFUN.
  (Ffuncall1): Don't define as DEFUN. Just call funcall_fn.
  (syms_of_eval): Don't unintern internal-interpreter-environment.

* src/fns.c (Fwidget_apply): Call `apply' instead of Fapply.

* src/keyboard.c (Ftrack_mouse): Take thunk as evaluated argument.

* src/lisp.h (WRAP1): Define a global symbol for the wrapped function.

guile-elisp bootstrap (C)

* src/alloc.c (allocate_string): Return a Lisp_Object. All callers changed.

  (allocate_string_data): Take a Lisp_Object as first argument. All
  callers changed.

* src/callint.c (Finteractive): Remove.

* src/data.c (Finteractive_form): Handle a nil interactive-form
  correctly.

* src/emacs.c (main2): Set `lisp-string?'.

* src/eval.c (Fwhile): Remove.

  (Fcommandp): Handle a nil interactive-form correctly.

* src/lisp.h (struct Lisp_String): Move definition.

Ffboundp declaration

guile-elisp bootstrap (C)

* src/alloc.c (initialize_symbol): Remove. All callers changed.

* src/data.c (Ffboundp, Fmakunbound, Ffmakunbound, Fsymbol_function)
  (Ffset): Call the corresponding Guile-Elisp functions.
  (Fbind_symbol): New function.

* src/emacs.c (string_from_scheme): New function.
  (main2): Resolve modules instead of defining them.
  Set `make-lisp-string'. Call `emacs!'.

* src/eval.c (For, Fand, Fcond, Fprog1, Fprog2, Fbind_symbol): Remove.

* src/lisp.h (XSYMBOL): Use `symbol-desc' from Guile-Elisp.
  (SYMBOL_NAME, SYMBOL_INTERNED_P, SYMBOL_FUNCTION):
  (WRAP1, WRAP2): New macros.
  (set_symbol_function, symbol_plist, set_symbol_plist): Call the
  corresponding Guile-Elisp function.

* lread.c (init_obarray): Use Guile-Elisp's unbound symbol object.
  (Ffind_symbol): Return the symbol if it is present in the obarray.

disable byte-compilation

* src/lread.c (oblookup): Remove. All callers changed.

use vectors for symbol slots

* src/alloc.c (initialize_symbol): Use Guile vectors to store symbol
  slots.

* src/lisp.h (lisp_h_SET_SYMBOL_VAL, lisp_h_SYMBOL_CONSTANT_P)
  (lisp_h_SYMBOL_VAL): Use Guile vectors to store symbol slots.
  (sym_t): New typedef.
  (SYMBOL_SELF, SET_SYMBOL_SELF, SYMBOL_REDIRECT, SET_SYMBOL_REDIRECT)
  (SYMBOL_CONSTANT, SET_SYMBOL_CONSTANT, SYMBOL_DECLARED_SPECIAL)
  (SET_SYMBOL_DECLARED_SPECIAL): New macros.
  (struct Lisp_Symbol): Change all field names. All references changed
  to use `sym_t' and the above macros instead.

remove sigio blocking

* src/sysdep.c (request_sigio, unrequest_sigio): Remove. All callers
  changed.

remove polling suppression

* src/eval.c (struct catchtag): Remove `poll_suppress_count'
  field. All references changed.

* src/keyboard.c (poll_suppress_count, stop_polling,
  set_poll_suppress_count, STOP_POLLING, RESUME_POLLING): Remove. All
  references changed.
  (wait_reading_process_output): Turn on atimers unconditionally.

delete_temp_file fix

* src/callproc.c (delete_temp_file_ptr): New function.
  (call_process_kill): Use it.

* src/eval.c (Fbind_symbol): New function.

use guile subrs

* src/data.c (Qspecial_operator): New variable.
  (CHECK_SUBR, Ftype_of, Fsubrp, Fsubr_arity, Finteractive_form):
  Update for new subr representation.

* src/emacs.c (main2): Call `syms_of_data' early.

* src/lisp.h (XSUBR, SUBRP): Remove. All callers changed.
  (DEFUN): Define subrs as Guile procedures.
  (functionp): Update for new subr representation.

* src/lread.c (defsubr): Update for new subr representation. Take
  relevant subr properties as direct arguments instead of accepting a
  `Lisp_Subr' struct; all callers changed.

* src/doc.c (Fdocumentation, store_function_docstring):
* src/eval.c (Fcommandp, eval_sub_1, Fapply, Ffuncall1):
* src/print.c (print_object):
* src/xmenu.c: Update for new subr representation.

use #nil and #t

callable guile procs

* src/eval.c (eval_sub_1, Ffuncall):
* src/lisp.h (functionp): Add support for calling Guile procedures.

[SQUASH] symbol

* src/lisp.h (SYMBOL_INTERNED_IN_INITIAL_OBARRAY_P): Move...
* src/data.c (SYMBOL_INTERNED_IN_INITIAL_OBARRAY_P): ...here, and
  update for Guile.
* src/lisp.h (SYMBOL_INTERNED_P): Use `scm_symbol_interned_p'.

[SQUASH] rm symbol name

* src/alloc.c (set_symbol_name): Remove. All callers changed.
  (SYMBOL_NAME): Return Guile symbol name.

plist module

symbol plist accessor

* admin/coccinelle/symbol_accessors.cocci (symbol_plist): New.

function split

* admin/coccinelle/symbol_accessors.cocci: New file.

use guile obarrays

* src/alloc.c (initialize_symbol): New function, extracted from
  `Fmake_symbol'.
  (Fmake_symbol): Use `scm_make_symbol'.
* src/emacs.c (main2): Define a symbol module.
* src/lisp.h (SYMBOLP, XSYMBOL): Update.
  (set_symbol_next): Remove. All callers changed.
* src/lread.c (obhash): New function.
  (Fintern, Fintern_soft, Funintern, oblookup, map_obarray): Use Guile
  obarrays.
  (init_obarray): Initialize a hash table of obarrays.
* src/lread.c (Ffind_symbol): New function.

multiple values

* src/eval.c (values_to_list, Fmultiple_value_call, Fvalues)
  (eval_sub_1, Ffuncall1): New functions.
  (eval_sub, Ffuncall): Return only the first value.

Lisp completion functions

* src/minibuf.c (minibuf_conform_representation, Ftry_completion)
  (Fall_completions, Ftest_completion, Finternal_complete_buffer):
  Rewrite in Lisp and move...
* lisp/minibuffer.el (minibuf-conform-representation, try-completion)
  (all-completions, test-completion, internal-complete-buffer):
  ...here.

[TMP] enable load_prefer_newer

use scm_boot_guile

* src/emacs.c (main2): Renamed from `main'.
  (main): Use `scm_boot_guile'.

fix lwlib makefile

* lwlib/Makefile.in: Update for Guile.
  Patch provided by Mark H. Weaver <mhw@netris.org>.

eval-scheme command

* src/fns.c (Feval_scheme): New function.

handle guile exceptions

* src/keyboard.c (command_loop_2_body, command_loop_2_handler)
  (command_loop_2_inner): New functions.
  (top_level_2): Rename to 'top_level_2_body'.
  (command_loop_2, top_level_2): Use the above functions to catch
  Guile exceptions during initialization and in the command loop.

printing support for Guile objects

* src/print.c (print_object): Use `scm_display' to print Scheme
  objects.

add Lisp_Other type

* src/lisp.h (Lisp_Other): New `Lisp_Type'.
  (XTYPE): Return `Lisp_Other' for objects of an unknown type.

use libguile dynamic wind + c pseudo-closures

* src/eval.c (specpdl_arg): Remove.
  (set_catchlist, set_handlerlist, restore_catchtag): New functions.
  (internal_catch, internal_lisp_condition_case)
  (internal_condition_case, internal_condition_case_1)
  (internal_condition_case_2, internal_condition_case_n): Use
  `call_with_prompt'.
  (unwind_to_catch): Use `abort_to_prompt'.
  (set_lisp_eval_depth): New function.

  (record_in_backtrace): Set an unwind handler to remove the backtrace
  entry.

  (eval_sub, Ffuncall, specbind, record_unwind_protect_ptr_1): Use
  Guile unwind handlers.

  (call_void): New function.

  (record_unwind_protect_1, record_unwind_protect_int_1)
  (record_unwind_protect_void_1): Use `record_unwind_protect_ptr_1'.

  (unbind_once): Now static. Remove support for `SPECPDL_UNWIND',
  `SPECPDL_UNWIND_PTR', `SPECPDL_UNWIND_INT' and `SPECPDL_UNWIND_VOID'
  specpdl entries.

  (dynwind_begin): Use `scm_dynwind_begin'.
  (dynwind_end): Use `scm_dynwind_end'.

  (unbind_to_1, unbind_to): Remove.

  (backtrace_eval_unrewind): Remove support for `SPECPDL_UNWIND',
  `SPECPDL_UNWIND_PTR', `SPECPDL_UNWIND_INT' and `SPECPDL_UNWIND_VOID'
  specpdl entries.

  (abort_to_prompt, call_with_prompt, make_prompt_tag): New functions.

  (struct handler, struct catchtag): Moved from "lisp.h".

  src/keyboard.c (save_getcjmp, restore_getcjmp): Remove.

  (read_event_from_main_queue, read_decoded_event_from_main_queue)
  (read_char, read_char_1, quit_throw_to_read_char): Use delimited
  continuations instead of `setjmp' and `longjmp'.

* src/lisp.h (SPECPDL_FRAME, SPECPDL_UNWIND, SPECPDL_UNWIND_PTR)
  (SPECPDL_UNWIND_INT, SPECPDL_UNWIND_VOID): Remove. All references
  changed.

  (struct handler, struct catchtag): Move to "eval.c".

--------------------------------------------------

* src/emacs.c (main2): Call `init_guile'.

* src/eval.c (icc_thunk, icc_handler, icc_handler_n)
  (icc_lisp_handler): New functions.

  (internal_catch, internal_lisp_condition_case)
  (internal_condition_case, internal_condition_case_1)
  (internal_condition_case_2, internal_condition_case_n): Use
  `make_c_closure' and the above functions.

* src/guile.c: New file.
  (make_c_closure, apply_c_closure, init_guile): New functions.

* src/keyboard.c (read_char_thunk, read_char_handle_quit): New
  functions.
  (read_char): Use `make_c_closure' and the above functions.

rm specpdl check in bytecode interpreter

dynwind fixes

disable new catch/condition-case instructions

use dynwind_begin and dynwind_end

This patch was generated using Coccinelle.

coccinelle scripts for dynwind

* admin/coccinelle/double_unbind.cocci:
* admin/coccinelle/dynwind.cocci:
* admin/coccinelle/int_specpdl.cocci:
* admin/coccinelle/macros.h: New files.

coccinelle skip comments

* src/bytecode.c (exec_byte_code):
* src/keyboard.c (read_char, read_char_1):
* src/print.c (PRINTDECLARE, PRINTPREPARE, PRINTFINISH, PRINTCHAR):
  Skip these functions and macros in Coccinelle.

use dynwind_begin and dynwind_end

This commit only changes uses of `SPECPDL_INDEX' and `unbind_to' that
could not be easily converted using Coccinelle.

simplify cpp usage in wait_reading_process_output