Oops, that's the correct modifyOtherKeys=2 syntax

lisp/llvm-lib/llvm-act-on-file/act-on-llvm-dump-file.el

@@ -29,8 +29,8 @@
   '((assembly :key ?a  :major-mode asm-mode  :buffer-string "assembly" :description "[a]ssembly")))
 
 (defun ll/is-dump-file (fname)
-  (and (string= "/tmp/"
-                (file-name-directory fname))
+  (and (string-match-p (rx line-start "/tmp/")
+                       (file-name-directory fname))
        (string-match-p (rx "/" (+ (not "/")) "-" (= 6 alphanumeric) "." (+ anything))
                        fname)))
 

lisp/llvm-lib/load-llvm-mode.el

@@ -44,8 +44,22 @@
     (add-to-list 'llvm-font-lock-keywords
                  `(,(regexp-opt '("nnan" "ninf" "nsz" "arcp" "contract" "afn" "reassoc" "fast") 'symbols) . 'shadow)))
 
+  (defvar llvm-ir-dump-regexp
+    (rx line-start (optional (any "#;") " ") "*** IR Dump" (+ nonl) "***" (optional ":") "\n"))
+
   (add-to-list 'llvm-font-lock-keywords
-               `(,(rx line-start (optional (any "#;") " ") "***" (+ nonl) "***" (optional ":") "\n") . 'llvm-separator-face))
+               `(,llvm-ir-dump-regexp 0 'llvm-separator-face prepend))
+
+  (defun llvm-previous-IR-dump ()
+    (interactive)
+    (re-search-backward llvm-ir-dump-regexp))
+
+  (defun llvm-next-IR-dump ()
+    (interactive)
+    (re-search-forward llvm-ir-dump-regexp))
+
+  (define-key llvm-mode-map (kbd "C-M-a") #'llvm-previous-IR-dump)
+  (define-key llvm-mode-map (kbd "C-M-e") #'llvm-next-IR-dump)
 
   (-->
    "\\b[-]?[0-9]+\\b"

lisp/term-compat.el

@@ -25,7 +25,30 @@
 ;;; Code:
 
 (require 'term/xterm)
-(xterm--init-modify-other-keys)
+
+(let ((ascii-start 97))
+  (dotimes (n 26)
+    (define-key xterm-function-map
+                (format "\e[27;5;%d~" (+ ascii-start n))
+                (vector (1+ n)))))
+
+(define-key xterm-function-map
+            "\e[27;5;8~"
+            [C-backspace])
+
+(define-key xterm-function-map
+            "\e[27;5;32~"
+            [?\C-\s] ;; Or (kbd "C-SPC") ;; Or [?\C- ]
+            )
+
+(define-key xterm-function-map
+            "\e[32;2;32~"
+            [?\S-\s])
+
+;; (xterm--init-modify-other-keys)
+(send-string-to-terminal "\e[>4;2m")
+(push "\e[>4m" (terminal-parameter nil 'tty-mode-reset-strings))
+(push "\e[>4;2m" (terminal-parameter nil 'tty-mode-set-strings))
 
 (xterm-mouse-mode 1)