Mercurial > emacs
comparison lisp/cus-start.el @ 95590:9a4b27c8feec
* 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.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 05 Jun 2008 18:00:36 +0000 |
parents | ee5932bf781d |
children | 82a0e6885715 |
comparison
equal
deleted
inserted
replaced
95589:4f530a89d1ee | 95590:9a4b27c8feec |
---|---|
300 since it could result in memory overflow and make Emacs crash." | 300 since it could result in memory overflow and make Emacs crash." |
301 nil)) | 301 nil)) |
302 "22.1") | 302 "22.1") |
303 ;; window.c | 303 ;; window.c |
304 (temp-buffer-show-function windows (choice (const nil) function)) | 304 (temp-buffer-show-function windows (choice (const nil) function)) |
305 (display-buffer-function windows (choice (const nil) function)) | |
306 (pop-up-frames frames boolean) | |
307 (pop-up-frame-function frames function) | |
308 (special-display-buffer-names | |
309 frames | |
310 (repeat (choice :tag "Buffer" | |
311 :value "" | |
312 (string :format "%v") | |
313 (cons :tag "With attributes" | |
314 :format "%v" | |
315 :value ("" . nil) | |
316 (string :format "%v") | |
317 (repeat :tag "Attributes" | |
318 (cons :format "%v" | |
319 (symbol :tag "Parameter") | |
320 (sexp :tag "Value"))))))) | |
321 (special-display-regexps | |
322 frames | |
323 (repeat (choice :tag "Buffer" | |
324 :value "" | |
325 (regexp :format "%v") | |
326 (cons :tag "With attributes" | |
327 :format "%v" | |
328 :value ("" . nil) | |
329 (regexp :format "%v") | |
330 (repeat :tag "Attributes" | |
331 (cons :format "%v" | |
332 (symbol :tag "Parameter") | |
333 (sexp :tag "Value"))))))) | |
334 (special-display-function frames function) | |
335 (same-window-buffer-names windows (repeat (string :format "%v"))) | |
336 (same-window-regexps windows (repeat (regexp :format "%v"))) | |
337 (pop-up-windows windows boolean) | |
338 (even-window-heights windows boolean) | |
339 (next-screen-context-lines windows integer) | 305 (next-screen-context-lines windows integer) |
340 (split-height-threshold windows integer) | |
341 (split-window-preferred-function | |
342 windows | |
343 (choice (const :tag "vertically" nil) | |
344 ;; FIXME: Add `sensibly' which chooses between | |
345 ;; vertical or horizontal splits depending on the size | |
346 ;; and shape of the window. | |
347 (const :tag "horizontally" | |
348 split-window-preferred-horizontally)) | |
349 "23.1") | |
350 (window-min-height windows integer) | 306 (window-min-height windows integer) |
351 (window-min-width windows integer) | 307 (window-min-width windows integer) |
352 (scroll-preserve-screen-position | 308 (scroll-preserve-screen-position |
353 windows (choice | 309 windows (choice |
354 (const :tag "Off (nil)" :value nil) | 310 (const :tag "Off (nil)" :value nil) |
355 (const :tag "Full screen (t)" :value t) | 311 (const :tag "Full screen (t)" :value t) |
356 (other :tag "Always" 1)) "22.1") | 312 (other :tag "Always" 1)) "22.1") |
357 (display-buffer-reuse-frames windows boolean "21.1") | |
358 ;; xdisp.c | 313 ;; xdisp.c |
359 (scroll-step windows integer) | 314 (scroll-step windows integer) |
360 (scroll-conservatively windows integer) | 315 (scroll-conservatively windows integer) |
361 (scroll-margin windows integer) | 316 (scroll-margin windows integer) |
362 (hscroll-margin windows integer "22.1") | 317 (hscroll-margin windows integer "22.1") |