* bytecomp.el (byte-compile-report-error): Allow the argument to be a string.

Due to the vague doc, it was already being used this way.
This commit is contained in:
Glenn Morris 2014-11-08 13:29:04 -08:00
parent d244e9bf03
commit 7d8205619a
2 changed files with 11 additions and 2 deletions

View file

@ -1,3 +1,9 @@
2014-11-08 Glenn Morris <rgm@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-report-error):
Allow the argument to be a string. Due to the vague doc,
it was already being used this way.
2014-11-07 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-check-cached-permissions): Include hop in

View file

@ -1147,10 +1147,13 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
(byte-compile-warn "%s" msg)))))
(defun byte-compile-report-error (error-info)
"Report Lisp error in compilation. ERROR-INFO is the error data."
"Report Lisp error in compilation.
ERROR-INFO is the error data, in the form of either (ERROR-SYMBOL . DATA)
or STRING."
(setq byte-compiler-error-flag t)
(byte-compile-log-warning
(error-message-string error-info)
(if (stringp error-info) error-info
(error-message-string error-info))
nil :error))
;;; sanity-checking arglists