[Emacs-diffs] emacs-24 r117689: * bytecomp.el (byte-compile-report-error): Allow the argument to be a string.

[Glenn Morris]

------------------------------------------------------------
revno: 117689
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-11-08 13:29:04 -0800
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/bytecomp.el    bytecomp.el-20091113204419-o5vbwnq5f7feedwu-492

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-07 20:15:46 +0000
+++ b/lisp/ChangeLog    2014-11-08 21:29:04 +0000
@@ -1,3 +1,9 @@
+2014-11-08  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp.el (tramp-check-cached-permissions): Include hop in

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2014-10-23 13:31:20 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2014-11-08 21:29:04 +0000
@@ -1147,10 +1147,13 @@
        (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