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) |