;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
:value (undecided . undecided)
(coding-system :tag "Decoding")
(coding-system :tag "Encoding"))
- (coding-system :tag "Single coding system"
- :value undecided)
+ (coding-system
+ :tag "Single coding system"
+ :value undecided
+ :match (lambda (widget value)
+ (and value (not (functionp value)))))
(function :value ignore))))
(selection-coding-system mule coding-system)
;; dired.c
;; eval.c
(max-specpdl-size limits integer)
(max-lisp-eval-depth limits integer)
+ (max-mini-window-height limits
+ (choice (const :tag "quarter screen" nil)
+ number))
(stack-trace-on-error debug
(choice (const :tag "off")
(repeat :menu-tag "When"
(even-window-heights windows boolean)
(next-screen-context-lines windows integer)
(split-height-threshold windows integer)
+ (split-window-preferred-function
+ windows
+ (choice (const :tag "vertically" split-window)
+ ;; FIXME: Add `sensibly' which chooses between
+ ;; vertical or horizontal splits depending on the size
+ ;; and shape of the window.
+ (const :tag "horizontally"
+ (lambda (window)
+ (split-window window nil 'horiz)))))
(window-min-height windows integer)
(window-min-width windows integer)
(scroll-preserve-screen-position
(unless purify-flag
(provide 'cus-start))
-;;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60
+;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60
;;; cus-start.el ends here