From c4bee1a57d181de969cf6f599621362ffe758111 Mon Sep 17 00:00:00 2001
From: Henry Eli Wandover <henrywandover@gmail.com>
Date: Sat, 22 Feb 2025 17:07:54 -0500
Subject: [PATCH] fixed emacs a little better

---
 core/lib.ml   |  2 +-
 links-mode.el | 23 ++++-------------------
 2 files changed, 5 insertions(+), 20 deletions(-)

diff --git a/core/lib.ml b/core/lib.ml
index 893874565..eee549357 100644
--- 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
index 0dc9f3c69..01e574028 100644
--- 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