Fix some more docstring etc. quoting problems

Mostly these fixes prevent the transliteration of apostrophes
that should stay apostrophes.  Also, prefer curved quotes in
Bahá’í proper names, as that’s the preferred Bahá’í style and
these names are chock-full of non-ASCII characters anyway.
* lisp/emacs-lisp/eieio-core.el (eieio-defclass-autoload)
(eieio-defclass-internal):
* lisp/emacs-lisp/eieio.el (defclass):
* lisp/hi-lock.el (hi-lock-mode):
Don’t transliterate Lisp apostrophes when generating a
doc string or diagnostic.
* lisp/international/mule-diag.el (list-coding-systems-1):
* lisp/international/ogonek.el (ogonek-jak, ogonek-how):
* lisp/mail/sendmail.el (sendmail-query-user-about-smtp):
* lisp/vc/ediff-mult.el (ediff-redraw-registry-buffer):
* lisp/vc/ediff-ptch.el (ediff-fixup-patch-map):
Substitute quotes before putting them in the help buffer.

3 files changed, 20 insertions, 18 deletions

diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index ccd892640ec..14c45d1ec0b 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -566,7 +566,7 @@ but common in some proprietary systems."
   "If non-nil and the email has no Sender: header, use this value.
 May be nil, in which case nothing in particular is done with respect
 to Sender: lines.  By design, will not replace an existing Sender:
-line, but you can achieve that with a fiddle-plex 'replace action.
+line, but you can achieve that with a fiddle-plex replace action.
 NB: it makes no sense to use the value t since there is no sensible
 default for Sender:.
 
@@ -1745,7 +1745,7 @@ applied to a file after you've just read it from disk: for example, a
 feedmail FQM message file from a queue.  You could use something like
 this:
 
-\(setq auto-mode-alist \(cons \'\(\"\\\\.fqm$\" . feedmail-vm-mail-mode\) auto-mode-alist\)\)
+\(setq auto-mode-alist \(cons \\='\(\"\\\\.fqm$\" . feedmail-vm-mail-mode\) auto-mode-alist\)\)
 "
   (feedmail-say-debug ">in-> feedmail-vm-mail-mode")
   (let ((the-buf (current-buffer)))
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 577cec0fd86..cd9df1f638a 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -119,11 +119,11 @@ completed.  `pattern' is nil when `mail-directory-requery' is nil.
 
 The value might look like this:
 
-  '(remote-shell-program \"HOST\" \"-nl\" \"USER\" \"COMMAND\")
+  (remote-shell-program \"HOST\" \"-nl\" \"USER\" \"COMMAND\")
 
 or like this:
 
-  '(remote-shell-program \"HOST\" \"-n\" \"COMMAND '^\" pattern \"'\")"
+  (remote-shell-program \"HOST\" \"-n\" \"COMMAND \\='^\" pattern \"\\='\")"
   :type 'sexp
   :group 'mailalias)
 (put 'mail-directory-process 'risky-local-variable t)
@@ -512,7 +512,7 @@ PREFIX is the string we want to complete."
                                      mail-aliases))
                                 (if (consp mail-local-names)
                                     mail-local-names)
-                                (or directory 
+                                (or directory
                                     (when (consp mail-directory-names)
                                       mail-directory-names)))
                         (lambda (a b)
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 5b5ee4ec2c5..4c0f2b98257 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -525,31 +525,33 @@ This also saves the value of `send-mail-function' via Customize."
           ;; Query the user.
           (with-temp-buffer
             (rename-buffer "*Emacs Mail Setup Help*" t)
-            (insert "\
+            (insert (substitute-command-keys "\
  Emacs is about to send an email message, but it has not been
  configured for sending email.  To tell Emacs how to send email:
 
- - Type `"
+ - Type `")
                     (propertize "mail client" 'face 'bold)
-                    "' to start your default email client and
-   pass it the message text.\n\n")
+                    (substitute-command-keys "\
+' to start your default email client and
+   pass it the message text.\n\n"))
             (and sendmail-program
                  (executable-find sendmail-program)
-                 (insert "\
- - Type `"
+                 (insert (substitute-command-keys "\
+ - Type `")
                          (propertize "transport" 'face 'bold)
-                         "' to invoke the system's mail transport agent
-   (the `"
+                         (substitute-command-keys "\
+' to invoke the system's mail transport agent
+   (the `")
                          sendmail-program
-                         "' program).\n\n"))
-            (insert "\
- - Type `"
+                         (substitute-command-keys "' program).\n\n")))
+            (insert (substitute-command-keys "\
+ - Type `")
                     (propertize "smtp" 'face 'bold)
-                    "' to send mail directly to an \"outgoing mail\" server.
+                    (substitute-command-keys "' to send mail directly to an \"outgoing mail\" server.
    (Emacs may prompt you for SMTP settings).
 
  Emacs will record your selection and will use it thereafter.
- To change it later, customize the option `send-mail-function'.\n")
+ To change it later, customize the option `send-mail-function'.\n"))
             (goto-char (point-min))
             (display-buffer (current-buffer))
             (let ((completion-ignore-case t))