Mercurial > hg > xemacs-beta
comparison lisp/prim/cus-start.el @ 142:1856695b1fa9 r20-2b5
Import from CVS: tag r20-2b5
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:33:18 +0200 |
parents | 9b50b4588a93 |
children | 25f70ba0133c |
comparison
equal
deleted
inserted
replaced
141:ea67ad3963dc | 142:1856695b1fa9 |
---|---|
27 (characterp sexp))) | 27 (characterp sexp))) |
28 sexp | 28 sexp |
29 (list 'quote sexp))) | 29 (list 'quote sexp))) |
30 | 30 |
31 ;; The file names below are unreliable, as they are from Emacs 19.34. | 31 ;; The file names below are unreliable, as they are from Emacs 19.34. |
32 (let ((all '(;; abbrev.c | 32 (let ((all '(;; boolean |
33 (abbrev-all-caps abbrev-mode boolean) | 33 (abbrev-all-caps abbrev boolean) |
34 (pre-abbrev-expand-hook abbrev-mode hook) | 34 (allow-deletion-of-last-visible-frame frames boolean) |
35 ;; alloc.c | 35 (debug-on-quit debug boolean) |
36 (delete-auto-save-files auto-save boolean) | |
37 (delete-exited-processes processes-basics boolean) | |
38 (indent-tabs-mode editing-basics boolean) | |
39 (load-ignore-elc-files maint boolean) | |
40 (load-warn-when-source-newer maint boolean) | |
41 (load-warn-when-source-only maint boolean) | |
42 (modifier-keys-are-sticky keyboard boolean) | |
43 (no-redraw-on-reenter display boolean) | |
44 (scroll-on-clipped-lines display boolean) | |
45 (truncate-partial-width-windows display boolean) | |
46 (visible-bell sound boolean) | |
47 (x-allow-sendevents x boolean) | |
48 (zmacs-regions editing-basics boolean) | |
49 ;; integer | |
50 (auto-save-interval auto-save integer) | |
51 (bell-volume sound integer) | |
52 (echo-keystrokes keyboard integer) | |
36 (gc-cons-threshold alloc integer) | 53 (gc-cons-threshold alloc integer) |
37 ;; buffer.c | 54 (next-screen-context-lines display integer) |
38 (modeline-format modeline sexp) ;Hard to do right. | 55 (scroll-step windows integer) |
39 (default-major-mode internal function) | 56 (window-min-height windows integer) |
57 (window-min-width windows integer) | |
58 ;; object | |
59 (auto-save-file-format auto-save | |
60 (choice (const :tag "Normal" t) | |
61 (repeat (symbol :tag "Format")))) | |
62 (completion-ignored-extensions minibuffer | |
63 (repeat | |
64 (string :format "%v"))) | |
65 (debug-on-error debug (choice (const :tag "off" nil) | |
66 (const :tag "Always" t) | |
67 (repeat :menu-tag "When" | |
68 :value (nil) | |
69 (symbol | |
70 :tag "Condition")))) | |
71 (debug-on-signal debug (choice (const :tag "off" nil) | |
72 (const :tag "Always" t) | |
73 (repeat :menu-tag "When" | |
74 :value (nil) | |
75 (symbol | |
76 :tag "Condition")))) | |
77 (exec-path processes-basics (repeat | |
78 (choice :tag "Directory" | |
79 (const :tag "Default" nil) | |
80 (directory :format "%v")))) | |
81 (file-name-handler-alist data (repeat | |
82 (cons regexp | |
83 (function :tag "Handler")))) | |
84 (shell-file-name execute file) | |
85 (stack-trace-on-error debug (choice (const :tag "off" nil) | |
86 (const :tag "Always" t) | |
87 (repeat :menu-tag "When" | |
88 :value (nil) | |
89 (symbol | |
90 :tag "Condition")))) | |
91 (stack-trace-on-signal debug (choice (const :tag "off" nil) | |
92 (const :tag "Always" t) | |
93 (repeat :menu-tag "When" | |
94 :value (nil) | |
95 (symbol | |
96 :tag "Condition")))) | |
97 ;; buffer-local | |
40 (case-fold-search matching boolean) | 98 (case-fold-search matching boolean) |
99 (ctl-arrow display (choice (integer 160) | |
100 (sexp :tag "160 (default)" | |
101 :format "%t\n"))) | |
41 (fill-column fill integer) | 102 (fill-column fill integer) |
42 (left-margin fill integer) | 103 (left-margin fill integer) |
43 (tab-width editing-basics integer) | 104 (tab-width editing-basics integer) |
44 (ctl-arrow display boolean) | |
45 (truncate-lines display boolean) | 105 (truncate-lines display boolean) |
106 ;; not documented as user-options, but should still be | |
107 ;; customizable: | |
108 (default-frame-plist frames (repeat | |
109 (list :inline t | |
110 :format "%v" | |
111 (symbol :tag "Parameter") | |
112 (sexp :tag "Value")))) | |
113 (help-char keyboard character) | |
114 (max-lisp-eval-depth limits integer) | |
115 (max-specpdl-size limits integer) | |
116 (meta-prefix-char keyboard character) | |
117 (parse-sexp-ignore-comments editing-basics boolean) | |
46 (selective-display display | 118 (selective-display display |
47 (choice (const :tag "off" nil) | 119 (choice (const :tag "off" nil) |
48 (integer :tag "space" | 120 (integer :tag "space" |
49 :format "%v" | 121 :format "%v" |
50 1) | 122 1) |
51 (const :tag "on" t))) | 123 (const :tag "on" t))) |
52 (selective-display-ellipses display boolean) | 124 (selective-display-ellipses display boolean) |
53 ;; callproc.c | 125 (signal-error-on-buffer-boundary internal boolean) |
54 (shell-file-name execute file) | |
55 (exec-path execute | |
56 (repeat (choice (const :tag "default" nil) | |
57 (file :format "%v")))) | |
58 ;; dired.c | |
59 (completion-ignored-extensions dired | |
60 (repeat (string :format "%v"))) | |
61 ;; dispnew.el | |
62 (visible-bell display boolean) | |
63 (no-redraw-on-reenter display boolean) | |
64 ;; eval.c | |
65 (max-specpdl-size limits integer) | |
66 (max-lisp-eval-depth limits integer) | |
67 (stack-trace-on-error debug | |
68 (choice (const :tag "off") | |
69 (repeat :menu-tag "When" | |
70 :value (nil) | |
71 (symbol :format "%v")) | |
72 (const :tag "always" t))) | |
73 (debug-on-error debug | |
74 (choice (const :tag "off") | |
75 (repeat :menu-tag "When" | |
76 :value (nil) | |
77 (symbol :format "%v")) | |
78 (const :tag "always" t))) | |
79 (debug-on-quit debug choice) | |
80 ;; frame.c | |
81 (default-frame-plist frames | |
82 (repeat (cons :format "%v" | |
83 (symbol :tag "Parameter") | |
84 (sexp :tag "Value")))) | |
85 ;; indent.c | |
86 (indent-tabs-mode fill boolean) | |
87 ;; keyboard.c | |
88 (meta-prefix-char keyboard character) | |
89 (auto-save-interval auto-save integer) | |
90 (echo-keystrokes minibuffer boolean) | |
91 (help-char keyboard character) | |
92 ;; lread.c | |
93 (load-path environment | |
94 (repeat (choice :tag "Directory" | |
95 (const :tag "default" nil) | |
96 (directory :format "%v")))) | |
97 ;; process.c | |
98 (delete-exited-processes proces-basics boolean) | |
99 ;; syntax.c | |
100 (parse-sexp-ignore-comments editing-basics boolean) | |
101 (words-include-escapes editing-basics boolean) | 126 (words-include-escapes editing-basics boolean) |
102 ;; window.c | 127 (temp-buffer-show-function |
103 (temp-buffer-show-function windows function) | 128 windows (radio (function-item :tag "Temp Buffers Always in Same Frame" |
104 (next-screen-context-lines windows boolean) | 129 :format "%t\n" |
105 (window-min-height windows integer) | 130 show-temp-buffer-in-current-frame) |
106 (window-min-width windows integer) | 131 (const :tag "Temp Buffers Like Other Buffers" nil) |
107 ;; xdisp.c | 132 (function :tag "Other"))))) |
108 (scroll-step windows integer) | |
109 (truncate-partial-width-windows display boolean) | |
110 ;; xfns.c | |
111 (x-bitmap-file-path installation | |
112 (repeat (directory :format "%v"))))) | |
113 this symbol group type) | 133 this symbol group type) |
114 (while all | 134 (while all |
115 (setq this (car all) | 135 (setq this (car all) |
116 all (cdr all) | 136 all (cdr all) |
117 symbol (nth 0 this) | 137 symbol (nth 0 this) |