Use curved quotes in core elisp diagnostics

In the core elisp files, use curved quotes in diagnostic formats,
so that they follow user preference as per ‘text-quoting-style’
rather than being hard-coded to quote `like this'.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/cus-start.el:
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl-generic-generalizers):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/env.el (setenv):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, face-spec-set-match-display)
(read-color, x-resolve-font-name):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-local-variables)
(hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file)
(basic-save-buffer, delete-directory, copy-directory)
(recover-session, recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/help.el (describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, compose-mail, set-variable)
(choose-completion-string, define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, )
(command-line, command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
Use curved quotes in diagnostics.
* lisp/international/mule.el (find-auto-coding):
Use " to quote in a diagnostic, to be consistent with the rest of
this file.

1 files changed, 19 insertions, 19 deletions

diff --git a/lisp/files.el b/lisp/files.el
index dd0f28681dc..10392677c67 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -995,10 +995,10 @@ directory if it does not exist."
 	       (put 'user-emacs-directory-warning 'this-session t)
 	       (display-warning 'initialization
 				(format "\
-Unable to %s `user-emacs-directory' (%s).
+Unable to %s ‘user-emacs-directory’ (%s).
 Any data that would normally be written there may be lost!
 If you never want to see this message again,
-customize the variable `user-emacs-directory-warning'."
+customize the variable ‘user-emacs-directory-warning’."
 					errtype user-emacs-directory)))))
        bestname))))
 
@@ -1641,7 +1641,7 @@ killed."
     (user-error "Aborted"))
   (and (buffer-modified-p) buffer-file-name
        (not (yes-or-no-p
-             (format "Kill and replace buffer `%s' without saving it? "
+             (format "Kill and replace buffer ‘%s’ without saving it? "
                      (buffer-name))))
        (user-error "Aborted"))
   (let ((obuf (current-buffer))
@@ -2789,7 +2789,7 @@ we don't actually set it to the same mode the buffer already has."
 	(catch 'nop
 	  (dolist (mode (nreverse modes))
 	    (if (not (functionp mode))
-		(message "Ignoring unknown mode `%s'" mode)
+		(message "Ignoring unknown mode ‘%s’" mode)
 	      (setq done t)
 	      (or (set-auto-mode-0 mode keep-mode-if-same)
 		  ;; continuing would call minor modes again, toggling them off
@@ -2803,7 +2803,7 @@ we don't actually set it to the same mode the buffer already has."
 	 (setq mode (hack-local-variables t))
 	 (not (memq mode modes))	; already tried and failed
 	 (if (not (functionp mode))
-	     (message "Ignoring unknown mode `%s'" mode)
+	     (message "Ignoring unknown mode ‘%s’" mode)
 	   (setq done t)
 	   (set-auto-mode-0 mode keep-mode-if-same)))
     ;; If we didn't, look for an interpreter specified in the first line.
@@ -3419,7 +3419,7 @@ local variables, but directory-local variables may still be applied."
 				 (setq hack-local-variables--warned-lexical t)
 				 (display-warning
                                   :warning
-                                  (format "%s: `lexical-binding' at end of file unreliable"
+                                  (format "%s: ‘lexical-binding’ at end of file unreliable"
                                           (file-name-nondirectory
                                            (or buffer-file-name ""))))))
 			      (t
@@ -3556,7 +3556,7 @@ It is dangerous if either of these conditions are met:
                  var (if since (format " (since %s)" since))
                  (if (stringp instead)
                      (substitute-command-keys instead)
-                   (format "use `%s' instead" instead)))))))
+                   (format "use ‘%s’ instead" instead)))))))
 
 (defun hack-one-local-variable (var val)
   "Set local variable VAR with value VAL.
@@ -3673,7 +3673,7 @@ variables from CLASS are applied to the buffer.  The variables
 for a class are defined using `dir-locals-set-class-variables'."
   (setq directory (file-name-as-directory (expand-file-name directory)))
   (unless (assq class dir-locals-class-alist)
-    (error "No such class `%s'" (symbol-name class)))
+    (error "No such class ‘%s’" (symbol-name class)))
   (push (list directory class mtime) dir-locals-directory-cache))
 
 (defun dir-locals-set-class-variables (class variables)
@@ -4028,7 +4028,7 @@ Interactively, confirmation is required unless you supply a prefix argument."
 	     (not (and (eq (framep-on-display) 'ns)
 		       (listp last-nonmenu-event)
 		       use-dialog-box))
-	     (or (y-or-n-p (format "File `%s' exists; overwrite? " filename))
+	     (or (y-or-n-p (format "File ‘%s’ exists; overwrite? " filename))
 		 (user-error "Canceled")))
 	(set-visited-file-name filename (not confirm))))
   (set-buffer-modified-p t)
