Go back to grave quoting in source-code docstrings etc.

[gnu-emacs] / lisp / faces.el

diff --git a/lisp/faces.el b/lisp/faces.el
index 9e879c1e188234dc44141ca9c7d2cca79b7f79e2..5485d80c926066cf2727506c5eed1678bb59f655 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -574,7 +574,7 @@ If FACE is a face-alias, get the documentation for the target face."
   (let ((alias (get face 'face-alias)))
     (if alias
         (let ((doc (get alias 'face-documentation)))
-         (format-message "%s is an alias for the face ‘%s’.%s" face alias
+         (format "%s is an alias for the face `%s'.%s" face alias
                   (if doc (format "\n%s" doc)
                     "")))
       (get face 'face-documentation))))
@@ -1005,7 +1005,7 @@ a single face name."
     (setq default (car (split-string default crm-separator t))))
 
   (let ((prompt (if default
-                    (format-message "%s (default ‘%s’): " prompt default)
+                    (format-message "%s (default `%s'): " prompt default)
                   (format "%s: " prompt)))
         aliasfaces nonaliasfaces faces)
     ;; Build up the completion tables.
@@ -1137,8 +1137,8 @@ Value is the new attribute value."
   (let* ((completion-ignore-case t)
         (value (completing-read
                  (format-message (if default
-                                     "%s for face ‘%s’ (default %s): "
-                                   "%s for face ‘%s’: ")
+                                     "%s for face `%s' (default %s): "
+                                   "%s for face `%s': ")
                                  name face default)
                 completion-alist nil nil nil nil default)))
     (if (equal value "") default value)))
@@ -1225,7 +1225,7 @@ of a global face.  Value is the new attribute value."
 If optional argument FRAME is nil or omitted, use the selected frame."
   (let ((completion-ignore-case t))
     (completing-read (format-message
-                      "Set font attributes of face ‘%s’ from font: " face)
+                      "Set font attributes of face `%s' from font: " face)
                     (append (fontset-list) (x-list-fonts "*" nil frame)))))
 
 
@@ -1437,11 +1437,11 @@ If FRAME is omitted or nil, use the selected frame."
                    (setq face alias)
                    (insert
                     (format-message
-                      "\n  %s is an alias for the face ‘%s’.\n%s"
+                      "\n  %s is an alias for the face `%s'.\n%s"
                       f alias
                       (if (setq obsolete (get f 'obsolete-face))
                           (format-message
-                           "  This face is obsolete%s; use ‘%s’ instead.\n"
+                           "  This face is obsolete%s; use `%s' instead.\n"
                            (if (stringp obsolete)
                                (format " since %s" obsolete)
                              "")
@@ -1459,13 +1459,13 @@ If FRAME is omitted or nil, use the selected frame."
                    (help-xref-button 1 'help-customize-face f)))
                (setq file-name (find-lisp-object-file-name f 'defface))
                (when file-name
-                 (princ (substitute-command-keys "Defined in ‘"))
+                 (princ (substitute-command-keys "Defined in `"))
                  (princ (file-name-nondirectory file-name))
-                 (princ (substitute-command-keys "’"))
+                 (princ (substitute-command-keys "'"))
                  ;; Make a hyperlink to the library.
                  (save-excursion
                    (re-search-backward
-                     (substitute-command-keys "‘\\([^‘’]+\\)’") nil t)
+                     (substitute-command-keys "`\\([^`']+\\)'") nil t)
                    (help-xref-button 1 'help-face-def f file-name))
                  (princ ".")
                  (terpri)
@@ -1552,7 +1552,7 @@ If FRAME is nil, the current FRAME is used."
                               options))
                        ((eq req 'supports)
                         (display-supports-face-attributes-p options frame))
-                       (t (error "Unknown req ‘%S’ with options ‘%S’"
+                       (t (error "Unknown req `%S' with options `%S'"
                                  req options)))))
     match))
 
@@ -1925,7 +1925,7 @@ resulting color name in the echo area."
                                (logand 65535 (nth 0 components))
                                (logand 65535 (nth 1 components))
                                (logand 65535 (nth 2 components))))))))
-    (when msg (message "Color: ‘%s’" color))
+    (when msg (message "Color: `%s'" color))
     color))
 
 (defun face-at-point (&optional thing multiple)
@@ -2778,13 +2778,13 @@ also the same size as FACE on FRAME, or fail."
                (if (string-match-p "\\*" pattern)
                    (if (null (face-font face))
                        (error "No matching fonts are the same height as the frame default font")
-                     (error "No matching fonts are the same height as face ‘%s’" face))
+                     (error "No matching fonts are the same height as face `%s'" face))
                  (if (null (face-font face))
-                     (error "Height of font ‘%s’ doesn't match the frame default font"
+                     (error "Height of font `%s' doesn't match the frame default font"
                             pattern)
-                   (error "Height of font ‘%s’ doesn't match face ‘%s’"
+                   (error "Height of font `%s' doesn't match face `%s'"
                           pattern face)))
-             (error "No fonts match ‘%s’" pattern)))
+             (error "No fonts match `%s'" pattern)))
        (car fonts))
     (cdr (assq 'font (frame-parameters (selected-frame))))))