Mercurial > emacs
comparison lisp/cus-start.el @ 48075:801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Added.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 29 Oct 2002 18:50:29 +0000 |
parents | fb6838a09b61 |
children | f3fc48331bdc |
comparison
equal
deleted
inserted
replaced
48074:a3d1322abc88 | 48075:801530a6c168 |
---|---|
80 (coding-system :tag "Decoding") | 80 (coding-system :tag "Decoding") |
81 (coding-system :tag "Encoding")) | 81 (coding-system :tag "Encoding")) |
82 (coding-system :tag "Single coding system" | 82 (coding-system :tag "Single coding system" |
83 :value undecided) | 83 :value undecided) |
84 (function :value ignore)))) | 84 (function :value ignore)))) |
85 (selection-coding-system mule coding-system) | |
85 ;; dired.c | 86 ;; dired.c |
86 (completion-ignored-extensions dired | 87 (completion-ignored-extensions dired |
87 (repeat (string :format "%v"))) | 88 (repeat (string :format "%v"))) |
88 ;; dispnew.c | 89 ;; dispnew.c |
89 (baud-rate display integer) | 90 (baud-rate display integer) |
253 (message-log-max debug (choice (const :tag "Disable" nil) | 254 (message-log-max debug (choice (const :tag "Disable" nil) |
254 (integer :menu-tag "lines" | 255 (integer :menu-tag "lines" |
255 :format "%v") | 256 :format "%v") |
256 (other :tag "Unlimited" t))) | 257 (other :tag "Unlimited" t))) |
257 (unibyte-display-via-language-environment mule boolean) | 258 (unibyte-display-via-language-environment mule boolean) |
259 ;; xfaces.c | |
260 (scalable-fonts-allowed display boolean) | |
258 ;; xfns.c | 261 ;; xfns.c |
259 (x-bitmap-file-path installation | 262 (x-bitmap-file-path installation |
260 (repeat (directory :format "%v"))) | 263 (repeat (directory :format "%v"))) |
261 ;; xterm.c | 264 ;; xterm.c |
262 (mouse-autoselect-window display boolean "21.3") | 265 (mouse-autoselect-window display boolean "21.3") |
310 ;; Set the type. | 313 ;; Set the type. |
311 (put symbol 'custom-type type) | 314 (put symbol 'custom-type type) |
312 (put symbol 'custom-version version))))) | 315 (put symbol 'custom-version version))))) |
313 | 316 |
314 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) | 317 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) |
318 (put 'selection-coding-system 'custom-set | |
319 (lambda (symbol value) | |
320 (set-selection-coding-system value) | |
321 (set symbol value))) | |
315 | 322 |
316 ;; Record cus-start as loaded | 323 ;; Record cus-start as loaded |
317 ;; if we have set up all the info that we can set up. | 324 ;; if we have set up all the info that we can set up. |
318 ;; Don't record cus-start as loaded | 325 ;; Don't record cus-start as loaded |
319 ;; if we have set up only the standard values. | 326 ;; if we have set up only the standard values. |