comparison lisp/cus-start.el @ 80079:dd3b45bfc388

(selection-coding-system): Remove, since it's now defined in select.el rather than in xselect.c.
author Glenn Morris <rgm@gnu.org>
date Fri, 08 Feb 2008 20:09:16 +0000
parents f13e606735b0
children 6ec8ade53232
comparison
equal deleted inserted replaced
80078:09758686fa3c 80079:dd3b45bfc388
127 :tag "Single coding system" 127 :tag "Single coding system"
128 :value undecided 128 :value undecided
129 :match (lambda (widget value) 129 :match (lambda (widget value)
130 (and value (not (functionp value))))) 130 (and value (not (functionp value)))))
131 (function :value ignore)))) 131 (function :value ignore))))
132 (selection-coding-system mule coding-system "22.1")
133 ;; dired.c 132 ;; dired.c
134 (completion-ignored-extensions dired 133 (completion-ignored-extensions dired
135 (repeat (string :format "%v"))) 134 (repeat (string :format "%v")))
136 ;; dispnew.c 135 ;; dispnew.c
137 (baud-rate display integer) 136 (baud-rate display integer)
454 (put symbol 'custom-version version))))) 453 (put symbol 'custom-version version)))))
455 454
456 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) 455 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
457 (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start 456 (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start
458 'custom-variable) 457 'custom-variable)
459 (put 'selection-coding-system 'custom-set
460 (lambda (symbol value)
461 (set-selection-coding-system value)
462 (set symbol value)))
463 458
464 ;; Record cus-start as loaded 459 ;; Record cus-start as loaded
465 ;; if we have set up all the info that we can set up. 460 ;; if we have set up all the info that we can set up.
466 ;; Don't record cus-start as loaded 461 ;; Don't record cus-start as loaded
467 ;; if we have set up only the standard values. 462 ;; if we have set up only the standard values.