diff options
| author | Stefan Monnier | 1999-10-13 22:45:28 +0000 |
|---|---|---|
| committer | Stefan Monnier | 1999-10-13 22:45:28 +0000 |
| commit | 2e2246388b7dec87dfb65e79ff0827b887c7640b (patch) | |
| tree | 1ab905cb48e569fbb8ce457ecc96e0f74cee48c4 | |
| parent | 83b7b03b127f9ed40efe5a8e94ed88d7ab058ad5 (diff) | |
| download | emacs-2e2246388b7dec87dfb65e79ff0827b887c7640b.tar.gz emacs-2e2246388b7dec87dfb65e79ff0827b887c7640b.zip | |
(select-safe-coding-system, leim-list-header): avoid the use of strings
that start with backslash newline since lread.c:read1 has a hack to turn
those strings into integer 0 during the loadup.el process.
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index bdea029229e..12d94900ad2 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -533,8 +533,8 @@ and TO is ignored." | |||
| 533 | (setq non-safe-chars (cdr non-safe-chars))) | 533 | (setq non-safe-chars (cdr non-safe-chars))) |
| 534 | (if (< shown len) | 534 | (if (< shown len) |
| 535 | (insert (format "%27s\n" "...")))) | 535 | (insert (format "%27s\n" "...")))) |
| 536 | (insert (format "\ | 536 | (insert (format |
| 537 | These can't be encoded safely by the coding system %s. | 537 | "These can't be encoded safely by the coding system %s. |
| 538 | 538 | ||
| 539 | Please select one from the following safe coding systems:\n" | 539 | Please select one from the following safe coding systems:\n" |
| 540 | default-coding-system)) | 540 | default-coding-system)) |
| @@ -755,8 +755,8 @@ This file contains a list of libraries of Emacs input methods (LEIM) | |||
| 755 | in the format of Lisp expression for registering each input method. | 755 | in the format of Lisp expression for registering each input method. |
| 756 | Emacs loads this file at startup time.") | 756 | Emacs loads this file at startup time.") |
| 757 | 757 | ||
| 758 | (defvar leim-list-header (format "\ | 758 | (defvar leim-list-header (format |
| 759 | ;;; %s -- list of LEIM (Library of Emacs Input Method) | 759 | ";;; %s -- list of LEIM (Library of Emacs Input Method) |
| 760 | ;; | 760 | ;; |
| 761 | ;; This file contains a list of LEIM (Library of Emacs Input Method) | 761 | ;; This file contains a list of LEIM (Library of Emacs Input Method) |
| 762 | ;; in the same directory as this file. Loading this file registers | 762 | ;; in the same directory as this file. Loading this file registers |