diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-05 18:00:36 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-05 18:00:36 +0000 |
commit | 87478b52f95d5519a94ed5d0ba95520dd443e752 (patch) | |
tree | 81861a7e1e13e25e7d49a77d26dc5f50a5d2a15a /src/dispnew.c | |
parent | 9e0e0d77da7a2726e7d718d4f303b1f5a6444b28 (diff) | |
download | emacs-87478b52f95d5519a94ed5d0ba95520dd443e752.tar.gz emacs-87478b52f95d5519a94ed5d0ba95520dd443e752.tar.bz2 emacs-87478b52f95d5519a94ed5d0ba95520dd443e752.zip |
* window.el (display-buffer-function, special-display-p)
(special-display-buffer-names, special-display-regexps)
(special-display-function, same-window-p, same-window-buffer-names)
(same-window-regexps, pop-up-frames, display-buffer-reuse-frames)
(pop-up-frame-function, pop-up-windows)
(split-window-preferred-function, split-height-threshold)
(split-width-threshold, window--splittable-p)
(window--try-to-split-window, window--frame-usable-p)
(even-window-heights, window--even-window-heights)
(window--display-buffer-1, window--display-buffer-2, display-buffer)
(pop-to-buffer): Move from window.c and buffer.c.
(split-window-preferred-horizontally): Remove.
* cus-start.el: Remove corresponding declarations.
* window.c (pop_up_windows, pop_up_frames)
(display_buffer_reuse_frames, Vpop_up_frame_function)
(Vdisplay_buffer_function, Veven_window_heights)
(Vspecial_display_buffer_names, Vspecial_display_regexps)
(Vspecial_display_function, Vsame_window_buffer_names)
(Vsame_window_regexps, split_height_threshold)
(Vsplit_window_preferred_function): Move those vars to window.el.
(display_buffer_1, Fspecial_display_p, Fsame_window_p)
(Fdisplay_buffer): Move those functions to window.el.
(syms_of_window): Remove corresponding declarations.
(display_buffer): New function.
(temp_output_buffer_show, Fother_window_for_scrolling): Use it.
* dispnew.c (Flast_nonminibuf_frame): New function.
* buffer.c (Fpop_to_buffer): Move to window.el.
Diffstat (limited to 'src/dispnew.c')
-rw-r--r-- | src/dispnew.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 82541987908..0867c2eccbe 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -7061,6 +7061,17 @@ WINDOW nil or omitted means report on the selected window. */) return w->cursor_off_p ? Qnil : Qt; } +DEFUN ("last-nonminibuffer-frame", Flast_nonminibuf_frame, + Slast_nonminibuf_frame, 0, 0, 0, + doc: /* Value is last nonminibuffer frame. */) + () +{ + Lisp_Object frame; + + XSETFRAME (frame, last_nonminibuf_frame); + + return frame; +} /*********************************************************************** Initialization @@ -7079,6 +7090,7 @@ syms_of_display () defsubr (&Ssend_string_to_terminal); defsubr (&Sinternal_show_cursor); defsubr (&Sinternal_show_cursor_p); + defsubr (&Slast_nonminibuf_frame); #if GLYPH_DEBUG defsubr (&Sdump_redisplay_history); |