annotate lib-src/ad2c @ 1149:a123f88fa975

[xemacs-hg @ 2002-12-08 10:24:33 by michaels] 2002-12-02 Mike Sperber <mike@xemacs.org> * The Great Window Configuration rewrite: Re-implement window configuration functionality in Emacs Lisp. * window.h (Fcurrent_window_configuration): Don't export anymore. (Qcurrent_window_configuration): Declare. (Qset_window_configuration): Declare. * event-stream.c (execute_help_form): * bytecode.c (execute_rare_opcode): Call out to Lisp to save window excursion. * window.c (Qcurrent_window_configuration): Declare. (Qwindow_configurationp): (Vwindow_configuration_free_list): (Qset_window_configuration): (Qtemp_buffer_show_hook): (struct saved_window): (struct window_config): (SAVED_WINDOW_N): (XWINDOW_CONFIGURATION): (wrap_window_configuration): (WINDOW_CONFIGURATIONP): (CHECK_WINDOW_CONFIGURATION): (mark_window_config): (sizeof_window_config_for_n_windows): (sizeof_window_config): (print_window_config): (saved_window_equal): (window_config_equal): (Fwindow_configuration_p): (mark_windows_in_use_closure): (mark_windows_in_use): (free_window_configuration): (Fset_window_configuration): (count_windows): (saved_window_index): (save_window_save): (Fcurrent_window_configuration): (Fsave_window_excursion): Remove. (mark_window_as_deleted): Rectify comment about `set-window-configuration'. (Fset_window_buffer): Reinstate code not activated because of old implementation of window configurations. (temp_output_buffer_show): Don't run `temp-buffer-show-hook' anymore---this wasn't supposed to happen anyway according to the documentation of `temp-buffer-show-function'. (reinit_vars_of_window): Don't do the window configuration stuff no more (vars_of_window): Don't set up `temp-buffer-show-hook' any more. 2002-12-02 Mike Sperber <mike@xemacs.org> * The Great Window Configuration rewrite: Re-implement window configuration functionality in Emacs Lisp. * window-xemacs.el (current-window-configuration): (set-window-configuration): (plus many functions they depend on) Re-implement window configurations in Emacs Lisp.
author michaels
date Sun, 08 Dec 2002 10:25:14 +0000
parents 376386a54a3c
children ac2d302a0011 26a007fa2f4c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 #!/bin/sh
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 # ad2c : Convert app-defaults file to C strings decls.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 # George Ferguson, ferguson@cs.rcohester.edu, 12 Nov 1990.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 # 19 Mar 1991 : gf
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 # Made it self-contained.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 # 6 Jan 1992 : mycroft@gnu.ai.mit.edu (Charles Hannum)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 # Removed use of "-n" and ":read" label since Gnu and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 # IBM sed print pattern space on "n" command. Still works
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 # with Sun sed, of course.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 # 7 Jan 1992: matthew@sunpix.East.Sun.COM (Matthew Stier)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 # Escape quotes after escaping backslashes.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 # Synched up with: Not in FSF.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 sed '
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 /^!/d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 /^$/d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 s/\\/\\\\/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 s/\\$//g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 s/"/\\"/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 s/^/"/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 : test
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 /\\$/b slash
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 s/$/",/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 p
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 : slash
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 n
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 /^!/d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 /^$/d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 s/"/\\"/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 s/\\\\/\\/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 s/\\n/\\\\n/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 s/\\t/\\\\t/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 s/\\f/\\\\f/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 s/\\b/\\\\b/g
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 b test' "$@"