;;; cus-start.el --- define customization properties of builtins
;;
;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: internal
;;; Code:
-(let ((all '(;; abbrev.c
- (abbrev-all-caps abbrev-mode boolean)
- (pre-abbrev-expand-hook abbrev-mode hook)
- ;; alloc.c
+(let ((all '(;; alloc.c
(gc-cons-threshold alloc integer)
(garbage-collection-messages alloc boolean)
;; buffer.c
- (mode-line-format modeline sexp) ;Hard to do right.
+ (mode-line-format mode-line sexp) ;Hard to do right.
(default-major-mode internal function)
(enable-multibyte-characters mule boolean)
(case-fold-search matching boolean)
(scroll-down-aggressively windows
(choice (const :tag "off" nil) number)
"21.1")
- (line-spacing display (choice (const :tag "none" nil) integer))
+ (line-spacing display (choice (const :tag "none" nil) integer)
+ "22.1")
;; callint.c
(mark-even-if-inactive editing-basics boolean)
;; callproc.c
:match (lambda (widget value)
(and value (not (functionp value)))))
(function :value ignore))))
- (selection-coding-system mule coding-system)
;; dired.c
(completion-ignored-extensions dired
(repeat (string :format "%v")))
(max-lisp-eval-depth limits integer)
(max-mini-window-height limits
(choice (const :tag "quarter screen" nil)
- number))
+ number) "23.1")
(stack-trace-on-error debug
(choice (const :tag "off")
(repeat :menu-tag "When"
:value (nil)
(symbol :format "%v"))
(const :tag "always" t)))
- ;; fileio.c
- (insert-default-directory minibuffer boolean)
- (read-file-name-completion-ignore-case minibuffer boolean "22.1")
;; fns.c
(use-dialog-box menu boolean "21.1")
(use-file-dialog menu boolean "22.1")
+ (focus-follows-mouse frames boolean "20.3")
;; frame.c
(default-frame-alist frames
(repeat (cons :format "%v"
(sexp :tag "Value"))))
(mouse-highlight mouse (choice (const :tag "disabled" nil)
(const :tag "always shown" t)
- (other :tag "hidden by keypress" 1)))
+ (other :tag "hidden by keypress" 1))
+ "22.1")
;; fringe.c
(overflow-newline-into-fringe fringe boolean)
;; indent.c
(polling-period keyboard integer)
(double-click-time mouse (restricted-sexp
:match-alternatives (integerp 'nil 't)))
- (double-click-fuzz mouse integer)
+ (double-click-fuzz mouse integer "22.1")
(inhibit-local-menu-bar-menus menu boolean)
(help-char keyboard character)
(help-event-list keyboard (repeat (sexp :format "%v")))
;;; (const :tag " current dir" nil)
;;; (directory :format "%v"))))
;; minibuf.c
- (completion-auto-help minibuffer boolean)
(enable-recursive-minibuffers minibuffer boolean)
(history-length minibuffer
- (choice (const :tag "Infinite" t)
- integer))
- (history-delete-duplicates minibuffer boolean)
+ (choice (const :tag "Infinite" t) integer)
+ "22.1")
+ (history-delete-duplicates minibuffer boolean "22.1")
(minibuffer-prompt-properties
minibuffer
(list
(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" nil)
+ ;; FIXME: Add `sensibly' which chooses between
+ ;; vertical or horizontal splits depending on the size
+ ;; and shape of the window.
+ (const :tag "horizontally"
+ split-window-preferred-horizontally))
+ "23.1")
(window-min-height windows integer)
(window-min-width windows integer)
(scroll-preserve-screen-position
windows (choice
(const :tag "Off (nil)" :value nil)
(const :tag "Full screen (t)" :value t)
- (other :tag "Always" 1)))
+ (other :tag "Always" 1)) "22.1")
(display-buffer-reuse-frames windows boolean "21.1")
;; xdisp.c
(scroll-step windows integer)
(hscroll-margin windows integer "22.1")
(hscroll-step windows number "22.1")
(truncate-partial-width-windows display boolean)
- (mode-line-inverse-video modeline boolean)
- (mode-line-in-non-selected-windows modeline boolean "22.1")
+ (mode-line-inverse-video mode-line boolean)
+ (mode-line-in-non-selected-windows mode-line boolean "22.1")
(line-number-display-limit display
(choice integer
(const :tag "No limit" nil)))
- (line-number-display-limit-width display integer)
+ (line-number-display-limit-width display integer "22.1")
(highlight-nonselected-windows display boolean)
(message-log-max debug (choice (const :tag "Disable" nil)
(integer :menu-tag "lines"
(const :tag "Immediate" :value t)
(number :tag "Delay by secs" :value 0.5)) "22.1")
;; xfaces.c
- (scalable-fonts-allowed display boolean)
+ (scalable-fonts-allowed display boolean "22.1")
;; xfns.c
(x-bitmap-file-path installation
(repeat (directory :format "%v")))
(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))
+ (featurep 'mac-carbon))
((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))
(custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
(custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start
'custom-variable)
-(put 'selection-coding-system 'custom-set
- (lambda (symbol value)
- (set-selection-coding-system value)
- (set symbol value)))
;; Record cus-start as loaded
;; if we have set up all the info that we can set up.
(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
HCoop / bpt / emacs.git / blobdiff