fixed emacs a little better

links-lang · Feb 22, 2025 · c4bee1a · c4bee1a
1 parent 941f4e9
commit c4bee1a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 20 deletions.
diff --git a/core/lib.ml b/core/lib.ml
@@ -251,7 +251,7 @@ let env : (string * (located_primitive * Types.datatype * pure)) list = [
 
   "mod",       int_op     (mod)   IMPURE;
 
-  (* for backwards compatability *)
+  (* For backwards compatability *)
   "+.",        float_op   ( +. )  PURE;
   "-.",        float_op   ( -. )  PURE;
   "*.",        float_op   ( *.)   PURE;

diff --git a/links-mode.el b/links-mode.el
@@ -120,32 +120,17 @@
     "with"
     ))
 
-;;; Added by yung-turabian 2025
 (defconst links-keywords
   ; Not the best test
-  (if (string-equal
+  (if (string-match
+				"Links version"
         (shell-command-to-string (concat links-executable " --version"))
-       "Links version 0.9.9 (Burghmuirhead)\n"
-       )
+      )
   (split-string
    (shell-command-to-string (concat links-executable " --print-keywords"))
    "\n" " ")
   links-backup-keywords)
-  )
-
-
-;;; Added by yung-turabian 2025
-(defconst links-keywords
-  ; Not the best test
-  (if (string-equal
-        (shell-command-to-string (concat links-executable " --version"))
-       "Links version 0.9.9 (Burghmuirhead)\n"
-       )
-  (split-string
-   (shell-command-to-string (concat links-executable " --print-keywords"))
-   "\n" " ")
-  links-backup-keywords)
-  )
+)
 
 
 (defconst links-font-lock-keywords