Mercurial > emacs
comparison lisp/international/mule.el @ 88698:97ff20849724
(unify-8859-on-encoding-mode)
(unify-8859-on-decoding-mode): Remove :init-value.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 31 May 2002 13:04:33 +0000 |
parents | f1ce7c70c868 |
children | c712966df91c |
comparison
equal
deleted
inserted
replaced
88697:53c74787280a | 88698:97ff20849724 |
---|---|
1511 (set-category-table ,category-table) | 1511 (set-category-table ,category-table) |
1512 (unwind-protect | 1512 (unwind-protect |
1513 (progn ,@body) | 1513 (progn ,@body) |
1514 (set-category-table ,current-category-table))))) | 1514 (set-category-table ,current-category-table))))) |
1515 | 1515 |
1516 ;; Backwards compatibility. These might be better with :init-value t, | |
1517 ;; but that breaks loadup. | |
1518 (define-minor-mode unify-8859-on-encoding-mode | |
1519 "Obsolete." | |
1520 :group 'mule | |
1521 :global t) | |
1522 (define-minor-mode unify-8859-on-decoding-mode | |
1523 "Obsolete." | |
1524 :group 'mule | |
1525 :global t) | |
1526 | |
1516 ;;; Initialize some variables. | 1527 ;;; Initialize some variables. |
1517 | 1528 |
1518 (put 'use-default-ascent 'char-table-extra-slots 0) | 1529 (put 'use-default-ascent 'char-table-extra-slots 0) |
1519 (setq use-default-ascent (make-char-table 'use-default-ascent)) | 1530 (setq use-default-ascent (make-char-table 'use-default-ascent)) |
1520 (put 'ignore-relative-composition 'char-table-extra-slots 0) | 1531 (put 'ignore-relative-composition 'char-table-extra-slots 0) |