aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorStefan Monnier2018-01-25 13:35:13 -0500
committerStefan Monnier2018-01-25 13:35:37 -0500
commit9107cf30c0c895bc4ea42810a22feee4af991157 (patch)
treed6574e36348178cfadc1fb5d09ca7bebc250f088 /lisp/textmodes
parentf44b50ffc957abb0fcda9b93f1bb7e2c8e9b3b0e (diff)
downloademacs-9107cf30c0c895bc4ea42810a22feee4af991157.tar.gz
emacs-9107cf30c0c895bc4ea42810a22feee4af991157.zip
Replace (default-value 'enable-multibyte-characters) with t
Since Emacs-24, (default-value 'enable-multibyte-characters) can't be changed any more, so we can remove all code which checks this value. * lisp/x-dnd.el (x-dnd-handle-file-name): * lisp/w32-fns.el (w32-set-default-process-coding-system): * lisp/textmodes/ispell.el (ispell-send-string): * lisp/term/internal.el (dos-codepage-setup): * lisp/tar-mode.el (tar-header-block-tokenize, tar--extract): * lisp/startup.el (command-line): * lisp/server.el (server-process-filter): * lisp/net/browse-url.el (browse-url-file-url): * lisp/menu-bar.el (menu-bar-options-menu, menu-bar-describe-menu): * lisp/mail/sendmail.el (mail-setup): * lisp/mail/rmail.el (rmail-mode, rmail-get-new-mail): * lisp/mail/rfc2047.el (rfc2047-encode-message-header): * lisp/mail/emacsbug.el (report-emacs-bug): * lisp/international/mule-diag.el (mule-diag): * lisp/files.el (find-file-noselect-1): * lisp/dos-fns.el (dos-set-default-process-coding-system): * lisp/arc-mode.el (archive-mode): * lisp/international/mule-cmds.el (mule-menu-keymap) (set-default-coding-systems, set-language-info) (set-language-environment, standard-display-european-internal) (set-locale-environment): Simplify code.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/ispell.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 9288a77ba3e..512dfcfa6a7 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1818,11 +1818,9 @@ Only works for Aspell and Enchant."
1818 (setq default-directory defdir) 1818 (setq default-directory defdir)
1819 (insert string) 1819 (insert string)
1820 (if (not (memq cmd cmds-to-defer)) 1820 (if (not (memq cmd cmds-to-defer))
1821 (let (coding-system-for-read coding-system-for-write status) 1821 (let* ((coding-system-for-read (ispell-get-coding-system))
1822 (if (and (boundp 'enable-multibyte-characters) 1822 (coding-system-for-write coding-system-for-read)
1823 enable-multibyte-characters) 1823 status)
1824 (setq coding-system-for-read (ispell-get-coding-system)
1825 coding-system-for-write (ispell-get-coding-system)))
1826 (set-buffer output-buf) 1824 (set-buffer output-buf)
1827 (erase-buffer) 1825 (erase-buffer)
1828 (set-buffer session-buf) 1826 (set-buffer session-buf)