@@ -4733,7 +4733,7 @@ Before and after saving the buffer, this function runs
                         ;; Signal an error if the user specified the name of an
                         ;; existing directory.
                         (error "%s is a directory" filename)
-                      (unless (y-or-n-p (format "File `%s' exists; overwrite? "
+                      (unless (y-or-n-p (format "File ‘%s’ exists; overwrite? "
                                                 filename))
                         (error "Canceled"))))
                 (set-visited-file-name filename)))
@@ -4774,7 +4774,7 @@ Before and after saving the buffer, this function runs
 			    (expand-file-name buffer-file-name))))
 		  (unless (file-exists-p dir)
 		    (if (y-or-n-p
-			 (format "Directory `%s' does not exist; create? " dir))
+			 (format "Directory ‘%s’ does not exist; create? " dir))
 			(make-directory dir t)
 		      (error "Canceled")))
 		  (setq setmodes (basic-save-buffer-1))))
@@ -5217,7 +5217,7 @@ given.  With a prefix argument, TRASH is nil."
      (list dir
 	   (if (directory-files	dir nil directory-files-no-dot-files-regexp)
 	       (y-or-n-p
-		(format "Directory `%s' is not empty, really %s? "
+		(format "Directory ‘%s’ is not empty, really %s? "
 			dir (if trashing "trash" "delete")))
 	     nil)
 	   (null current-prefix-arg))))
@@ -5323,7 +5323,7 @@ directly into NEWNAME instead."
 	    default-directory default-directory nil nil)
 	   current-prefix-arg t nil)))
   (when (file-in-directory-p newname directory)
-    (error "Cannot copy `%s' into its subdirectory `%s'"
+    (error "Cannot copy ‘%s’ into its subdirectory ‘%s’"
            directory newname))
   ;; If default-directory is a remote directory, make sure we find its
   ;; copy-directory handler.
@@ -5695,7 +5695,7 @@ To choose one, move point to the proper line and then type C-c C-c.
 Then you'll be asked about a number of files to recover."
   (interactive)
   (if (null auto-save-list-file-prefix)
-      (error "You set `auto-save-list-file-prefix' to disable making session files"))
+      (error "You set ‘auto-save-list-file-prefix’ to disable making session files"))
   (let ((dir (file-name-directory auto-save-list-file-prefix))
         (nd (file-name-nondirectory auto-save-list-file-prefix)))
     (unless (file-directory-p dir)
@@ -5789,7 +5789,7 @@ This command is used in the special Dired buffer created by
 			       (condition-case nil
 				   (save-excursion (recover-file file))
 				 (error
-				  "Failed to recover `%s'" file)))
+				  "Failed to recover ‘%s’" file)))
 			     files
 			     '("file" "files" "recover"))
 	    (message "No files can be recovered from this session now")))
@@ -6474,7 +6474,7 @@ normally equivalent short `-D' option is just passed on to
 		 file result)
 	      ;; Unix.  Access the file to get a suitable error.
 	      (access-file file "Reading directory")
-	      (error "Listing directory failed but `access-file' worked")))
+	      (error "Listing directory failed but ‘access-file’ worked")))
 
 	  (when (if (stringp switches)
 		    (string-match "--dired\\>" switches)
@@ -6767,7 +6767,7 @@ for the specified category of users."
 	((= char ?g) #o2070)
 	((= char ?o) #o1007)
 	((= char ?a) #o7777)
-	(t (error "%c: bad `who' character" char))))
+	(t (error "%c: bad ‘who’ character" char))))
 
 (defun file-modes-char-to-right (char &optional from)
   "Convert CHAR to a numeric value of mode bits.
@@ -6839,7 +6839,7 @@ as in \"og+rX-w\"."
 		    (file-modes-rights-to-number (substring modes (match-end 1))
 						 num-who num-modes)
 		    modes (substring modes (match-end 3))))
-	  (error "Parse error in modes near `%s'" (substring modes 0))))
+	  (error "Parse error in modes near ‘%s’" (substring modes 0))))
       num-modes)))
 
 (defun read-file-modes (&optional prompt orig-file)
@@ -6908,7 +6908,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions,
 					       trash-dir)))
 	   ;; We can't trash a parent directory of trash-directory.
 	   (if (string-prefix-p fn trash-dir)
-	       (error "Trash directory `%s' is a subdirectory of `%s'"
+	       (error "Trash directory ‘%s’ is a subdirectory of ‘%s’"
 		      trash-dir filename))
 	   (unless (file-directory-p trash-dir)
 	     (make-directory trash-dir t))