diff options
| author | Reuben Thomas | 2016-12-04 14:35:42 +0000 |
|---|---|---|
| committer | Reuben Thomas | 2016-12-13 19:43:49 +0000 |
| commit | 8245e5b9b00b4a839aa201d7883d5e55e8f66879 (patch) | |
| tree | 113571e891f809314801dc7ddd60f1bfddd9a44d | |
| parent | ff5deddc83ea07916c161457920bee301dc3e5f8 (diff) | |
| download | emacs-8245e5b9b00b4a839aa201d7883d5e55e8f66879.tar.gz emacs-8245e5b9b00b4a839aa201d7883d5e55e8f66879.zip | |
Remove XEmacs-specific code dealing with enable-multibyte-characters
* lisp/textmodes/ispell.el (ispell-decode-string):
(ispell-init-process): Remove XEmacs-specific guard.
| -rw-r--r-- | lisp/textmodes/ispell.el | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 6a28db624d5..f0bb5693515 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -1451,17 +1451,8 @@ used as key in `ispell-local-dictionary-alist' and `ispell-dictionary-alist'.") | |||
| 1451 | This is passed to the Ispell process using the `-p' switch.") | 1451 | This is passed to the Ispell process using the `-p' switch.") |
| 1452 | 1452 | ||
| 1453 | (defun ispell-decode-string (str) | 1453 | (defun ispell-decode-string (str) |
| 1454 | "Decodes multibyte character strings. | 1454 | "Decodes multibyte character strings." |
| 1455 | Protects against bogus binding of `enable-multibyte-characters' in XEmacs." | 1455 | (decode-coding-string str (ispell-get-coding-system))) |
| 1456 | ;; FIXME: enable-multibyte-characters is read-only, so bogus bindings are | ||
| 1457 | ;; really nasty (they signal an error in Emacs): Who does that? --Stef | ||
| 1458 | (if (and (or (featurep 'xemacs) | ||
| 1459 | (and (boundp 'enable-multibyte-characters) | ||
| 1460 | enable-multibyte-characters)) | ||
| 1461 | (fboundp 'decode-coding-string) | ||
| 1462 | (ispell-get-coding-system)) | ||
| 1463 | (decode-coding-string str (ispell-get-coding-system)) | ||
| 1464 | str)) | ||
| 1465 | 1456 | ||
| 1466 | ;; Return a string decoded from Nth element of the current dictionary. | 1457 | ;; Return a string decoded from Nth element of the current dictionary. |
| 1467 | (defun ispell-get-decoded-string (n) | 1458 | (defun ispell-get-decoded-string (n) |
| @@ -2871,11 +2862,7 @@ Keeps argument list for future Ispell invocations for no async support." | |||
| 2871 | 2862 | ||
| 2872 | (if ispell-async-processp | 2863 | (if ispell-async-processp |
| 2873 | (set-process-filter ispell-process 'ispell-filter)) | 2864 | (set-process-filter ispell-process 'ispell-filter)) |
| 2874 | ;; Protect against XEmacs bogus binding of `enable-multibyte-characters'. | 2865 | (if (and enable-multibyte-characters |
| 2875 | (if (and (or (featurep 'xemacs) | ||
| 2876 | (and (boundp 'enable-multibyte-characters) | ||
| 2877 | enable-multibyte-characters)) | ||
| 2878 | (fboundp 'set-process-coding-system) | ||
| 2879 | ;; Evidently, some people use the synchronous mode even | 2866 | ;; Evidently, some people use the synchronous mode even |
| 2880 | ;; when async subprocesses are supported, in which case | 2867 | ;; when async subprocesses are supported, in which case |
| 2881 | ;; set-process-coding-system is bound, but | 2868 | ;; set-process-coding-system is bound, but |