X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9ee158855f43fefd3187854887f66970c08516a0..507c5deb1e04694ed6c7393c54ebbacafc1062cd:/lisp/cus-start.el diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 1b944d721b..5e237cd0db 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -1,6 +1,6 @@ -;;; cus-start.el --- define customization properties of builtins. +;;; cus-start.el --- define customization properties of builtins ;; -;; Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen ;; Keywords: internal @@ -34,7 +34,7 @@ ;;; Code: -(let ((all '(;; abbrev.c +(let ((all '(;; abbrev.c (abbrev-all-caps abbrev-mode boolean) (pre-abbrev-expand-hook abbrev-mode hook) ;; alloc.c @@ -53,10 +53,13 @@ (ctl-arrow display boolean) (truncate-lines display boolean) (selective-display-ellipses display boolean) - (transient-mark-mode editing-basics boolean) (indicate-empty-lines display boolean "21.1") - (scroll-up-aggressively windows boolean "21.1") - (scroll-down-aggressively windows boolean "21.1") + (scroll-up-aggressively windows + (choice (const :tag "off" nil) number) + "21.1") + (scroll-down-aggressively windows + (choice (const :tag "off" nil) number) + "21.1") ;; callint.c (mark-even-if-inactive editing-basics boolean) ;; callproc.c @@ -83,8 +86,9 @@ (coding-system :tag "Single coding system" :value undecided) (function :value ignore)))) + (selection-coding-system mule coding-system) ;; dired.c - (completion-ignored-extensions dired + (completion-ignored-extensions dired (repeat (string :format "%v"))) ;; dispnew.c (baud-rate display integer) @@ -102,7 +106,7 @@ :value (nil) (symbol :format "%v")) (const :tag "always" t))) - (debug-on-error debug + (debug-on-error debug (choice (const :tag "off") (repeat :menu-tag "When" :value (nil) @@ -119,11 +123,15 @@ (insert-default-directory minibuffer boolean) ;; fns.c (use-dialog-box menu boolean "21.1") + (use-file-dialog menu boolean "21.4") ;; frame.c (default-frame-alist frames (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value")))) + (mouse-highlight mouse (choice (const :tag "disabled" nil) + (const :tag "always shown" t) + (other :tag "hidden by keypress" 1))) ;; indent.c (indent-tabs-mode fill boolean) ;; keyboard.c @@ -135,6 +143,7 @@ (polling-period keyboard integer) (double-click-time mouse (restricted-sexp :match-alternatives (integerp 'nil 't))) + (double-click-fuzz mouse integer) (inhibit-local-menu-bar-menus menu boolean) (help-char keyboard character) (help-event-list keyboard (repeat (sexp :format "%v"))) @@ -142,13 +151,12 @@ (suggest-key-bindings keyboard (choice (const :tag "off" nil) (integer :tag "time" 2) (other :tag "on"))) - ;; lread.c ;; This is not good news because it will use the wrong ;; version-specific directories when you upgrade. We need ;; customization of the front of the list, maintaining the standard ;; value intact at the back. -;;; (load-path environment +;;; (load-path environment ;;; (repeat (choice :tag "[Current dir?]" ;;; :format "%[Current dir?%] %v" ;;; (const :tag " current dir" nil) @@ -156,6 +164,9 @@ ;; minibuf.c (completion-auto-help minibuffer boolean) (enable-recursive-minibuffers minibuffer boolean) + (history-length minibuffer + (choice (const :tag "Infinite" t) + integer)) (minibuffer-prompt-properties minibuffer (list @@ -175,8 +186,14 @@ (list :inline t :format "%v" (symbol :tag "Property") - (sexp :tag "Value"))))) + (sexp :tag "Value")))) + "21.1") (minibuffer-auto-raise minibuffer boolean) + ;; options property set at end + (read-buffer-function minibuffer + (choice (const nil) + (function-item iswitchb-read-buffer) + function)) ;; msdos.c (dos-unsupported-char-glyph display integer) ;; process.c @@ -184,13 +201,15 @@ ;; syntax.c (parse-sexp-ignore-comments editing-basics boolean) (words-include-escapes editing-basics boolean) + (open-paren-in-column-0-is-defun-start editing-basics boolean + "21.1") ;; window.c - (temp-buffer-show-function windows function) - (display-buffer-function windows function) + (temp-buffer-show-function windows (choice (const nil) function)) + (display-buffer-function windows (choice (const nil) function)) (pop-up-frames frames boolean) (pop-up-frame-function frames function) - (special-display-buffer-names - frames + (special-display-buffer-names + frames (repeat (choice :tag "Buffer" :value "" (string :format "%v") @@ -203,7 +222,7 @@ (symbol :tag "Parameter") (sexp :tag "Value"))))))) (special-display-regexps - frames + frames (repeat (choice :tag "Buffer" :value "" (regexp :format "%v") @@ -219,6 +238,7 @@ (same-window-buffer-names windows (repeat (string :format "%v"))) (same-window-regexps windows (repeat (regexp :format "%v"))) (pop-up-windows windows boolean) + (even-window-heights windows boolean) (next-screen-context-lines windows integer) (split-height-threshold windows integer) (window-min-height windows integer) @@ -229,20 +249,30 @@ (scroll-step windows integer) (scroll-conservatively windows integer) (scroll-margin windows integer) + (hscroll-margin windows integer "21.3") + (hscroll-step windows number "21.3") (truncate-partial-width-windows display boolean) + (mode-line-inverse-video modeline boolean) + (mode-line-in-non-selected-windows modeline boolean "21.3") (line-number-display-limit display (choice integer (const :tag "No limit" nil))) + (line-number-display-limit-width display integer) (highlight-nonselected-windows display boolean) (message-log-max debug (choice (const :tag "Disable" nil) (integer :menu-tag "lines" :format "%v") (other :tag "Unlimited" t))) (unibyte-display-via-language-environment mule boolean) + (blink-cursor-alist cursor alist "21.5") + ;; xfaces.c + (scalable-fonts-allowed display boolean) ;; xfns.c (x-bitmap-file-path installation (repeat (directory :format "%v"))) ;; xterm.c + (mouse-autoselect-window display boolean "21.3") + (x-use-underline-position-properties display boolean "21.3") (x-stretch-cursor display boolean "21.1"))) this symbol group type native-p version ;; This function turns a value @@ -258,7 +288,7 @@ (numberp sexp)) sexp (list 'quote sexp))))) - (while all + (while all (setq this (car all) all (cdr all) symbol (nth 0 this) @@ -273,6 +303,8 @@ (eq system-type 'ms-dos)) ((string-match "\\`w32-" (symbol-name symbol)) (eq system-type 'windows-nt)) + ((string-match "\\`x-" (symbol-name symbol)) + (fboundp 'x-create-frame)) (t t)))) (if (not (boundp symbol)) ;; If variables are removed from C code, give an error here! @@ -280,7 +312,7 @@ (message "Note, built-in variable `%S' not bound" symbol)) ;; Save the standard value, unless we already did. (or (get symbol 'standard-value) - (put symbol 'standard-value + (put symbol 'standard-value (list (funcall quoter (default-value symbol))))) ;; If this is NOT while dumping Emacs, ;; set up the rest of the customization info. @@ -291,6 +323,14 @@ (put symbol 'custom-type type) (put symbol 'custom-version version))))) +(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. ;; Don't record cus-start as loaded @@ -298,4 +338,5 @@ (unless purify-flag (provide 'cus-start)) -;;; cus-start.el ends here. +;;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60 +;;; cus-start.el ends here