Lines Matching +defs:table +defs:string
50 :type 'string
53 (defcustom prolog-consult-string "reconsult(user).\n"
55 :type 'string
58 (defcustom prolog-compile-string "compile(user).\n"
60 :type 'string
63 (defcustom prolog-eof-string "end_of_file.\n"
66 :type 'string
84 (defvar prolog-mode-syntax-table
85 (let ((table (make-syntax-table)))
86 (modify-syntax-entry ?_ "w" table)
87 (modify-syntax-entry ?\\ "\\" table)
88 (modify-syntax-entry ?/ ". 14" table)
89 (modify-syntax-entry ?* ". 23" table)
90 (modify-syntax-entry ?+ "." table)
91 (modify-syntax-entry ?- "." table)
92 (modify-syntax-entry ?= "." table)
93 (modify-syntax-entry ?% "<" table)
94 (modify-syntax-entry ?\n ">" table)
95 (modify-syntax-entry ?< "." table)
96 (modify-syntax-entry ?> "." table)
97 (modify-syntax-entry ?\' "\"" table)
98 table))
100 (defvar prolog-mode-abbrev-table nil)
101 (define-abbrev-table 'prolog-mode-abbrev-table ())
151 (set-syntax-table prolog-mode-syntax-table)
241 (defvar inferior-prolog-mode-syntax-table prolog-mode-syntax-table)
242 (defvar inferior-prolog-mode-abbrev-table prolog-mode-abbrev-table)
255 `process-send-region', `process-send-string' and \\[prolog-consult-region].
340 (read-string "Run Prolog: " prolog-program-name)))))
358 (comint-send-string proc (string last-command-char))
366 (comint-send-string proc
367 (if compile prolog-compile-string
368 prolog-consult-string))
370 (comint-send-string proc "\n") ;May be unnecessary
371 (if prolog-eof-string
372 (comint-send-string proc prolog-eof-string)
390 (comint-send-string proc (concat "['" (file-relative-name file) "'].\n"))