Mercurial > hg > xemacs-beta

comparison lisp/prim/cus-start.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 25f70ba0133c
children 8eaf7971accc
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
2 ;; 2 ;;
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: internal 6 ;; Keywords: internal
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24
25 ;;; Synched up with: Not synched.
7 26
8 ;;; Commentary: 27 ;;; Commentary:
9 ;; 28 ;;
10 ;; Must be run before the user has changed the value of any options! 29 ;; Must be run before the user has changed the value of any options!
11 30
26 (and (fboundp 'characterp) 45 (and (fboundp 'characterp)
27 (characterp sexp))) 46 (characterp sexp)))
28 sexp 47 sexp
29 (list 'quote sexp))) 48 (list 'quote sexp)))
30 49
31 ;; The file names below are unreliable, as they are from Emacs 19.34.
32 (let ((all '(;; boolean 50 (let ((all '(;; boolean
33 (abbrev-all-caps abbrev boolean) 51 (abbrev-all-caps abbrev boolean)
34 (allow-deletion-of-last-visible-frame frames boolean) 52 (allow-deletion-of-last-visible-frame frames boolean)
35 (debug-on-quit debug boolean) 53 (debug-on-quit debug boolean)
36 (delete-auto-save-files auto-save boolean) 54 (delete-auto-save-files auto-save boolean)
60 (choice (const :tag "Normal" t) 78 (choice (const :tag "Normal" t)
61 (repeat (symbol :tag "Format")))) 79 (repeat (symbol :tag "Format"))))
62 (completion-ignored-extensions minibuffer 80 (completion-ignored-extensions minibuffer
63 (repeat 81 (repeat
64 (string :format "%v"))) 82 (string :format "%v")))
83 (debug-ignored-errors debug (repeat (choice :format "%v"
84 (symbol :tag "Class")
85 regexp)))
65 (debug-on-error debug (choice (const :tag "off" nil) 86 (debug-on-error debug (choice (const :tag "off" nil)
66 (const :tag "Always" t) 87 (const :tag "Always" t)
67 (repeat :menu-tag "When" 88 (repeat :menu-tag "When"
68 :value (nil) 89 :value (nil)
69 (symbol 90 (symbol
103 (left-margin fill integer) 124 (left-margin fill integer)
104 (tab-width editing-basics integer) 125 (tab-width editing-basics integer)
105 (truncate-lines display boolean) 126 (truncate-lines display boolean)
106 ;; not documented as user-options, but should still be 127 ;; not documented as user-options, but should still be
107 ;; customizable: 128 ;; customizable:
129 (bar-cursor display (choice (const :tag "Block Cursor" nil)
130 (const :tag "Bar Cursor (1 pixel)" t)
131 (sexp :tag "Bar Cursor (2 pixels)"
132 :format "%t\n" 'other)))
108 (default-frame-plist frames (repeat 133 (default-frame-plist frames (repeat
109 (list :inline t 134 (list :inline t
110 :format "%v" 135 :format "%v"
111 (symbol :tag "Parameter") 136 (symbol :tag "Parameter")
112 (sexp :tag "Value")))) 137 (sexp :tag "Value"))))
138 (disable-auto-save-when-buffer-shrinks auto-save boolean)
139 (find-file-compare-truenames find-file boolean)
140 (focus-follows-mouse x boolean)
113 (help-char keyboard character) 141 (help-char keyboard character)
114 (max-lisp-eval-depth limits integer) 142 (max-lisp-eval-depth limits integer)
115 (max-specpdl-size limits integer) 143 (max-specpdl-size limits integer)
116 (meta-prefix-char keyboard character) 144 (meta-prefix-char keyboard character)
117 (parse-sexp-ignore-comments editing-basics boolean) 145 (parse-sexp-ignore-comments editing-basics boolean)
121 :format "%v" 149 :format "%v"
122 1) 150 1)
123 (const :tag "on" t))) 151 (const :tag "on" t)))
124 (selective-display-ellipses display boolean) 152 (selective-display-ellipses display boolean)
125 (signal-error-on-buffer-boundary internal boolean) 153 (signal-error-on-buffer-boundary internal boolean)
126 (words-include-escapes editing-basics boolean)
127 (temp-buffer-show-function 154 (temp-buffer-show-function
128 windows (radio (function-item :tag "Temp Buffers Always in Same Frame" 155 windows (radio (function-item :tag "Temp Buffers Always in Same Frame"
129 :format "%t\n" 156 :format "%t\n"
130 show-temp-buffer-in-current-frame) 157 show-temp-buffer-in-current-frame)
131 (const :tag "Temp Buffers Like Other Buffers" nil) 158 (const :tag "Temp Buffers Like Other Buffers" nil)
132 (function :tag "Other"))))) 159 (function :tag "Other")))
160 (undo-threshold undo integer)
161 (undo-high-threshold undo integer)
162 (words-include-escapes editing-basics boolean)))
133 this symbol group type) 163 this symbol group type)
134 (while all 164 (while all
135 (setq this (car all) 165 (setq this (car all)
136 all (cdr all) 166 all (cdr all)
137 symbol (nth 0 this) 167 symbol (nth 0 this)