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

[gnu-emacs] / lisp / emacs-lisp / elint.el

diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 15eeb49707b61b5c8037faf86f2d2fa0da8f67d2..86ac33c2600c0e261fcd5db942830dbb99e90594 100644 (file)
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -249,9 +249,9 @@ This environment can be passed to `macroexpand'."
     (elint-set-mode-line t)
     (with-current-buffer elint-log-buffer
       (unless (string-equal default-directory dir)
-       (elint-log-message (format-message "\f\nLeaving directory ‘%s’"
+       (elint-log-message (format-message "\f\nLeaving directory `%s'"
                                            default-directory) t)
-       (elint-log-message (format-message "Entering directory ‘%s’" dir) t)
+       (elint-log-message (format-message "Entering directory `%s'" dir) t)
        (setq default-directory dir))))
   (let ((str (format "Linting file %s" file)))
     (message "%s..." str)
@@ -374,7 +374,7 @@ Returns the forms."
          ;; quoted check cannot be elsewhere, since quotes skipped.
          (if (looking-back "'" (1- (point)))
              ;; Eg cust-print.el uses ' as a comment syntax.
-             (elint-warning "Skipping quoted form ‘'%.20s...’"
+             (elint-warning "Skipping quoted form `%c%.20s...'" ?\'
                           (read (current-buffer)))
            (condition-case nil
                (setq tops (cons
@@ -383,7 +383,7 @@ Returns the forms."
                            tops))
              (end-of-file
               (goto-char elint-current-pos)
-              (error "Missing ‘)’ in top form: %s"
+              (error "Missing `)' in top form: %s"
                      (buffer-substring elint-current-pos
                                        (line-end-position))))))))
       (nreverse tops))))
@@ -401,7 +401,7 @@ Return nil if there are no more forms, t otherwise."
   (cond
    ;; Eg nnmaildir seems to use [] as a form of comment syntax.
    ((not (listp form))
-    (elint-warning "Skipping non-list form ‘%s’" form))
+    (elint-warning "Skipping non-list form `%s'" form))
    ;; Add defined variable
    ((memq (car form) '(defvar defconst defcustom))
     (setq elint-env (elint-env-add-var elint-env (cadr form))))
@@ -432,7 +432,7 @@ Return nil if there are no more forms, t otherwise."
               (if (or (< (length form) 4)
                       (eq (nth 3 form) t)
                       (unless (stringp (nth 2 form))
-                        (elint-error "Malformed declaration for ‘%s’"
+                        (elint-error "Malformed declaration for `%s'"
                                      (cadr form))
                         t))
                   'unknown
@@ -758,7 +758,7 @@ CODE can be a lambda expression, a macro, or byte-compiled code."
     (and (eq (car-safe alias) 'quote)
         (eq (car-safe target) 'quote)
         (eq (elint-get-args (cadr target) env) 'undefined)
-        (elint-warning "Alias ‘%s’ has unknown target ‘%s’"
+        (elint-warning "Alias `%s' has unknown target `%s'"
                        (cadr alias) (cadr target))))
   (elint-form form env t))
 
@@ -796,7 +796,7 @@ CODE can be a lambda expression, a macro, or byte-compiled code."
                  (setq newenv
                        (elint-env-add-var newenv (car s))))
                 (t (elint-error
-                    "Malformed ‘let’ declaration: %s" s))))
+                    "Malformed `let' declaration: %s" s))))
              varlist)
 
        ;; Lint the body forms