diff options
| author | Stefan Monnier | 2018-01-25 13:35:13 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2018-01-25 13:35:37 -0500 |
| commit | 9107cf30c0c895bc4ea42810a22feee4af991157 (patch) | |
| tree | d6574e36348178cfadc1fb5d09ca7bebc250f088 /lisp/server.el | |
| parent | f44b50ffc957abb0fcda9b93f1bb7e2c8e9b3b0e (diff) | |
| download | emacs-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/server.el')
| -rw-r--r-- | lisp/server.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/server.el b/lisp/server.el index ac0d7018513..d91a51e425a 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -1061,9 +1061,8 @@ The following commands are accepted by the client: | |||
| 1061 | ;; supported any more. | 1061 | ;; supported any more. |
| 1062 | (cl-assert (eq (match-end 0) (length string))) | 1062 | (cl-assert (eq (match-end 0) (length string))) |
| 1063 | (let ((request (substring string 0 (match-beginning 0))) | 1063 | (let ((request (substring string 0 (match-beginning 0))) |
| 1064 | (coding-system (and (default-value 'enable-multibyte-characters) | 1064 | (coding-system (or file-name-coding-system |
| 1065 | (or file-name-coding-system | 1065 | default-file-name-coding-system)) |
| 1066 | default-file-name-coding-system))) | ||
| 1067 | nowait ; t if emacsclient does not want to wait for us. | 1066 | nowait ; t if emacsclient does not want to wait for us. |
| 1068 | frame ; Frame opened for the client (if any). | 1067 | frame ; Frame opened for the client (if any). |
| 1069 | display ; Open frame on this display. | 1068 | display ; Open frame on this display. |