Mercurial > hg > xemacs-beta
annotate lisp/cus-start.el @ 5818:15b0715c204d
Avoid passing patterns to with charset property to FcNameUnparse.
Prevents crash reported by Raymond Toy.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Sat, 18 Oct 2014 21:20:42 +0900 |
| parents | 308d34e9f07d |
| children | 916b48abd1c6 |
| rev | line source |
|---|---|
| 428 | 1 ;;; cus-start.el --- define customization properties of builtins. |
| 2 | |
| 3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
| 4 | |
| 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | |
| 6 ;; Maintainer: XEmacs Development Team | |
| 7 ;; Keywords: internal, dumped | |
| 8 | |
| 9 ;; This file is part of XEmacs. | |
| 10 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
11 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
12 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
13 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
14 ;; option) any later version. |
| 428 | 15 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
19 ;; for more details. |
| 428 | 20 |
| 21 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
3092
diff
changeset
|
22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 23 |
| 24 ;;; Synched up with: Not synched with FSF. | |
| 25 | |
| 26 ;;; Commentary: | |
| 27 | |
| 28 ;; This file is dumped with XEmacs. | |
| 29 | |
| 30 ;; The following code is used to define the customization properties | |
| 31 ;; for builtin variables, and variables in the packages that are | |
| 32 ;; preloaded /very/ early, before custom.el itself (replace.el is such | |
| 33 ;; an example). The way it handles custom stuff is dirty, and should | |
| 34 ;; be regarded as a last resort. DO NOT add variables here, unless | |
| 35 ;; you know what you are doing. | |
| 36 | |
| 37 ;; Must be run before the user has changed the value of any options! | |
| 38 | |
| 39 | |
| 40 ;;; Code: | |
| 41 | |
| 42 (require 'custom) | |
| 43 | |
| 44 (let ((all '(;; boolean | |
| 45 (abbrev-all-caps abbrev boolean) | |
| 46 (allow-deletion-of-last-visible-frame frames boolean) | |
| 3092 | 47 (allow-incremental-gc alloc boolean) |
| 428 | 48 (debug-on-quit debug boolean) |
| 49 (delete-auto-save-files auto-save boolean) | |
| 50 (delete-exited-processes processes-basics boolean) | |
| 1154 | 51 (garbage-collection-messages alloc boolean) |
| 428 | 52 (indent-tabs-mode editing-basics boolean) |
| 53 (load-ignore-elc-files maint boolean) | |
| 1123 | 54 (load-ignore-out-of-date-elc-files maint boolean) |
| 55 (load-show-full-path-in-messages maint boolean) | |
| 56 (load-always-display-messages maint boolean) | |
| 428 | 57 (load-warn-when-source-newer maint boolean) |
| 58 (load-warn-when-source-only maint boolean) | |
| 59 (modifier-keys-are-sticky keyboard boolean) | |
| 60 (no-redraw-on-reenter display boolean) | |
| 61 (scroll-on-clipped-lines display boolean) | |
| 62 (truncate-partial-width-windows display boolean) | |
| 63 (visible-bell sound boolean) | |
| 64 (x-allow-sendevents x boolean) | |
| 65 (zmacs-regions editing-basics boolean) | |
| 442 | 66 (load-home-init-file installation boolean) |
| 428 | 67 ;; integer |
| 68 (auto-save-interval auto-save integer) | |
| 69 (bell-volume sound integer) | |
| 70 (bell-inhibit-time sound integer) | |
| 71 (echo-keystrokes keyboard integer) | |
| 72 (gc-cons-threshold alloc integer) | |
| 3092 | 73 (gc-cons-incremental-threshold alloc integer) |
| 74 (gc-incremental-traversal-threshold alloc integer) | |
| 428 | 75 (next-screen-context-lines display integer) |
| 76 (scroll-conservatively display integer) | |
| 77 (scroll-step windows integer) | |
| 78 (window-min-height windows integer) | |
| 79 (window-min-width windows integer) | |
| 80 ;; object | |
| 81 (auto-save-file-format auto-save | |
| 82 (choice (const :tag "Normal" t) | |
| 83 (repeat (symbol :tag "Format")))) | |
| 84 (completion-ignored-extensions minibuffer | |
| 85 (repeat | |
| 86 (string :format "%v"))) | |
| 87 (debug-ignored-errors debug (repeat (choice :format "%v" | |
| 88 (symbol :tag "Class") | |
| 89 regexp))) | |
| 90 (debug-on-error debug (choice (const :tag "off" nil) | |
| 91 (const :tag "Always" t) | |
| 92 (repeat :menu-tag "When" | |
| 93 :value (nil) | |
| 94 (symbol | |
| 95 :tag "Condition")))) | |
| 96 (debug-on-signal debug (choice (const :tag "off" nil) | |
| 97 (const :tag "Always" t) | |
| 98 (repeat :menu-tag "When" | |
| 99 :value (nil) | |
| 100 (symbol | |
| 101 :tag "Condition")))) | |
| 102 (exec-path processes-basics (repeat | |
| 103 (choice :tag "Directory" | |
| 104 (const :tag "Default" nil) | |
| 105 (directory :format "%v")))) | |
| 106 (file-name-handler-alist data (repeat | |
| 107 (cons regexp | |
| 108 (function :tag "Handler")))) | |
| 109 (shell-file-name execute file) | |
| 110 (stack-trace-on-error debug (choice (const :tag "off" nil) | |
| 111 (const :tag "Always" t) | |
| 112 (repeat :menu-tag "When" | |
| 113 :value (nil) | |
| 114 (symbol | |
| 115 :tag "Condition")))) | |
| 116 (stack-trace-on-signal debug (choice (const :tag "off" nil) | |
| 117 (const :tag "Always" t) | |
| 118 (repeat :menu-tag "When" | |
| 119 :value (nil) | |
| 120 (symbol | |
| 121 :tag "Condition")))) | |
| 732 | 122 (modifier-keys-sticky-time keyboard |
| 123 (choice (integer :tag "Milliseconds") | |
| 124 (const :tag "Unbounded" 'unbounded))) | |
| 428 | 125 ;; buffer-local |
| 126 (case-fold-search matching boolean) | |
| 127 (ctl-arrow display (choice (integer 160) | |
| 128 (sexp :tag "160 (default)" | |
| 129 :format "%t\n"))) | |
| 130 (fill-column fill integer) | |
| 131 (left-margin fill integer) | |
| 132 (tab-width editing-basics integer) | |
| 133 (truncate-lines display boolean) | |
| 134 (overwrite-mode editing-basics ;; for the options menu - dverna | |
| 135 (choice (const :tag "disabled" nil) | |
| 136 (const :tag "textual" | |
| 137 'overwrite-mode-textual) | |
| 138 (const :tag "binary" | |
| 139 'overwrite-mode-binary))) | |
| 140 ;; not documented as user-options, but should still be | |
| 141 ;; customizable: | |
| 142 (bar-cursor display (choice (const :tag "Block Cursor" nil) | |
| 143 (const :tag "Bar Cursor (1 pixel)" t) | |
| 144 (sexp :tag "Bar Cursor (2 pixels)" | |
| 145 :format "%t\n" 'other))) | |
| 146 (default-frame-plist frames plist) | |
| 147 (default-tty-frame-plist frames plist) | |
| 148 (default-x-frame-plist frames plist) | |
| 149 (disable-auto-save-when-buffer-shrinks auto-save boolean) | |
| 150 (find-file-use-truenames find-file boolean) | |
| 151 (find-file-compare-truenames find-file boolean) | |
| 152 (focus-follows-mouse x boolean) | |
| 153 (help-char keyboard (choice character | |
| 154 (sexp :tag "Single key specifier"))) | |
| 155 (max-lisp-eval-depth limits integer) | |
| 156 (max-specpdl-size limits integer) | |
| 157 (meta-prefix-char keyboard character) | |
| 158 (parse-sexp-ignore-comments editing-basics boolean) | |
| 159 (selective-display display | |
| 160 (choice (const :tag "off" nil) | |
| 161 (integer :tag "space" | |
| 162 :format "%v" | |
| 163 1) | |
| 164 (const :tag "on" t))) | |
| 165 (selective-display-ellipses display boolean) | |
| 166 (signal-error-on-buffer-boundary internal boolean) | |
| 167 (temp-buffer-show-function | |
| 168 windows (radio (function-item :tag "Temp Buffers Always in Same Frame" | |
| 169 :format "%t\n" | |
| 170 show-temp-buffer-in-current-frame) | |
| 171 (const :tag "Temp Buffers Like Other Buffers" nil) | |
| 172 (function :tag "Other"))) | |
| 173 (undo-threshold undo integer) | |
| 174 (undo-high-threshold undo integer) | |
| 175 (words-include-escapes editing-basics boolean) | |
| 176 ;; These are from replace.el, which is loaded too early | |
| 177 ;; to be customizable. | |
| 178 (case-replace matching boolean) | |
| 179 (query-replace-highlight matching boolean) | |
| 180 (list-matching-lines-default-context-lines matching integer))) | |
| 181 this symbol group type) | |
| 182 (while all | |
| 183 (setq this (car all) | |
| 184 all (cdr all) | |
| 185 symbol (nth 0 this) | |
| 186 group (nth 1 this) | |
| 187 type (nth 2 this)) | |
| 188 (if (not (boundp symbol)) | |
| 189 ;; This is loaded so early, there is no message | |
| 190 (if (fboundp 'message) | |
| 191 ;; If variables are removed from C code, give an error here! | |
| 192 (message "Intrinsic `%S' not bound" symbol)) | |
| 193 ;; This is called before any user can have changed the value. | |
| 194 (put symbol 'standard-value | |
| 195 (list (quote-maybe (default-value symbol)))) | |
| 196 ;; Add it to the right group. | |
| 197 (custom-add-to-group group symbol 'custom-variable) | |
| 198 ;; Set the type. | |
| 199 (put symbol 'custom-type type)))) | |
| 200 | |
| 201 ;; This is to prevent it from being reloaded by `cus-load.el'. | |
| 202 (provide 'cus-start) | |
| 203 | |
| 204 ;;; cus-start.el ends here. |