/[emacs]/emacs/lisp/cus-start.el
ViewVC logotype

Diff of /emacs/lisp/cus-start.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by pj, Wed Apr 3 08:34:38 2002 UTC revision 1.50.2.1 by miles, Fri Apr 4 06:20:01 2003 UTC
# Line 34  Line 34 
34    
35  ;;; Code:  ;;; Code:
36    
37  (let ((all '(;; abbrev.c  (let ((all '(;; abbrev.c
38               (abbrev-all-caps abbrev-mode boolean)               (abbrev-all-caps abbrev-mode boolean)
39               (pre-abbrev-expand-hook abbrev-mode hook)               (pre-abbrev-expand-hook abbrev-mode hook)
40               ;; alloc.c               ;; alloc.c
# Line 53  Line 53 
53               (ctl-arrow display boolean)               (ctl-arrow display boolean)
54               (truncate-lines display boolean)               (truncate-lines display boolean)
55               (selective-display-ellipses display boolean)               (selective-display-ellipses display boolean)
              (transient-mark-mode editing-basics boolean)  
56               (indicate-empty-lines display boolean "21.1")               (indicate-empty-lines display boolean "21.1")
57               (scroll-up-aggressively windows boolean "21.1")               (scroll-up-aggressively windows
58               (scroll-down-aggressively windows boolean "21.1")                                       (choice (const :tag "off" nil) number)
59                                         "21.1")
60                 (scroll-down-aggressively windows
61                                           (choice (const :tag "off" nil) number)
62                                           "21.1")
63               ;; callint.c               ;; callint.c
64               (mark-even-if-inactive editing-basics boolean)               (mark-even-if-inactive editing-basics boolean)
65               ;; callproc.c               ;; callproc.c
# Line 83  Line 86 
86                              (coding-system :tag "Single coding system"                              (coding-system :tag "Single coding system"
87                                             :value undecided)                                             :value undecided)
88                              (function :value ignore))))                              (function :value ignore))))
89                 (selection-coding-system mule coding-system)
90               ;; dired.c               ;; dired.c
91               (completion-ignored-extensions dired               (completion-ignored-extensions dired
92                                              (repeat (string :format "%v")))                                              (repeat (string :format "%v")))
93               ;; dispnew.c               ;; dispnew.c
94               (baud-rate display integer)               (baud-rate display integer)
# Line 102  Line 106 
106                                                     :value (nil)                                                     :value (nil)
107                                                     (symbol :format "%v"))                                                     (symbol :format "%v"))
108                                             (const :tag "always" t)))                                             (const :tag "always" t)))
109               (debug-on-error debug               (debug-on-error debug
110                               (choice (const :tag "off")                               (choice (const :tag "off")
111                                       (repeat :menu-tag "When"                                       (repeat :menu-tag "When"
112                                               :value (nil)                                               :value (nil)
# Line 138  Line 142 
142               (polling-period keyboard integer)               (polling-period keyboard integer)
143               (double-click-time mouse (restricted-sexp               (double-click-time mouse (restricted-sexp
144                                         :match-alternatives (integerp 'nil 't)))                                         :match-alternatives (integerp 'nil 't)))
145                 (double-click-fuzz mouse integer)
146               (inhibit-local-menu-bar-menus menu boolean)               (inhibit-local-menu-bar-menus menu boolean)
147               (help-char keyboard character)               (help-char keyboard character)
148               (help-event-list keyboard (repeat (sexp :format "%v")))               (help-event-list keyboard (repeat (sexp :format "%v")))
# Line 150  Line 155 
155  ;; version-specific directories when you upgrade.  We need  ;; version-specific directories when you upgrade.  We need
156  ;; customization of the front of the list, maintaining the standard  ;; customization of the front of the list, maintaining the standard
157  ;; value intact at the back.  ;; value intact at the back.
158  ;;;          (load-path environment  ;;;          (load-path environment
159  ;;;                     (repeat (choice :tag "[Current dir?]"  ;;;                     (repeat (choice :tag "[Current dir?]"
160  ;;;                                     :format "%[Current dir?%] %v"  ;;;                                     :format "%[Current dir?%] %v"
161  ;;;                                     (const :tag " current dir" nil)  ;;;                                     (const :tag " current dir" nil)
# Line 200  Line 205 
205               (display-buffer-function windows (choice (const nil) function))               (display-buffer-function windows (choice (const nil) function))
206               (pop-up-frames frames boolean)               (pop-up-frames frames boolean)
207               (pop-up-frame-function frames function)               (pop-up-frame-function frames function)
208               (special-display-buffer-names               (special-display-buffer-names
209                frames                frames
210                (repeat (choice :tag "Buffer"                (repeat (choice :tag "Buffer"
211                                :value ""                                :value ""
212                                (string :format "%v")                                (string :format "%v")
# Line 214  Line 219 
219                                                    (symbol :tag "Parameter")                                                    (symbol :tag "Parameter")
220                                                    (sexp :tag "Value")))))))                                                    (sexp :tag "Value")))))))
221               (special-display-regexps               (special-display-regexps
222                frames                frames
223                (repeat (choice :tag "Buffer"                (repeat (choice :tag "Buffer"
224                                :value ""                                :value ""
225                                (regexp :format "%v")                                (regexp :format "%v")
# Line 255  Line 260 
260                                                       :format "%v")                                                       :format "%v")
261                                              (other :tag "Unlimited" t)))                                              (other :tag "Unlimited" t)))
262               (unibyte-display-via-language-environment mule boolean)               (unibyte-display-via-language-environment mule boolean)
263                 ;; xfaces.c
264                 (scalable-fonts-allowed display boolean)
265               ;; xfns.c               ;; xfns.c
266               (x-bitmap-file-path installation               (x-bitmap-file-path installation
267                                   (repeat (directory :format "%v")))                                   (repeat (directory :format "%v")))
# Line 276  Line 283 
283                          (numberp sexp))                          (numberp sexp))
284                      sexp                      sexp
285                    (list 'quote sexp)))))                    (list 'quote sexp)))))
286    (while all    (while all
287      (setq this (car all)      (setq this (car all)
288            all (cdr all)            all (cdr all)
289            symbol (nth 0 this)            symbol (nth 0 this)
# Line 300  Line 307 
307               (message "Note, built-in variable `%S' not bound" symbol))               (message "Note, built-in variable `%S' not bound" symbol))
308        ;; Save the standard value, unless we already did.        ;; Save the standard value, unless we already did.
309        (or (get symbol 'standard-value)        (or (get symbol 'standard-value)
310            (put symbol 'standard-value            (put symbol 'standard-value
311                 (list (funcall quoter (default-value symbol)))))                 (list (funcall quoter (default-value symbol)))))
312        ;; If this is NOT while dumping Emacs,        ;; If this is NOT while dumping Emacs,
313        ;; set up the rest of the customization info.        ;; set up the rest of the customization info.
# Line 312  Line 319 
319          (put symbol 'custom-version version)))))          (put symbol 'custom-version version)))))
320    
321  (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)  (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
322    (put 'selection-coding-system 'custom-set
323         (lambda (symbol value)
324           (set-selection-coding-system value)
325           (set symbol value)))
326    
327  ;; Record cus-start as loaded  ;; Record cus-start as loaded
328  ;; if we have set up all the info that we can set up.  ;; if we have set up all the info that we can set up.

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.50.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26