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")