[patch] utop-1.11-emacs-bytecomp.patch

utop-1.11-emacs-bytecomp.patch (text/plain), 814 bytes, created by Ulrich Müller on 2014-12-04 09:09:01 UTC

--- utop-1.11-orig/src/top/utop.el
+++ utop-1.11/src/top/utop.el
@@ -729,6 +729,7 @@
 ;; | Caml/Tuareg/Typerex integration                                 |
 ;; +-----------------------------------------------------------------+
 
+(eval-and-compile
 (defun utop-choose (symbol)
   "Be best at resolving caml, tuareg or typerex dependencies even
 when byte-compiling."
@@ -745,7 +746,8 @@
     (intern (concat "typerex-" symbol)))
    ((require 'caml nil t)
     (intern (concat "caml-" symbol)))
-   (error (concat "unsupported mode: " (symbol-name major-mode) ", utop support only caml, tuareg and typerex modes"))))
+   (t (error (concat "unsupported mode: " (symbol-name major-mode) ", utop support only caml, tuareg and typerex modes")))))
+)
 
 (defmacro utop-choose-symbol (symbol)
   (utop-choose symbol))