diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-11-08 13:29:04 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-11-08 13:29:04 -0800 |
| commit | 7d8205619a95e44ec5c4d589c538c6616e64483b (patch) | |
| tree | 94afc5982f9a9917b1cd04100969b52e053fb0c2 /lisp/emacs-lisp/bytecomp.el | |
| parent | d244e9bf0369c630386efbdc69ea123ae1289844 (diff) | |
| download | emacs-7d8205619a95e44ec5c4d589c538c6616e64483b.tar.gz emacs-7d8205619a95e44ec5c4d589c538c6616e64483b.tar.bz2 emacs-7d8205619a95e44ec5c4d589c538c6616e64483b.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a4f26efa027..51006d7c471 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 |