;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\210\300\322\302\303\323DD\324\306\325\310\311&\210\300\326\302\303\327DD\330\306\331\310\311&\210\300\332\302\303\333DD\334\306\335\310\311&\210\336\337!\210\340\341\342\"\210\340\341\343\"\210\344\345\346\347\350!\351\352\353\354\355\356&!\210\357\311!\207" [custom-declare-variable lsp-pascal-command funcall function #[0 "\300\207" [#1="pasls"] 1 #1#] "Command to invoke the Pascal Language Server." :type (file) :group lsp-pascal lsp-pascal-fpcdir #[0 "\300\207" [#2=""] 1 #2#] "Path to the FPC sources." (choice (const :tag "Default" #2#) (directory :tag "Other" "~/freepascal/fpc")) lsp-pascal-pp #[0 "\300\207" [#2#] 1 #2#] "Path to the Free Pascal compiler executable." (choice (const :tag "Default" #2#) (file :tag "Other" "fpc")) lsp-pascal-lazarusdir #[0 "\300\207" [#2#] 1 #2#] "Path to the Lazarus sources." (choice (const :tag "Default" #2#) (directory :tag "Other" "~/pascal/lazarus")) lsp-pascal-fpctarget #[0 "\300\207" [#2#] 1 #2#] "Target operating system for cross compiling." (choice (const :tag "Default" #2#) (string :tag "Other" #2#)) lsp-pascal-fpctargetcpu #[0 "\300\207" [#2#] 1 #2#] "Target CPU for cross compiling." (choice (const :tag "Default" #2#) (string :tag "Other" #2#)) require lsp-mode add-to-list lsp-language-id-configuration (pascal-mode . "pascal") (opascal-mode . "pascal") lsp-register-client make-lsp-client :new-connection lsp-stdio-connection #[0 "\207" [lsp-pascal-command] 1] :major-modes (opascal-mode pascal-mode) :environment-fn #[0 "\300\207" [(("FPCDIR" . lsp-pascal-fpcdir) ("PP" . lsp-pascal-pp) ("LAZARUSDIR" . lsp-pascal-lazarusdir) ("FPCTARGET" . lsp-pascal-fpctarget) ("FPCTARGETCPU" . lsp-pascal-fpctargetcpu))] 1] :server-id pasls provide] 10)