text-quoting-style in emacs-lisp diagnostics

* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile-fix-header)
(byte-compile--declare-var, byte-compile-file-form-defmumble)
(byte-compile-form, byte-compile-normal-call)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use)
(cconv-analyze-form):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref, eieio-oset-default):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-next, ring-previous):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/testcover.el (testcover-1value):
Use curved quotes in diagnostic format strings.

1 files changed, 17 insertions, 17 deletions

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 1915d94e97b..bbff34db804 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -168,7 +168,7 @@
 ;;  "Switch to non-existing buffers only upon confirmation."
 ;;  (interactive "BSwitch to buffer: ")
 ;;  (if (or (get-buffer (ad-get-arg 0))
-;;          (y-or-n-p (format "`%s' does not exist, create? " (ad-get-arg 0))))
+;;          (y-or-n-p (format "‘%s’ does not exist, create? " (ad-get-arg 0))))
 ;;      ad-do-it))
 ;;
 ;;(defadvice find-file (before existing-files-only activate)
@@ -1870,7 +1870,7 @@ function at point for which PREDICATE returns non-nil)."
     (if (equal function "")
 	(if (ad-is-advised default)
 	    default
-	  (error "ad-read-advised-function: `%s' is not advised" default))
+	  (error "ad-read-advised-function: ‘%s’ is not advised" default))
       (intern function))))
 
 (defvar ad-advice-class-completion-table
@@ -1887,7 +1887,7 @@ class of FUNCTION)."
 	    (cl-dolist (class ad-advice-classes)
 	      (if (ad-get-advice-info-field function class)
 		  (cl-return class)))
-	    (error "ad-read-advice-class: `%s' has no advices" function)))
+	    (error "ad-read-advice-class: ‘%s’ has no advices" function)))
   (let ((class (completing-read
 		(format "%s (default %s): " (or prompt "Class") default)
 		ad-advice-class-completion-table nil t)))
@@ -1904,7 +1904,7 @@ An optional PROMPT is used to prompt for the name."
 		  (ad-get-advice-info-field function class)))
 	 (default
 	   (if (null name-completion-table)
-	       (error "ad-read-advice-name: `%s' has no %s advice"
+	       (error "ad-read-advice-name: ‘%s’ has no %s advice"
 		      function class)
 	     (car (car name-completion-table))))
 	 (prompt (format "%s (default %s): " (or prompt "Name") default))
@@ -1995,9 +1995,9 @@ FUNCTION was not advised)."
   (interactive (ad-read-advice-specification "Enable advice of"))
   (if (ad-is-advised function)
       (if (eq (ad-enable-advice-internal function class name t) 0)
-	  (error "ad-enable-advice: `%s' has no %s advice matching `%s'"
+	  (error "ad-enable-advice: ‘%s’ has no %s advice matching ‘%s’"
 		 function class name))
-    (error "ad-enable-advice: `%s' is not advised" function)))
+    (error "ad-enable-advice: ‘%s’ is not advised" function)))
 
 ;;;###autoload
 (defun ad-disable-advice (function class name)
@@ -2005,9 +2005,9 @@ FUNCTION was not advised)."
   (interactive (ad-read-advice-specification "Disable advice of"))
   (if (ad-is-advised function)
       (if (eq (ad-enable-advice-internal function class name nil) 0)
-	  (error "ad-disable-advice: `%s' has no %s advice matching `%s'"
+	  (error "ad-disable-advice: ‘%s’ has no %s advice matching ‘%s’"
 		 function class name))
-    (error "ad-disable-advice: `%s' is not advised" function)))
+    (error "ad-disable-advice: ‘%s’ is not advised" function)))
 
 (defun ad-enable-regexp-internal (regexp class flag)
   "Set enable FLAGs of all CLASS advices whose name contains a REGEXP match.
@@ -2053,9 +2053,9 @@ in that CLASS."
 	    (ad-set-advice-info-field
 	     function class
 	     (delq advice-to-remove (ad-get-advice-info-field function class)))
-	  (error "ad-remove-advice: `%s' has no %s advice `%s'"
+	  (error "ad-remove-advice: ‘%s’ has no %s advice ‘%s’"
 		 function class name)))
-    (error "ad-remove-advice: `%s' is not advised" function)))
+    (error "ad-remove-advice: ‘%s’ is not advised" function)))
 
 ;;;###autoload
 (defun ad-add-advice (function advice class position)
@@ -2319,7 +2319,7 @@ INDEX counts from zero."
              ,value-form))
 	  (argument-access
 	   `(setq ,argument-access ,value-form))
-	  (t (error "ad-set-argument: No argument at position %d of `%s'"
+	  (t (error "ad-set-argument: No argument at position %d of ‘%s’"
 		    index arglist)))))
 
 (defun ad-get-arguments (arglist index)
@@ -2361,7 +2361,7 @@ The assignment starts at position INDEX."
       (setq index (1+ index))
       (setq values-index (1+ values-index)))
     (if (null set-forms)
-	(error "ad-set-arguments: No argument at position %d of `%s'"
+	(error "ad-set-arguments: No argument at position %d of ‘%s’"
 	       index arglist)
         (if (= (length set-forms) 1)
             ;; For exactly one set-form we can use values-form directly,...
@@ -2911,14 +2911,14 @@ the value of `ad-redefinition-action' and de/activate again."
 	    (if (not (eq current-definition original-definition))
 		;; We have a redefinition:
 		(if (not (memq ad-redefinition-action '(accept discard warn)))
-		    (error "ad-redefinition-action: `%s' %s"
+		    (error "ad-redefinition-action: ‘%s’ %s"
 			   function "invalidly redefined")
 		  (if (eq ad-redefinition-action 'discard)
 		      nil ;; Just drop it!
 		    (funcall (or fsetfun #'fset) function newdef)
                     (ad-activate-internal function)
 		    (if (eq ad-redefinition-action 'warn)
-			(message "ad-handle-definition: `%s' got redefined"
+			(message "ad-handle-definition: ‘%s’ got redefined"
 				 function))))
 	      ;; either advised def or correct original is in place:
 	      nil)
@@ -2953,7 +2953,7 @@ definition will always be cached for later usage."
 	 current-prefix-arg))
   (cond
    ((not (ad-is-advised function))
-    (error "ad-activate: `%s' is not advised" function))
+    (error "ad-activate: ‘%s’ is not advised" function))
    ;; Just return for forward advised and not yet defined functions:
    ((not (ad-get-orig-definition function)) nil)
    ((not (ad-has-any-advice function)) (ad-unadvise function))
@@ -2977,10 +2977,10 @@ a call to `ad-activate'."
   (interactive
    (list (ad-read-advised-function "Deactivate advice of" 'ad-is-active)))
   (if (not (ad-is-advised function))
-      (error "ad-deactivate: `%s' is not advised" function)
+      (error "ad-deactivate: ‘%s’ is not advised" function)
     (cond ((ad-is-active function)
 	   (if (not (ad-get-orig-definition function))
-	       (error "ad-deactivate: `%s' has no original definition"
+	       (error "ad-deactivate: ‘%s’ has no original definition"
 		      function)
              (ad-clear-advicefunname-definition function)
 	     (ad-set-advice-info-field function 'active nil)