;; 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"
(eq system-type 'ms-dos))
((string-match "\\`w32-" (symbol-name symbol))
(eq system-type 'windows-nt))
- ((string-match "\\`mac-" (symbol-name symbol))
- (eq window-system 'mac))
+ ((string-match "\\`mac-" (symbol-name symbol))
+ (or (eq system-type 'mac) (eq system-type 'darwin)))
((string-match "\\`x-.*gtk" (symbol-name symbol))
- (or (boundp 'gtk)
- (and window-system
- (not (eq window-system 'pc))
- (not (eq window-system 'mac))
- (not (eq system-type 'windows-nt)))))
+ (featurep 'gtk))
((string-match "\\`x-" (symbol-name symbol))
(fboundp 'x-create-frame))
((string-match "selection" (symbol-name symbol))