comparison lisp/language/european.el @ 19369:1a7bd3dd824e

(setup-8-bit-environment): Delete a code setting default value of default-input-method.

19368:63415fa4039d

	;; Set up for insertion of characters in this character set
	;; when codes 0200 - 0377 are typed in.
	(setq nonascii-insert-offset nonascii-offset)))

  (if input-method
      (progn
	(setq default-input-method input-method)
	(setq-default default-input-method input-method)))

  ;; If this is a Latin-N character set, set up syntax for it in
  ;; single-byte mode.
  (if (string-match "^Latin-\\([1-9]\\)$" language)
      (require (intern (downcase language)))))

(make-coding-system
 'iso-latin-1 2 ?1
 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)"
 '((ascii t) (latin-iso8859-1 t) nil nil
   nil ascii-eol ascii-cntl))

(define-coding-system-alias 'iso-8859-1 'iso-latin-1)
(define-coding-system-alias 'latin-1 'iso-latin-1)
(define-coding-system-alias 'ctext 'iso-latin-1)

19369:1a7bd3dd824e

	;; Set up for insertion of characters in this character set
	;; when codes 0200 - 0377 are typed in.
	(setq nonascii-insert-offset nonascii-offset)))

  (if input-method
      (setq default-input-method input-method))

  ;; If this is a Latin-N character set, set up syntax for it in
  ;; single-byte mode.
  (if (string-match "^Latin-\\([1-9]\\)$" language)
      (require (intern (downcase language)))))

(make-coding-system
 'iso-latin-1 2 ?1
 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)"
 '((ascii t) (latin-iso8859-1 t) nil nil
   nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t))

(define-coding-system-alias 'iso-8859-1 'iso-latin-1)
(define-coding-system-alias 'latin-1 'iso-latin-1)
(define-coding-system-alias 'ctext 'iso-latin-1)