diff options
| author | K. Handa <handa@gnu.org> | 2015-09-08 20:43:11 +0900 |
|---|---|---|
| committer | K. Handa <handa@gnu.org> | 2015-09-08 20:43:11 +0900 |
| commit | 94ed5167557112fb00eeca05e62589db744206de (patch) | |
| tree | 80a544f8534802dd61fbd218b97441d3419dbf6b /lisp/emacs-lisp/check-declare.el | |
| parent | 33f2e0023a5ef03db3e99ade0b93a7a1a913dbe1 (diff) | |
| parent | 10e7f7de910ca816799062f33b830f7598801f0e (diff) | |
| download | emacs-94ed5167557112fb00eeca05e62589db744206de.tar.gz | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp/check-declare.el')
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index bdcb4ec00a2..3b69e959282 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el @@ -106,7 +106,7 @@ don't know how to recognize (e.g. some macros)." (symbolp (setq fileonly (nth 4 form)))) (setq alist (cons (list fnfile fn arglist fileonly) alist)) ;; FIXME make this more noticeable. - (if form (message "Malformed declaration for ‘%s’" (cadr form)))))) + (if form (message "Malformed declaration for `%s'" (cadr form)))))) (message "%sdone" m) alist)) @@ -279,7 +279,7 @@ TYPE is a string giving the nature of the error. Warning is displayed in entry)) (warning-fill-prefix " ")) (display-warning 'check-declare - (format-message "said ‘%s’ was defined in %s: %s" + (format-message "said `%s' was defined in %s: %s" fn (file-name-nondirectory fnfile) type) nil check-declare-warning-buffer))) @@ -318,7 +318,7 @@ Return a list of any errors found." See `check-declare-directory' for more information." (interactive "fFile to check: ") (or (file-exists-p file) - (error "File ‘%s’ not found" file)) + (error "File `%s' not found" file)) (let ((m (format "Checking %s..." file)) errlist) (message "%s" m) @@ -332,8 +332,8 @@ See `check-declare-directory' for more information." Returns non-nil if any false statements are found." (interactive "DDirectory to check: ") (or (file-directory-p (setq root (expand-file-name root))) - (error "Directory ‘%s’ not found" root)) - (let ((m "Checking ‘declare-function’ statements...") + (error "Directory `%s' not found" root)) + (let ((m "Checking `declare-function' statements...") (m2 "Finding files with declarations...") errlist files) (message "%s" m) |