diff options
Diffstat (limited to 'lisp/emacs-lisp/elint.el')
| -rw-r--r-- | lisp/emacs-lisp/elint.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index fc66c82c81d..3365a852570 100644 --- 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 " \nLeaving directory `%s'" + (elint-log-message (format " \nLeaving directory ‘%s’" default-directory) t) - (elint-log-message (format "Entering directory `%s'" dir) t) + (elint-log-message (format "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 ‘'%.20s...’" (read (current-buffer))) (condition-case nil (setq tops (cons @@ -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 |