diff options
| author | Dave Love | 2001-01-17 14:29:49 +0000 |
|---|---|---|
| committer | Dave Love | 2001-01-17 14:29:49 +0000 |
| commit | 9eaf396bd1a606f2d5cf73ef90125c4ca5682232 (patch) | |
| tree | e3e07c7e4524685e28001c30a172f945ba240b69 | |
| parent | f864120fde12d3b754b37a9fb67897921926d398 (diff) | |
| download | emacs-9eaf396bd1a606f2d5cf73ef90125c4ca5682232.tar.gz emacs-9eaf396bd1a606f2d5cf73ef90125c4ca5682232.zip | |
Require disp-table.
(latin1-display): Fix :set.
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/international/latin1-disp.el | 14 |
2 files changed, 18 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a2854dbdd11..655cdf765ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2001-01-17 Dave Love <fx@gnu.org> | ||
| 2 | |||
| 3 | * international/latin1-disp.el: Require disp-table. | ||
| 4 | (latin1-display): Fix :set. | ||
| 5 | |||
| 6 | * net/eudc-vars.el (eudc-server, eudc-protocol): Fix :type. | ||
| 7 | |||
| 1 | 2001-01-17 Gerd Moellmann <gerd@gnu.org> | 8 | 2001-01-17 Gerd Moellmann <gerd@gnu.org> |
| 2 | 9 | ||
| 3 | * isearch.el (isearch-lazy-highlight-initial-delay) | 10 | * isearch.el (isearch-lazy-highlight-initial-delay) |
| @@ -81,8 +88,8 @@ | |||
| 81 | 88 | ||
| 82 | 2001-01-15 Alex Schroeder <alex@gnu.org> | 89 | 2001-01-15 Alex Schroeder <alex@gnu.org> |
| 83 | 90 | ||
| 84 | * ansi-color.el (ansi-colors) <defgroup>: Fix :version by Dave | 91 | * ansi-color.el (ansi-colors) <defgroup>: Fix :version. |
| 85 | Love <fx@gnu.org> | 92 | From Dave Love <fx@gnu.org>. |
| 86 | (ansi-color-for-comint-mode): Fix :version. | 93 | (ansi-color-for-comint-mode): Fix :version. |
| 87 | 94 | ||
| 88 | 2001-01-15 Alex Schroeder <alex@gnu.org> | 95 | 2001-01-15 Alex Schroeder <alex@gnu.org> |
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index 639457d8fdf..4f644eda725 100644 --- a/lisp/international/latin1-disp.el +++ b/lisp/international/latin1-disp.el | |||
| @@ -47,6 +47,9 @@ | |||
| 47 | 47 | ||
| 48 | ;;; Code: | 48 | ;;; Code: |
| 49 | 49 | ||
| 50 | ;; Ensure `standard-display-table' is set up: | ||
| 51 | (require 'disp-table) | ||
| 52 | |||
| 50 | (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8 | 53 | (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8 |
| 51 | latin-9 cyrillic greek hebrew) | 54 | latin-9 cyrillic greek hebrew) |
| 52 | "The ISO8859 character sets with defined Latin-1 display sequences. | 55 | "The ISO8859 character sets with defined Latin-1 display sequences. |
| @@ -82,11 +85,12 @@ use either M-x customize of the function `latin1-display'." | |||
| 82 | :require 'latin1-disp | 85 | :require 'latin1-disp |
| 83 | :initialize 'custom-initialize-default | 86 | :initialize 'custom-initialize-default |
| 84 | :set (lambda (symbol value) | 87 | :set (lambda (symbol value) |
| 85 | (if value | 88 | (set-default symbol value) |
| 86 | (mapc (if value | 89 | (mapc (if value |
| 87 | #'latin1-display-setup | 90 | #'latin1-display-setup |
| 88 | #'latin1-display-reset) | 91 | #'latin1-display-reset) |
| 89 | latin1-display-sets)))) | 92 | latin1-display-sets) |
| 93 | (redraw-display))) | ||
| 90 | 94 | ||
| 91 | ;;;###autoload | 95 | ;;;###autoload |
| 92 | (defun latin1-display (&rest sets) | 96 | (defun latin1-display (&rest sets) |