Mercurial > hg > xemacs-beta

comparison lisp/prim/cus-start.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 0132846995bd
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
20 ;; You should have received a copy of the GNU General Public License 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 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 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA. 23 ;; 02111-1307, USA.
24 24
25 ;;; Synched up with: Not synched. 25 ;;; Synched up with: Not synched with FSF.
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 ;; 28 ;;
29 ;; The following code is used to define the customization properties
30 ;; for builtin variables, and variables in the packages that are
31 ;; preloaded /very/ early, before custom.el itself (replace.el is such
32 ;; an example). The way it handles custom stuff is dirty, and should
33 ;; be regarded as a last resort. DO NOT add variables here, unless
34 ;; you know what you are doing.
35
29 ;; Must be run before the user has changed the value of any options! 36 ;; Must be run before the user has changed the value of any options!
30 37
38
31 ;;; Code: 39 ;;; Code:
32 40
33 (require 'custom) 41 (require 'custom)
34 42
35 (defun custom-start-quote (sexp) 43 (defun custom-start-quote (sexp)
157 show-temp-buffer-in-current-frame) 165 show-temp-buffer-in-current-frame)
158 (const :tag "Temp Buffers Like Other Buffers" nil) 166 (const :tag "Temp Buffers Like Other Buffers" nil)
159 (function :tag "Other"))) 167 (function :tag "Other")))
160 (undo-threshold undo integer) 168 (undo-threshold undo integer)
161 (undo-high-threshold undo integer) 169 (undo-high-threshold undo integer)
162 (words-include-escapes editing-basics boolean))) 170 (words-include-escapes editing-basics boolean)
171 ;; These are from replace.el, which is loaded too early
172 ;; to be customizable.
173 (case-replace matching boolean)
174 (query-replace-highlight matching boolean)
175 (list-matching-lines-default-context-lines matching integer)))
163 this symbol group type) 176 this symbol group type)
164 (while all 177 (while all
165 (setq this (car all) 178 (setq this (car all)
166 all (cdr all) 179 all (cdr all)
167 symbol (nth 0 this) 180 symbol (nth 0 this)