1. package lexers
    
  2. 
    
  3. import (
    
  4. 	. "github.com/alecthomas/chroma/v2" // nolint
    
  5. )
    
  6. 
    
  7. var (
    
  8. 	emacsMacros = []string{
    
  9. 		"atomic-change-group", "case", "block", "cl-block", "cl-callf", "cl-callf2",
    
  10. 		"cl-case", "cl-decf", "cl-declaim", "cl-declare",
    
  11. 		"cl-define-compiler-macro", "cl-defmacro", "cl-defstruct",
    
  12. 		"cl-defsubst", "cl-deftype", "cl-defun", "cl-destructuring-bind",
    
  13. 		"cl-do", "cl-do*", "cl-do-all-symbols", "cl-do-symbols", "cl-dolist",
    
  14. 		"cl-dotimes", "cl-ecase", "cl-etypecase", "eval-when", "cl-eval-when", "cl-flet",
    
  15. 		"cl-flet*", "cl-function", "cl-incf", "cl-labels", "cl-letf",
    
  16. 		"cl-letf*", "cl-load-time-value", "cl-locally", "cl-loop",
    
  17. 		"cl-macrolet", "cl-multiple-value-bind", "cl-multiple-value-setq",
    
  18. 		"cl-progv", "cl-psetf", "cl-psetq", "cl-pushnew", "cl-remf",
    
  19. 		"cl-return", "cl-return-from", "cl-rotatef", "cl-shiftf",
    
  20. 		"cl-symbol-macrolet", "cl-tagbody", "cl-the", "cl-typecase",
    
  21. 		"combine-after-change-calls", "condition-case-unless-debug", "decf",
    
  22. 		"declaim", "declare", "declare-function", "def-edebug-spec",
    
  23. 		"defadvice", "defclass", "defcustom", "defface", "defgeneric",
    
  24. 		"defgroup", "define-advice", "define-alternatives",
    
  25. 		"define-compiler-macro", "define-derived-mode", "define-generic-mode",
    
  26. 		"define-global-minor-mode", "define-globalized-minor-mode",
    
  27. 		"define-minor-mode", "define-modify-macro",
    
  28. 		"define-obsolete-face-alias", "define-obsolete-function-alias",
    
  29. 		"define-obsolete-variable-alias", "define-setf-expander",
    
  30. 		"define-skeleton", "defmacro", "defmethod", "defsetf", "defstruct",
    
  31. 		"defsubst", "deftheme", "deftype", "defun", "defvar-local",
    
  32. 		"delay-mode-hooks", "destructuring-bind", "do", "do*",
    
  33. 		"do-all-symbols", "do-symbols", "dolist", "dont-compile", "dotimes",
    
  34. 		"dotimes-with-progress-reporter", "ecase", "ert-deftest", "etypecase",
    
  35. 		"eval-and-compile", "eval-when-compile", "flet", "ignore-errors",
    
  36. 		"incf", "labels", "lambda", "letrec", "lexical-let", "lexical-let*",
    
  37. 		"loop", "multiple-value-bind", "multiple-value-setq", "noreturn",
    
  38. 		"oref", "oref-default", "oset", "oset-default", "pcase",
    
  39. 		"pcase-defmacro", "pcase-dolist", "pcase-exhaustive", "pcase-let",
    
  40. 		"pcase-let*", "pop", "psetf", "psetq", "push", "pushnew", "remf",
    
  41. 		"return", "rotatef", "rx", "save-match-data", "save-selected-window",
    
  42. 		"save-window-excursion", "setf", "setq-local", "shiftf",
    
  43. 		"track-mouse", "typecase", "unless", "use-package", "when",
    
  44. 		"while-no-input", "with-case-table", "with-category-table",
    
  45. 		"with-coding-priority", "with-current-buffer", "with-demoted-errors",
    
  46. 		"with-eval-after-load", "with-file-modes", "with-local-quit",
    
  47. 		"with-output-to-string", "with-output-to-temp-buffer",
    
  48. 		"with-parsed-tramp-file-name", "with-selected-frame",
    
  49. 		"with-selected-window", "with-silent-modifications", "with-slots",
    
  50. 		"with-syntax-table", "with-temp-buffer", "with-temp-file",
    
  51. 		"with-temp-message", "with-timeout", "with-tramp-connection-property",
    
  52. 		"with-tramp-file-property", "with-tramp-progress-reporter",
    
  53. 		"with-wrapper-hook", "load-time-value", "locally", "macrolet", "progv",
    
  54. 		"return-from",
    
  55. 	}
    
  56. 
    
  57. 	emacsSpecialForms = []string{
    
  58. 		"and", "catch", "cond", "condition-case", "defconst", "defvar",
    
  59. 		"function", "if", "interactive", "let", "let*", "or", "prog1",
    
  60. 		"prog2", "progn", "quote", "save-current-buffer", "save-excursion",
    
  61. 		"save-restriction", "setq", "setq-default", "subr-arity",
    
  62. 		"unwind-protect", "while",
    
  63. 	}
    
  64. 
    
  65. 	emacsBuiltinFunction = []string{
    
  66. 		"%", "*", "+", "-", "/", "/=", "1+", "1-", "<", "<=", "=", ">", ">=",
    
  67. 		"Snarf-documentation", "abort-recursive-edit", "abs",
    
  68. 		"accept-process-output", "access-file", "accessible-keymaps", "acos",
    
  69. 		"active-minibuffer-window", "add-face-text-property",
    
  70. 		"add-name-to-file", "add-text-properties", "all-completions",
    
  71. 		"append", "apply", "apropos-internal", "aref", "arrayp", "aset",
    
  72. 		"ash", "asin", "assoc", "assoc-string", "assq", "atan", "atom",
    
  73. 		"autoload", "autoload-do-load", "backtrace", "backtrace--locals",
    
  74. 		"backtrace-debug", "backtrace-eval", "backtrace-frame",
    
  75. 		"backward-char", "backward-prefix-chars", "barf-if-buffer-read-only",
    
  76. 		"base64-decode-region", "base64-decode-string",
    
  77. 		"base64-encode-region", "base64-encode-string", "beginning-of-line",
    
  78. 		"bidi-find-overridden-directionality", "bidi-resolved-levels",
    
  79. 		"bitmap-spec-p", "bobp", "bolp", "bool-vector",
    
  80. 		"bool-vector-count-consecutive", "bool-vector-count-population",
    
  81. 		"bool-vector-exclusive-or", "bool-vector-intersection",
    
  82. 		"bool-vector-not", "bool-vector-p", "bool-vector-set-difference",
    
  83. 		"bool-vector-subsetp", "bool-vector-union", "boundp",
    
  84. 		"buffer-base-buffer", "buffer-chars-modified-tick",
    
  85. 		"buffer-enable-undo", "buffer-file-name", "buffer-has-markers-at",
    
  86. 		"buffer-list", "buffer-live-p", "buffer-local-value",
    
  87. 		"buffer-local-variables", "buffer-modified-p", "buffer-modified-tick",
    
  88. 		"buffer-name", "buffer-size", "buffer-string", "buffer-substring",
    
  89. 		"buffer-substring-no-properties", "buffer-swap-text", "bufferp",
    
  90. 		"bury-buffer-internal", "byte-code", "byte-code-function-p",
    
  91. 		"byte-to-position", "byte-to-string", "byteorder",
    
  92. 		"call-interactively", "call-last-kbd-macro", "call-process",
    
  93. 		"call-process-region", "cancel-kbd-macro-events", "capitalize",
    
  94. 		"capitalize-region", "capitalize-word", "car", "car-less-than-car",
    
  95. 		"car-safe", "case-table-p", "category-docstring",
    
  96. 		"category-set-mnemonics", "category-table", "category-table-p",
    
  97. 		"ccl-execute", "ccl-execute-on-string", "ccl-program-p", "cdr",
    
  98. 		"cdr-safe", "ceiling", "char-after", "char-before",
    
  99. 		"char-category-set", "char-charset", "char-equal", "char-or-string-p",
    
  100. 		"char-resolve-modifiers", "char-syntax", "char-table-extra-slot",
    
  101. 		"char-table-p", "char-table-parent", "char-table-range",
    
  102. 		"char-table-subtype", "char-to-string", "char-width", "characterp",
    
  103. 		"charset-after", "charset-id-internal", "charset-plist",
    
  104. 		"charset-priority-list", "charsetp", "check-coding-system",
    
  105. 		"check-coding-systems-region", "clear-buffer-auto-save-failure",
    
  106. 		"clear-charset-maps", "clear-face-cache", "clear-font-cache",
    
  107. 		"clear-image-cache", "clear-string", "clear-this-command-keys",
    
  108. 		"close-font", "clrhash", "coding-system-aliases",
    
  109. 		"coding-system-base", "coding-system-eol-type", "coding-system-p",
    
  110. 		"coding-system-plist", "coding-system-priority-list",
    
  111. 		"coding-system-put", "color-distance", "color-gray-p",
    
  112. 		"color-supported-p", "combine-after-change-execute",
    
  113. 		"command-error-default-function", "command-remapping", "commandp",
    
  114. 		"compare-buffer-substrings", "compare-strings",
    
  115. 		"compare-window-configurations", "completing-read",
    
  116. 		"compose-region-internal", "compose-string-internal",
    
  117. 		"composition-get-gstring", "compute-motion", "concat", "cons",
    
  118. 		"consp", "constrain-to-field", "continue-process",
    
  119. 		"controlling-tty-p", "coordinates-in-window-p", "copy-alist",
    
  120. 		"copy-category-table", "copy-file", "copy-hash-table", "copy-keymap",
    
  121. 		"copy-marker", "copy-sequence", "copy-syntax-table", "copysign",
    
  122. 		"cos", "current-active-maps", "current-bidi-paragraph-direction",
    
  123. 		"current-buffer", "current-case-table", "current-column",
    
  124. 		"current-global-map", "current-idle-time", "current-indentation",
    
  125. 		"current-input-mode", "current-local-map", "current-message",
    
  126. 		"current-minor-mode-maps", "current-time", "current-time-string",
    
  127. 		"current-time-zone", "current-window-configuration",
    
  128. 		"cygwin-convert-file-name-from-windows",
    
  129. 		"cygwin-convert-file-name-to-windows", "daemon-initialized",
    
  130. 		"daemonp", "dbus--init-bus", "dbus-get-unique-name",
    
  131. 		"dbus-message-internal", "debug-timer-check", "declare-equiv-charset",
    
  132. 		"decode-big5-char", "decode-char", "decode-coding-region",
    
  133. 		"decode-coding-string", "decode-sjis-char", "decode-time",
    
  134. 		"default-boundp", "default-file-modes", "default-printer-name",
    
  135. 		"default-toplevel-value", "default-value", "define-category",
    
  136. 		"define-charset-alias", "define-charset-internal",
    
  137. 		"define-coding-system-alias", "define-coding-system-internal",
    
  138. 		"define-fringe-bitmap", "define-hash-table-test", "define-key",
    
  139. 		"define-prefix-command", "delete",
    
  140. 		"delete-all-overlays", "delete-and-extract-region", "delete-char",
    
  141. 		"delete-directory-internal", "delete-field", "delete-file",
    
  142. 		"delete-frame", "delete-other-windows-internal", "delete-overlay",
    
  143. 		"delete-process", "delete-region", "delete-terminal",
    
  144. 		"delete-window-internal", "delq", "describe-buffer-bindings",
    
  145. 		"describe-vector", "destroy-fringe-bitmap", "detect-coding-region",
    
  146. 		"detect-coding-string", "ding", "directory-file-name",
    
  147. 		"directory-files", "directory-files-and-attributes", "discard-input",
    
  148. 		"display-supports-face-attributes-p", "do-auto-save", "documentation",
    
  149. 		"documentation-property", "downcase", "downcase-region",
    
  150. 		"downcase-word", "draw-string", "dump-colors", "dump-emacs",
    
  151. 		"dump-face", "dump-frame-glyph-matrix", "dump-glyph-matrix",
    
  152. 		"dump-glyph-row", "dump-redisplay-history", "dump-tool-bar-row",
    
  153. 		"elt", "emacs-pid", "encode-big5-char", "encode-char",
    
  154. 		"encode-coding-region", "encode-coding-string", "encode-sjis-char",
    
  155. 		"encode-time", "end-kbd-macro", "end-of-line", "eobp", "eolp", "eq",
    
  156. 		"eql", "equal", "equal-including-properties", "erase-buffer",
    
  157. 		"error-message-string", "eval", "eval-buffer", "eval-region",
    
  158. 		"event-convert-list", "execute-kbd-macro", "exit-recursive-edit",
    
  159. 		"exp", "expand-file-name", "expt", "external-debugging-output",
    
  160. 		"face-attribute-relative-p", "face-attributes-as-vector", "face-font",
    
  161. 		"fboundp", "fceiling", "fetch-bytecode", "ffloor",
    
  162. 		"field-beginning", "field-end", "field-string",
    
  163. 		"field-string-no-properties", "file-accessible-directory-p",
    
  164. 		"file-acl", "file-attributes", "file-attributes-lessp",
    
  165. 		"file-directory-p", "file-executable-p", "file-exists-p",
    
  166. 		"file-locked-p", "file-modes", "file-name-absolute-p",
    
  167. 		"file-name-all-completions", "file-name-as-directory",
    
  168. 		"file-name-completion", "file-name-directory",
    
  169. 		"file-name-nondirectory", "file-newer-than-file-p", "file-readable-p",
    
  170. 		"file-regular-p", "file-selinux-context", "file-symlink-p",
    
  171. 		"file-system-info", "file-system-info", "file-writable-p",
    
  172. 		"fillarray", "find-charset-region", "find-charset-string",
    
  173. 		"find-coding-systems-region-internal", "find-composition-internal",
    
  174. 		"find-file-name-handler", "find-font", "find-operation-coding-system",
    
  175. 		"float", "float-time", "floatp", "floor", "fmakunbound",
    
  176. 		"following-char", "font-at", "font-drive-otf", "font-face-attributes",
    
  177. 		"font-family-list", "font-get", "font-get-glyphs",
    
  178. 		"font-get-system-font", "font-get-system-normal-font", "font-info",
    
  179. 		"font-match-p", "font-otf-alternates", "font-put",
    
  180. 		"font-shape-gstring", "font-spec", "font-variation-glyphs",
    
  181. 		"font-xlfd-name", "fontp", "fontset-font", "fontset-info",
    
  182. 		"fontset-list", "fontset-list-all", "force-mode-line-update",
    
  183. 		"force-window-update", "format", "format-mode-line",
    
  184. 		"format-network-address", "format-time-string", "forward-char",
    
  185. 		"forward-comment", "forward-line", "forward-word",
    
  186. 		"frame-border-width", "frame-bottom-divider-width",
    
  187. 		"frame-can-run-window-configuration-change-hook", "frame-char-height",
    
  188. 		"frame-char-width", "frame-face-alist", "frame-first-window",
    
  189. 		"frame-focus", "frame-font-cache", "frame-fringe-width", "frame-list",
    
  190. 		"frame-live-p", "frame-or-buffer-changed-p", "frame-parameter",
    
  191. 		"frame-parameters", "frame-pixel-height", "frame-pixel-width",
    
  192. 		"frame-pointer-visible-p", "frame-right-divider-width",
    
  193. 		"frame-root-window", "frame-scroll-bar-height",
    
  194. 		"frame-scroll-bar-width", "frame-selected-window", "frame-terminal",
    
  195. 		"frame-text-cols", "frame-text-height", "frame-text-lines",
    
  196. 		"frame-text-width", "frame-total-cols", "frame-total-lines",
    
  197. 		"frame-visible-p", "framep", "frexp", "fringe-bitmaps-at-pos",
    
  198. 		"fround", "fset", "ftruncate", "funcall", "funcall-interactively",
    
  199. 		"function-equal", "functionp", "gap-position", "gap-size",
    
  200. 		"garbage-collect", "gc-status", "generate-new-buffer-name", "get",
    
  201. 		"get-buffer", "get-buffer-create", "get-buffer-process",
    
  202. 		"get-buffer-window", "get-byte", "get-char-property",
    
  203. 		"get-char-property-and-overlay", "get-file-buffer", "get-file-char",
    
  204. 		"get-internal-run-time", "get-load-suffixes", "get-pos-property",
    
  205. 		"get-process", "get-screen-color", "get-text-property",
    
  206. 		"get-unicode-property-internal", "get-unused-category",
    
  207. 		"get-unused-iso-final-char", "getenv-internal", "gethash",
    
  208. 		"gfile-add-watch", "gfile-rm-watch", "global-key-binding",
    
  209. 		"gnutls-available-p", "gnutls-boot", "gnutls-bye", "gnutls-deinit",
    
  210. 		"gnutls-error-fatalp", "gnutls-error-string", "gnutls-errorp",
    
  211. 		"gnutls-get-initstage", "gnutls-peer-status",
    
  212. 		"gnutls-peer-status-warning-describe", "goto-char", "gpm-mouse-start",
    
  213. 		"gpm-mouse-stop", "group-gid", "group-real-gid",
    
  214. 		"handle-save-session", "handle-switch-frame", "hash-table-count",
    
  215. 		"hash-table-p", "hash-table-rehash-size",
    
  216. 		"hash-table-rehash-threshold", "hash-table-size", "hash-table-test",
    
  217. 		"hash-table-weakness", "iconify-frame", "identity", "image-flush",
    
  218. 		"image-mask-p", "image-metadata", "image-size", "imagemagick-types",
    
  219. 		"imagep", "indent-to", "indirect-function", "indirect-variable",
    
  220. 		"init-image-library", "inotify-add-watch", "inotify-rm-watch",
    
  221. 		"input-pending-p", "insert", "insert-and-inherit",
    
  222. 		"insert-before-markers", "insert-before-markers-and-inherit",
    
  223. 		"insert-buffer-substring", "insert-byte", "insert-char",
    
  224. 		"insert-file-contents", "insert-startup-screen", "int86",
    
  225. 		"integer-or-marker-p", "integerp", "interactive-form", "intern",
    
  226. 		"intern-soft", "internal--track-mouse", "internal-char-font",
    
  227. 		"internal-complete-buffer", "internal-copy-lisp-face",
    
  228. 		"internal-default-process-filter",
    
  229. 		"internal-default-process-sentinel", "internal-describe-syntax-value",
    
  230. 		"internal-event-symbol-parse-modifiers",
    
  231. 		"internal-face-x-get-resource", "internal-get-lisp-face-attribute",
    
  232. 		"internal-lisp-face-attribute-values", "internal-lisp-face-empty-p",
    
  233. 		"internal-lisp-face-equal-p", "internal-lisp-face-p",
    
  234. 		"internal-make-lisp-face", "internal-make-var-non-special",
    
  235. 		"internal-merge-in-global-face",
    
  236. 		"internal-set-alternative-font-family-alist",
    
  237. 		"internal-set-alternative-font-registry-alist",
    
  238. 		"internal-set-font-selection-order",
    
  239. 		"internal-set-lisp-face-attribute",
    
  240. 		"internal-set-lisp-face-attribute-from-resource",
    
  241. 		"internal-show-cursor", "internal-show-cursor-p", "interrupt-process",
    
  242. 		"invisible-p", "invocation-directory", "invocation-name", "isnan",
    
  243. 		"iso-charset", "key-binding", "key-description",
    
  244. 		"keyboard-coding-system", "keymap-parent", "keymap-prompt", "keymapp",
    
  245. 		"keywordp", "kill-all-local-variables", "kill-buffer", "kill-emacs",
    
  246. 		"kill-local-variable", "kill-process", "last-nonminibuffer-frame",
    
  247. 		"lax-plist-get", "lax-plist-put", "ldexp", "length",
    
  248. 		"libxml-parse-html-region", "libxml-parse-xml-region",
    
  249. 		"line-beginning-position", "line-end-position", "line-pixel-height",
    
  250. 		"list", "list-fonts", "list-system-processes", "listp", "load",
    
  251. 		"load-average", "local-key-binding", "local-variable-if-set-p",
    
  252. 		"local-variable-p", "locale-info", "locate-file-internal",
    
  253. 		"lock-buffer", "log", "logand", "logb", "logior", "lognot", "logxor",
    
  254. 		"looking-at", "lookup-image", "lookup-image-map", "lookup-key",
    
  255. 		"lower-frame", "lsh", "macroexpand", "make-bool-vector",
    
  256. 		"make-byte-code", "make-category-set", "make-category-table",
    
  257. 		"make-char", "make-char-table", "make-directory-internal",
    
  258. 		"make-frame-invisible", "make-frame-visible", "make-hash-table",
    
  259. 		"make-indirect-buffer", "make-keymap", "make-list",
    
  260. 		"make-local-variable", "make-marker", "make-network-process",
    
  261. 		"make-overlay", "make-serial-process", "make-sparse-keymap",
    
  262. 		"make-string", "make-symbol", "make-symbolic-link", "make-temp-name",
    
  263. 		"make-terminal-frame", "make-variable-buffer-local",
    
  264. 		"make-variable-frame-local", "make-vector", "makunbound",
    
  265. 		"map-char-table", "map-charset-chars", "map-keymap",
    
  266. 		"map-keymap-internal", "mapatoms", "mapc", "mapcar", "mapconcat",
    
  267. 		"maphash", "mark-marker", "marker-buffer", "marker-insertion-type",
    
  268. 		"marker-position", "markerp", "match-beginning", "match-data",
    
  269. 		"match-end", "matching-paren", "max", "max-char", "md5", "member",
    
  270. 		"memory-info", "memory-limit", "memory-use-counts", "memq", "memql",
    
  271. 		"menu-bar-menu-at-x-y", "menu-or-popup-active-p",
    
  272. 		"menu-or-popup-active-p", "merge-face-attribute", "message",
    
  273. 		"message-box", "message-or-box", "min",
    
  274. 		"minibuffer-completion-contents", "minibuffer-contents",
    
  275. 		"minibuffer-contents-no-properties", "minibuffer-depth",
    
  276. 		"minibuffer-prompt", "minibuffer-prompt-end",
    
  277. 		"minibuffer-selected-window", "minibuffer-window", "minibufferp",
    
  278. 		"minor-mode-key-binding", "mod", "modify-category-entry",
    
  279. 		"modify-frame-parameters", "modify-syntax-entry",
    
  280. 		"mouse-pixel-position", "mouse-position", "move-overlay",
    
  281. 		"move-point-visually", "move-to-column", "move-to-window-line",
    
  282. 		"msdos-downcase-filename", "msdos-long-file-names", "msdos-memget",
    
  283. 		"msdos-memput", "msdos-mouse-disable", "msdos-mouse-enable",
    
  284. 		"msdos-mouse-init", "msdos-mouse-p", "msdos-remember-default-colors",
    
  285. 		"msdos-set-keyboard", "msdos-set-mouse-buttons",
    
  286. 		"multibyte-char-to-unibyte", "multibyte-string-p", "narrow-to-region",
    
  287. 		"natnump", "nconc", "network-interface-info",
    
  288. 		"network-interface-list", "new-fontset", "newline-cache-check",
    
  289. 		"next-char-property-change", "next-frame", "next-overlay-change",
    
  290. 		"next-property-change", "next-read-file-uses-dialog-p",
    
  291. 		"next-single-char-property-change", "next-single-property-change",
    
  292. 		"next-window", "nlistp", "nreverse", "nth", "nthcdr", "null",
    
  293. 		"number-or-marker-p", "number-to-string", "numberp",
    
  294. 		"open-dribble-file", "open-font", "open-termscript",
    
  295. 		"optimize-char-table", "other-buffer", "other-window-for-scrolling",
    
  296. 		"overlay-buffer", "overlay-end", "overlay-get", "overlay-lists",
    
  297. 		"overlay-properties", "overlay-put", "overlay-recenter",
    
  298. 		"overlay-start", "overlayp", "overlays-at", "overlays-in",
    
  299. 		"parse-partial-sexp", "play-sound-internal", "plist-get",
    
  300. 		"plist-member", "plist-put", "point", "point-marker", "point-max",
    
  301. 		"point-max-marker", "point-min", "point-min-marker",
    
  302. 		"pos-visible-in-window-p", "position-bytes", "posix-looking-at",
    
  303. 		"posix-search-backward", "posix-search-forward", "posix-string-match",
    
  304. 		"posn-at-point", "posn-at-x-y", "preceding-char",
    
  305. 		"prefix-numeric-value", "previous-char-property-change",
    
  306. 		"previous-frame", "previous-overlay-change",
    
  307. 		"previous-property-change", "previous-single-char-property-change",
    
  308. 		"previous-single-property-change", "previous-window", "prin1",
    
  309. 		"prin1-to-string", "princ", "print", "process-attributes",
    
  310. 		"process-buffer", "process-coding-system", "process-command",
    
  311. 		"process-connection", "process-contact", "process-datagram-address",
    
  312. 		"process-exit-status", "process-filter", "process-filter-multibyte-p",
    
  313. 		"process-id", "process-inherit-coding-system-flag", "process-list",
    
  314. 		"process-mark", "process-name", "process-plist",
    
  315. 		"process-query-on-exit-flag", "process-running-child-p",
    
  316. 		"process-send-eof", "process-send-region", "process-send-string",
    
  317. 		"process-sentinel", "process-status", "process-tty-name",
    
  318. 		"process-type", "processp", "profiler-cpu-log",
    
  319. 		"profiler-cpu-running-p", "profiler-cpu-start", "profiler-cpu-stop",
    
  320. 		"profiler-memory-log", "profiler-memory-running-p",
    
  321. 		"profiler-memory-start", "profiler-memory-stop", "propertize",
    
  322. 		"purecopy", "put", "put-text-property",
    
  323. 		"put-unicode-property-internal", "puthash", "query-font",
    
  324. 		"query-fontset", "quit-process", "raise-frame", "random", "rassoc",
    
  325. 		"rassq", "re-search-backward", "re-search-forward", "read",
    
  326. 		"read-buffer", "read-char", "read-char-exclusive",
    
  327. 		"read-coding-system", "read-command", "read-event",
    
  328. 		"read-from-minibuffer", "read-from-string", "read-function",
    
  329. 		"read-key-sequence", "read-key-sequence-vector",
    
  330. 		"read-no-blanks-input", "read-non-nil-coding-system", "read-string",
    
  331. 		"read-variable", "recent-auto-save-p", "recent-doskeys",
    
  332. 		"recent-keys", "recenter", "recursion-depth", "recursive-edit",
    
  333. 		"redirect-debugging-output", "redirect-frame-focus", "redisplay",
    
  334. 		"redraw-display", "redraw-frame", "regexp-quote", "region-beginning",
    
  335. 		"region-end", "register-ccl-program", "register-code-conversion-map",
    
  336. 		"remhash", "remove-list-of-text-properties", "remove-text-properties",
    
  337. 		"rename-buffer", "rename-file", "replace-match",
    
  338. 		"reset-this-command-lengths", "resize-mini-window-internal",
    
  339. 		"restore-buffer-modified-p", "resume-tty", "reverse", "round",
    
  340. 		"run-hook-with-args", "run-hook-with-args-until-failure",
    
  341. 		"run-hook-with-args-until-success", "run-hook-wrapped", "run-hooks",
    
  342. 		"run-window-configuration-change-hook", "run-window-scroll-functions",
    
  343. 		"safe-length", "scan-lists", "scan-sexps", "scroll-down",
    
  344. 		"scroll-left", "scroll-other-window", "scroll-right", "scroll-up",
    
  345. 		"search-backward", "search-forward", "secure-hash", "select-frame",
    
  346. 		"select-window", "selected-frame", "selected-window",
    
  347. 		"self-insert-command", "send-string-to-terminal", "sequencep",
    
  348. 		"serial-process-configure", "set", "set-buffer",
    
  349. 		"set-buffer-auto-saved", "set-buffer-major-mode",
    
  350. 		"set-buffer-modified-p", "set-buffer-multibyte", "set-case-table",
    
  351. 		"set-category-table", "set-char-table-extra-slot",
    
  352. 		"set-char-table-parent", "set-char-table-range", "set-charset-plist",
    
  353. 		"set-charset-priority", "set-coding-system-priority",
    
  354. 		"set-cursor-size", "set-default", "set-default-file-modes",
    
  355. 		"set-default-toplevel-value", "set-file-acl", "set-file-modes",
    
  356. 		"set-file-selinux-context", "set-file-times", "set-fontset-font",
    
  357. 		"set-frame-height", "set-frame-position", "set-frame-selected-window",
    
  358. 		"set-frame-size", "set-frame-width", "set-fringe-bitmap-face",
    
  359. 		"set-input-interrupt-mode", "set-input-meta-mode", "set-input-mode",
    
  360. 		"set-keyboard-coding-system-internal", "set-keymap-parent",
    
  361. 		"set-marker", "set-marker-insertion-type", "set-match-data",
    
  362. 		"set-message-beep", "set-minibuffer-window",
    
  363. 		"set-mouse-pixel-position", "set-mouse-position",
    
  364. 		"set-network-process-option", "set-output-flow-control",
    
  365. 		"set-process-buffer", "set-process-coding-system",
    
  366. 		"set-process-datagram-address", "set-process-filter",
    
  367. 		"set-process-filter-multibyte",
    
  368. 		"set-process-inherit-coding-system-flag", "set-process-plist",
    
  369. 		"set-process-query-on-exit-flag", "set-process-sentinel",
    
  370. 		"set-process-window-size", "set-quit-char",
    
  371. 		"set-safe-terminal-coding-system-internal", "set-screen-color",
    
  372. 		"set-standard-case-table", "set-syntax-table",
    
  373. 		"set-terminal-coding-system-internal", "set-terminal-local-value",
    
  374. 		"set-terminal-parameter", "set-text-properties", "set-time-zone-rule",
    
  375. 		"set-visited-file-modtime", "set-window-buffer",
    
  376. 		"set-window-combination-limit", "set-window-configuration",
    
  377. 		"set-window-dedicated-p", "set-window-display-table",
    
  378. 		"set-window-fringes", "set-window-hscroll", "set-window-margins",
    
  379. 		"set-window-new-normal", "set-window-new-pixel",
    
  380. 		"set-window-new-total", "set-window-next-buffers",
    
  381. 		"set-window-parameter", "set-window-point", "set-window-prev-buffers",
    
  382. 		"set-window-redisplay-end-trigger", "set-window-scroll-bars",
    
  383. 		"set-window-start", "set-window-vscroll", "setcar", "setcdr",
    
  384. 		"setplist", "show-face-resources", "signal", "signal-process", "sin",
    
  385. 		"single-key-description", "skip-chars-backward", "skip-chars-forward",
    
  386. 		"skip-syntax-backward", "skip-syntax-forward", "sleep-for", "sort",
    
  387. 		"sort-charsets", "special-variable-p", "split-char",
    
  388. 		"split-window-internal", "sqrt", "standard-case-table",
    
  389. 		"standard-category-table", "standard-syntax-table", "start-kbd-macro",
    
  390. 		"start-process", "stop-process", "store-kbd-macro-event", "string",
    
  391. 		"string-as-multibyte", "string-as-unibyte", "string-bytes",
    
  392. 		"string-collate-equalp", "string-collate-lessp", "string-equal",
    
  393. 		"string-lessp", "string-make-multibyte", "string-make-unibyte",
    
  394. 		"string-match", "string-to-char", "string-to-multibyte",
    
  395. 		"string-to-number", "string-to-syntax", "string-to-unibyte",
    
  396. 		"string-width", "stringp", "subr-name", "subrp",
    
  397. 		"subst-char-in-region", "substitute-command-keys",
    
  398. 		"substitute-in-file-name", "substring", "substring-no-properties",
    
  399. 		"suspend-emacs", "suspend-tty", "suspicious-object", "sxhash",
    
  400. 		"symbol-function", "symbol-name", "symbol-plist", "symbol-value",
    
  401. 		"symbolp", "syntax-table", "syntax-table-p", "system-groups",
    
  402. 		"system-move-file-to-trash", "system-name", "system-users", "tan",
    
  403. 		"terminal-coding-system", "terminal-list", "terminal-live-p",
    
  404. 		"terminal-local-value", "terminal-name", "terminal-parameter",
    
  405. 		"terminal-parameters", "terpri", "test-completion",
    
  406. 		"text-char-description", "text-properties-at", "text-property-any",
    
  407. 		"text-property-not-all", "this-command-keys",
    
  408. 		"this-command-keys-vector", "this-single-command-keys",
    
  409. 		"this-single-command-raw-keys", "time-add", "time-less-p",
    
  410. 		"time-subtract", "tool-bar-get-system-style", "tool-bar-height",
    
  411. 		"tool-bar-pixel-width", "top-level", "trace-redisplay",
    
  412. 		"trace-to-stderr", "translate-region-internal", "transpose-regions",
    
  413. 		"truncate", "try-completion", "tty-display-color-cells",
    
  414. 		"tty-display-color-p", "tty-no-underline",
    
  415. 		"tty-suppress-bold-inverse-default-colors", "tty-top-frame",
    
  416. 		"tty-type", "type-of", "undo-boundary", "unencodable-char-position",
    
  417. 		"unhandled-file-name-directory", "unibyte-char-to-multibyte",
    
  418. 		"unibyte-string", "unicode-property-table-internal", "unify-charset",
    
  419. 		"unintern", "unix-sync", "unlock-buffer", "upcase", "upcase-initials",
    
  420. 		"upcase-initials-region", "upcase-region", "upcase-word",
    
  421. 		"use-global-map", "use-local-map", "user-full-name",
    
  422. 		"user-login-name", "user-real-login-name", "user-real-uid",
    
  423. 		"user-uid", "variable-binding-locus", "vconcat", "vector",
    
  424. 		"vector-or-char-table-p", "vectorp", "verify-visited-file-modtime",
    
  425. 		"vertical-motion", "visible-frame-list", "visited-file-modtime",
    
  426. 		"w16-get-clipboard-data", "w16-selection-exists-p",
    
  427. 		"w16-set-clipboard-data", "w32-battery-status",
    
  428. 		"w32-default-color-map", "w32-define-rgb-color",
    
  429. 		"w32-display-monitor-attributes-list", "w32-frame-menu-bar-size",
    
  430. 		"w32-frame-rect", "w32-get-clipboard-data",
    
  431. 		"w32-get-codepage-charset", "w32-get-console-codepage",
    
  432. 		"w32-get-console-output-codepage", "w32-get-current-locale-id",
    
  433. 		"w32-get-default-locale-id", "w32-get-keyboard-layout",
    
  434. 		"w32-get-locale-info", "w32-get-valid-codepages",
    
  435. 		"w32-get-valid-keyboard-layouts", "w32-get-valid-locale-ids",
    
  436. 		"w32-has-winsock", "w32-long-file-name", "w32-reconstruct-hot-key",
    
  437. 		"w32-register-hot-key", "w32-registered-hot-keys",
    
  438. 		"w32-selection-exists-p", "w32-send-sys-command",
    
  439. 		"w32-set-clipboard-data", "w32-set-console-codepage",
    
  440. 		"w32-set-console-output-codepage", "w32-set-current-locale",
    
  441. 		"w32-set-keyboard-layout", "w32-set-process-priority",
    
  442. 		"w32-shell-execute", "w32-short-file-name", "w32-toggle-lock-key",
    
  443. 		"w32-unload-winsock", "w32-unregister-hot-key", "w32-window-exists-p",
    
  444. 		"w32notify-add-watch", "w32notify-rm-watch",
    
  445. 		"waiting-for-user-input-p", "where-is-internal", "widen",
    
  446. 		"widget-apply", "widget-get", "widget-put",
    
  447. 		"window-absolute-pixel-edges", "window-at", "window-body-height",
    
  448. 		"window-body-width", "window-bottom-divider-width", "window-buffer",
    
  449. 		"window-combination-limit", "window-configuration-frame",
    
  450. 		"window-configuration-p", "window-dedicated-p",
    
  451. 		"window-display-table", "window-edges", "window-end", "window-frame",
    
  452. 		"window-fringes", "window-header-line-height", "window-hscroll",
    
  453. 		"window-inside-absolute-pixel-edges", "window-inside-edges",
    
  454. 		"window-inside-pixel-edges", "window-left-child",
    
  455. 		"window-left-column", "window-line-height", "window-list",
    
  456. 		"window-list-1", "window-live-p", "window-margins",
    
  457. 		"window-minibuffer-p", "window-mode-line-height", "window-new-normal",
    
  458. 		"window-new-pixel", "window-new-total", "window-next-buffers",
    
  459. 		"window-next-sibling", "window-normal-size", "window-old-point",
    
  460. 		"window-parameter", "window-parameters", "window-parent",
    
  461. 		"window-pixel-edges", "window-pixel-height", "window-pixel-left",
    
  462. 		"window-pixel-top", "window-pixel-width", "window-point",
    
  463. 		"window-prev-buffers", "window-prev-sibling",
    
  464. 		"window-redisplay-end-trigger", "window-resize-apply",
    
  465. 		"window-resize-apply-total", "window-right-divider-width",
    
  466. 		"window-scroll-bar-height", "window-scroll-bar-width",
    
  467. 		"window-scroll-bars", "window-start", "window-system",
    
  468. 		"window-text-height", "window-text-pixel-size", "window-text-width",
    
  469. 		"window-top-child", "window-top-line", "window-total-height",
    
  470. 		"window-total-width", "window-use-time", "window-valid-p",
    
  471. 		"window-vscroll", "windowp", "write-char", "write-region",
    
  472. 		"x-backspace-delete-keys-p", "x-change-window-property",
    
  473. 		"x-change-window-property", "x-close-connection",
    
  474. 		"x-close-connection", "x-create-frame", "x-create-frame",
    
  475. 		"x-delete-window-property", "x-delete-window-property",
    
  476. 		"x-disown-selection-internal", "x-display-backing-store",
    
  477. 		"x-display-backing-store", "x-display-color-cells",
    
  478. 		"x-display-color-cells", "x-display-grayscale-p",
    
  479. 		"x-display-grayscale-p", "x-display-list", "x-display-list",
    
  480. 		"x-display-mm-height", "x-display-mm-height", "x-display-mm-width",
    
  481. 		"x-display-mm-width", "x-display-monitor-attributes-list",
    
  482. 		"x-display-pixel-height", "x-display-pixel-height",
    
  483. 		"x-display-pixel-width", "x-display-pixel-width", "x-display-planes",
    
  484. 		"x-display-planes", "x-display-save-under", "x-display-save-under",
    
  485. 		"x-display-screens", "x-display-screens", "x-display-visual-class",
    
  486. 		"x-display-visual-class", "x-family-fonts", "x-file-dialog",
    
  487. 		"x-file-dialog", "x-file-dialog", "x-focus-frame", "x-frame-geometry",
    
  488. 		"x-frame-geometry", "x-get-atom-name", "x-get-resource",
    
  489. 		"x-get-selection-internal", "x-hide-tip", "x-hide-tip",
    
  490. 		"x-list-fonts", "x-load-color-file", "x-menu-bar-open-internal",
    
  491. 		"x-menu-bar-open-internal", "x-open-connection", "x-open-connection",
    
  492. 		"x-own-selection-internal", "x-parse-geometry", "x-popup-dialog",
    
  493. 		"x-popup-menu", "x-register-dnd-atom", "x-select-font",
    
  494. 		"x-select-font", "x-selection-exists-p", "x-selection-owner-p",
    
  495. 		"x-send-client-message", "x-server-max-request-size",
    
  496. 		"x-server-max-request-size", "x-server-vendor", "x-server-vendor",
    
  497. 		"x-server-version", "x-server-version", "x-show-tip", "x-show-tip",
    
  498. 		"x-synchronize", "x-synchronize", "x-uses-old-gtk-dialog",
    
  499. 		"x-window-property", "x-window-property", "x-wm-set-size-hint",
    
  500. 		"xw-color-defined-p", "xw-color-defined-p", "xw-color-values",
    
  501. 		"xw-color-values", "xw-display-color-p", "xw-display-color-p",
    
  502. 		"yes-or-no-p", "zlib-available-p", "zlib-decompress-region",
    
  503. 		"forward-point",
    
  504. 	}
    
  505. 
    
  506. 	emacsBuiltinFunctionHighlighted = []string{
    
  507. 		"defvaralias", "provide", "require",
    
  508. 		"with-no-warnings", "define-widget", "with-electric-help",
    
  509. 		"throw", "defalias", "featurep",
    
  510. 	}
    
  511. 
    
  512. 	emacsLambdaListKeywords = []string{
    
  513. 		"&allow-other-keys", "&aux", "&body", "&environment", "&key", "&optional",
    
  514. 		"&rest", "&whole",
    
  515. 	}
    
  516. 
    
  517. 	emacsErrorKeywords = []string{
    
  518. 		"cl-assert", "cl-check-type", "error", "signal",
    
  519. 		"user-error", "warn",
    
  520. 	}
    
  521. )
    
  522. 
    
  523. // EmacsLisp lexer.
    
  524. var EmacsLisp = Register(TypeRemappingLexer(MustNewXMLLexer(
    
  525. 	embedded,
    
  526. 	"embedded/emacslisp.xml",
    
  527. ), TypeMapping{
    
  528. 	{NameVariable, NameFunction, emacsBuiltinFunction},
    
  529. 	{NameVariable, NameBuiltin, emacsSpecialForms},
    
  530. 	{NameVariable, NameException, emacsErrorKeywords},
    
  531. 	{NameVariable, NameBuiltin, append(emacsBuiltinFunctionHighlighted, emacsMacros...)},
    
  532. 	{NameVariable, KeywordPseudo, emacsLambdaListKeywords},
    
  533. }))