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.