branch: externals/beardbolt
commit c066da01c46206899117e272fec798089dec1b98
Author: Jay Kamat <[email protected]>
Commit: Jay Kamat <[email protected]>
Fix ocaml def
---
rmsbolt.el | 33 ++++++++++++++++-----------------
1 file changed, 16 insertions(+), 17 deletions(-)
diff --git a/rmsbolt.el b/rmsbolt.el
index 48bebfba01..b406699822 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -331,23 +331,22 @@ Outputs assembly file if ASM."
"frame_dummy"
(and ".plt" (0+ any)))
eol))
-(defvar rmsbolt--hidden-func-ocaml)
-(setq rmsbolt--hidden-func-ocaml
- (rx bol
- (or (and "__" (0+ any))
- (and "_" (or "init" "start" "fini"))
- (and (opt "de") "register_tm_clones")
- (and ".plt" (0+ any))
- (and "camlCamlinternalFormat" (0+ any))
- (and (1+ (not (any "@"))) "@plt")
- (and (or "caml_" "camlStd_") (0+ any))
- (and "caml" (or "Pervasives" "List" "Bytes"
- "String" "Buffer" "Printf"
- "Char" "Sys") "__" (0+ any))
- ;; Ocaml likes to make labels following camlModule__,
- ;; filter out any lowercase
- (and (1+ (1+ lower) (opt (or "64" "32" "8" "16")) (opt "_"))))
- eol))
+(defvar rmsbolt--hidden-func-ocaml
+ (rx bol
+ (or (and "__" (0+ any))
+ (and "_" (or "init" "start" "fini"))
+ (and (opt "de") "register_tm_clones")
+ (and ".plt" (0+ any))
+ (and "camlCamlinternalFormat" (0+ any))
+ (and (1+ (not (any "@"))) "@plt")
+ (and (or "caml_" "camlStd_") (0+ any))
+ (and "caml" (or "Pervasives" "List" "Bytes"
+ "String" "Buffer" "Printf"
+ "Char" "Sys") "__" (0+ any))
+ ;; Ocaml likes to make labels following camlModule__,
+ ;; filter out any lowercase
+ (and (1+ (1+ lower) (opt (or "64" "32" "8" "16")) (opt "_"))))
+ eol))
;;;; Language Definitions
(defvar rmsbolt-languages)
(setq
