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.

4 files changed, 14 insertions, 22 deletions

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index cb34a75fa1c..43e8d3b526c 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -286,11 +286,6 @@ usually do not have translators for other languages.\n\n")))
        "LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
        "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG" "XMODIFIERS"))
     (insert (format "  locale-coding-system: %s\n" locale-coding-system))
-    ;; Only ~ 0.2% of people from a sample of 3200 changed this from
-    ;; the default, t.
-    (or (default-value 'enable-multibyte-characters)
-        (insert (format "  default enable-multibyte-characters: %s\n"
-                        (default-value 'enable-multibyte-characters))))
     (insert "\n")
     (insert (format "Major mode: %s\n"
                     (format-mode-line
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el
index dbfde57224a..c0cd4ee8c43 100644
--- a/lisp/mail/rfc2047.el
+++ b/lisp/mail/rfc2047.el
@@ -290,8 +290,7 @@ Should be called narrowed to the head of the message."
                 (let ((rfc2047-encoding-type 'mime))
                   (rfc2047-encode-region (point) (point-max))))
                ((eq method 'default)
-                (if (and (default-value 'enable-multibyte-characters)
-                         mail-parse-charset)
+                (if mail-parse-charset
                     (encode-coding-region (point) (point-max)
                                           mail-parse-charset)))
                ;; We get this when CC'ing messages to newsgroups with
@@ -305,18 +304,17 @@ Should be called narrowed to the head of the message."
                ;; in accordance with changes elsewhere.
                ((null method)
                 (rfc2047-encode-region (point) (point-max)))
-;;;            ((null method)
-;;;             (if (or (message-options-get
-;;;                      'rfc2047-encode-message-header-encode-any)
-;;;                     (message-options-set
-;;;                      'rfc2047-encode-message-header-encode-any
-;;;                      (y-or-n-p
-;;;                       "Some texts are not encoded. Encode anyway?")))
-;;;                 (rfc2047-encode-region (point-min) (point-max))
-;;;               (error "Cannot send unencoded text")))
+               ;; ((null method)
+               ;;  (if (or (message-options-get
+               ;;        'rfc2047-encode-message-header-encode-any)
+               ;;       (message-options-set
+               ;;        'rfc2047-encode-message-header-encode-any
+               ;;        (y-or-n-p
+               ;;         "Some texts are not encoded. Encode anyway?")))
+               ;;      (rfc2047-encode-region (point-min) (point-max))
+               ;;    (error "Cannot send unencoded text")))
                ((mm-coding-system-p method)
-                (when (default-value 'enable-multibyte-characters)
-                  (encode-coding-region (point) (point-max) method)))
+                (encode-coding-region (point) (point-max) method))
                ;; Hm.
                (t)))
             (goto-char (point-max))))))))
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7b542638743..4e182525511 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1331,8 +1331,7 @@ Instead, these commands are available:
   (let ((finding-rmail-file (not (eq major-mode 'rmail-mode))))
     (rmail-mode-2)
     (when (and finding-rmail-file
-               (null coding-system-for-read)
-               (default-value 'enable-multibyte-characters))
+               (null coding-system-for-read))
       (let ((rmail-enable-multibyte t))
         (rmail-require-mime-maybe)
         (rmail-convert-file-maybe)
@@ -1759,7 +1758,7 @@ not be a new one).  It returns non-nil if it got any new messages."
   (or (eq buffer-undo-list t)
       (setq buffer-undo-list nil))
   (let ((all-files (if file-name (list file-name) rmail-inbox-list))
-        (rmail-enable-multibyte (default-value 'enable-multibyte-characters))
+        (rmail-enable-multibyte t)
         found)
     (unwind-protect
         (progn
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index da2d3174ce1..212a6c74baa 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -607,7 +607,7 @@ This also saves the value of `send-mail-function' via Customize."
   (kill-local-variable 'buffer-file-coding-system)
   ;; This doesn't work for enable-multibyte-characters.
   ;; (kill-local-variable 'enable-multibyte-characters)
-  (set-buffer-multibyte (default-value 'enable-multibyte-characters))
+  (set-buffer-multibyte t)
   (if current-input-method
       (deactivate-input-method))