Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : prolog.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:11 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/prolog.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`prolog.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'prolog nil "Major mode for editing and running Prolog under Emacs." :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group 'languages)
#@65 Program name for invoking an inferior Prolog with `run-prolog'.
(custom-declare-variable 'prolog-program-name '(let ((names '("prolog" "gprolog" "swipl"))) (while (and names (not (executable-find (car names)))) (setq names (cdr names))) (or (car names) "prolog")) '(#$ . 795) :type 'string :group 'prolog)
#@54 (Re)Consult mode (for C-Prolog and Quintus Prolog). 
(custom-declare-variable 'prolog-consult-string '"reconsult(user).\n" '(#$ . 1107) :type 'string :group 'prolog)
#@36 Compile mode (for Quintus Prolog).
(custom-declare-variable 'prolog-compile-string '"compile(user).\n" '(#$ . 1279) :type 'string :group 'prolog)
#@100 String that represents end of file for Prolog.
When nil, send actual operating system end of file.
(custom-declare-variable 'prolog-eof-string '"end_of_file.\n" '(#$ . 1432) :type 'string :group 'prolog)
#@41 Level of indentation in Prolog buffers.
(custom-declare-variable 'prolog-indent-width '4 '(#$ . 1642) :type 'integer :group 'prolog)
#@37 Font-lock keywords for Prolog mode.
(defvar prolog-font-lock-keywords '(("\$#[<=]=>\\|:-\$\\|\$#=\$\\|\$#[#<>\\/][=\\/]*\\|!\$" 0 font-lock-keyword-face) ("\\<\$is\\|write\\|nl\\|read_\\sw+\$\\>" 1 font-lock-keyword-face) ("^\$\\sw+\$\\s-*\$(\\(.+\$)\\)*" (1 font-lock-function-name-face) (3 font-lock-variable-name-face))) (#$ . 1781))
(byte-code "\302B\303\302!\204[�\304\302\305 \306\307\310	#\210\306\311\312	#\210\306\313\314	#\210\306\315\316	#\210\306\317\320	#\210\306\321\320	#\210\306\322\320	#\210\306\323\324	#\210\306\325\326	#\210\306\327\320	#\210\306\330\320	#\210\306\331\332	#\210	)\"\210\333B\303\333!\204j�\304\333\334\"\210\335\333\334\"\207" [current-load-list table prolog-mode-syntax-table default-boundp set-default make-syntax-table modify-syntax-entry 95 "w" 92 "\\" 47 ". 14" 42 ". 23" 43 "." 45 61 37 "<" 10 ">" 60 62 39 "\"" prolog-mode-abbrev-table nil define-abbrev-table] 6)
(defalias 'prolog-mode-variables #[nil "\306\301!\210\307P\306\302!\210\310\306\303!\210\311\306\304!\210\312\306\305!\210\313\306\314!\210\315\f\306\316!\210\317\306\320!\210\321\211\207" [page-delimiter paragraph-separate paragraph-ignore-fill-prefix imenu-generic-expression indent-line-function comment-start make-local-variable "%%\\|$\\|" t ((nil "^\\sw+" 0)) prolog-indent-line "%" comment-start-skip "\$?:%+\\|/\\*+\$[ 	]*" comment-end-skip "[ 	]*\$\n\\|\\*+/\$" comment-column 48] 2])
(byte-code "\302B\303\302!\204%�\304\302\305 \306	\307\310#\210\306	\311\312#\210\306	\313\314#\210	)\"\210\302\207" [current-load-list map prolog-mode-map default-boundp set-default make-sparse-keymap define-key "" prolog-consult-region "\f" inferior-prolog-load-file "" switch-to-prolog] 6)
#@23 Menu for Prolog mode.
(defvar prolog-mode-menu nil (#$ . 3522))
(easy-menu-do-define 'prolog-mode-menu prolog-mode-map "Menu for Prolog mode." '("Prolog" ["Indent line" indent-according-to-mode t] ["Indent region" indent-region t] ["Comment region" comment-region t] ["Uncomment region" uncomment-region t] "--" ["Run interactive Prolog session" run-prolog t]))
#@228 Major mode for editing Prolog code for Prologs.
Blank lines and `%%...' separate paragraphs.  `%'s start comments.
Commands:
\{prolog-mode-map}
Entry to this mode calls the value of `prolog-mode-hook'
if that value is non-nil.
(defalias 'prolog-mode #[nil "\306 \210\307!\210\310	!\210\311\312\313 \210\314\304!\210\315\316\317\320!\207" [prolog-mode-map prolog-mode-syntax-table major-mode mode-name comment-add font-lock-defaults kill-all-local-variables use-local-map set-syntax-table prolog-mode "Prolog" prolog-mode-variables make-local-variable 1 (prolog-font-lock-keywords nil nil nil beginning-of-line) run-mode-hooks prolog-mode-hook] 2 (#$ . 3891) nil])
#@138 Indent current line as Prolog code.
With argument, indent any additional lines of the same clause
rigidly along with this one (not yet).
(defalias 'prolog-indent-line #[nil "\302 d`Z\303 \210\304	!\210dZ`V\205�dZb*\207" [pos indent prolog-indent-level beginning-of-line indent-line-to] 3 (#$ . 4567) "p"])
#@35 Compute Prolog indentation level.
(defalias 'prolog-indent-level #[nil "\212\306 \210\307\310w\210\311\312!\203�\313\202\313�\311\314!\203�\202\313�o\203$�\313\202\313�\315\310\211\211\311\316!\2037�\315\2029�\310\f\203c�\317y\210\306 \210o\203M�\310\211\202:�\307\310w\210\311\314!\2049�\311\320!\2049�\310\211\204=�o\203l�\313\202n�i\311\321!\203x�\202\312�\311\322!\203\203�\315\202\205�\310\323 \210o\204\217�\317u\210\311\324!\203\254�\n\203\245�\311\325!\203\245�
\\\202\312�]\202\312�\311\326!\203\267�\202\312�	\204\301�\311\327!\203\311�
Z\313]\202\312�\313,)\207" [comment-column less more ind empty prolog-indent-width beginning-of-line " 	" nil looking-at "%%%" 0 "%[^%]" t ")" -1 "\n" "%%[^%]" "(" end-of-prolog-clause "[,(;>]" "[^,]" "-" "[^.]" tab-width] 5 (#$ . 4884)])
#@35 Go to end of clause in this line.
(defalias 'end-of-prolog-clause #[nil "\302\303!\210\212\304\210`)\305	\306#\203�\307\224b\210\310\304x)\207" [eolpos comment-start-skip beginning-of-line 1 nil re-search-forward move 0 " 	"] 4 (#$ . 5699)])
(byte-code "\305B\306\305!\204�\307\305\310 \311	\312\313#\210	)\"\210\314B\306\314!\204(�\307\314\n\"\210\304B\306\304!\2047�\307\304\"\210\315\316N\204C�\317\315\316\320#\210\321\305!\204O�\317\305\322\323#\210\305B\306\305!\204_�\307\305\310 \"\210\321\314!\204k�\317\314\322\323#\210\314B\306\314!\204{�\307\314\324 \"\210\317\304\322\323#\210\304B\306\304!\204\225�\307\304\325\304\326\"\210\f\"\210\317\323\327\330#\207" [current-load-list map prolog-mode-syntax-table prolog-mode-abbrev-table inferior-prolog-mode-abbrev-table inferior-prolog-mode-map default-boundp set-default make-sparse-keymap define-key [remap self-insert-command] inferior-prolog-self-insert-command inferior-prolog-mode-syntax-table inferior-prolog-mode-hook variable-documentation put "Hook run when entering Inferior Prolog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name inferior-prolog-mode make-syntax-table define-abbrev-table nil derived-mode-parent comint-mode] 6)
#@1195 Major mode for interacting with an inferior Prolog process.

The following commands are available:
\{inferior-prolog-mode-map}

Entry to this mode calls the value of `prolog-mode-hook' with no arguments,
if that value is non-nil.  Likewise with the value of `comint-mode-hook'.
`prolog-mode-hook' is called after `comint-mode-hook'.

You can send text to the inferior Prolog from other buffers using the commands
`process-send-region', `process-send-string' and \[prolog-consult-region].

Commands:
Tab indents for Prolog; with argument, shifts rest
 of expression rigidly with the current line.
Paragraphs are separated only by blank lines and '%%'.
'%'s start comments.

Return at end of buffer sends line as input.
Return not at end copies rest of line to end and sends it.
\[comint-kill-input] and \[backward-kill-word] are kill commands, imitating normal Unix input editing.
\[comint-interrupt-subjob] interrupts the shell or its current subjob if any.
\[comint-stop-subjob] stops. \[comint-quit-subjob] sends quit signal.

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `inferior-prolog-mode-hook', as the final step
during initialization.
(defalias 'inferior-prolog-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324!\210\325\f!\210\326\327 \210)\330\331!\207" [delay-mode-hooks major-mode mode-name inferior-prolog-mode-map inferior-prolog-mode-syntax-table parent make-local-variable t comint-mode inferior-prolog-mode "Inferior Prolog" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table "^| [ ?][- ] *" prolog-mode-variables run-mode-hooks inferior-prolog-mode-hook inferior-prolog-mode-abbrev-table local-abbrev-table comint-prompt-regexp] 6 (#$ . 7031) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list inferior-prolog-buffer default-boundp set-default nil] 3)
#@215 Either a symbol or a buffer position offset by one.
If a buffer position, the flavor has not been determined yet and
it is expected that the process's output has been or will
be inserted at that position plus one.
(defvar inferior-prolog-flavor 'unknown (#$ . 9144))
(defalias 'inferior-prolog-run #[(&optional name) "r\305\306\206�	\"q\210\307 \210\310\311p\"\210\312\311!\210\203'�	\232\204'�\312\301!\210\312\304!\210\313p!\211\2058�\314\315\n!!\211\204B�eS\202Q�eV\203O�\316S!\202Q�S*\317\320\321\322\323$)\207" [name prolog-program-name proc pmark inferior-prolog-flavor make-comint "prolog" inferior-prolog-mode set-default inferior-prolog-buffer make-local-variable get-buffer-process marker-position process-mark copy-marker add-hook comint-output-filter-functions inferior-prolog-guess-flavor nil t] 6])
(defalias 'inferior-prolog-process #[(&optional dontstart) "\302!\203\f�\303!\206�	?\205�\304 \210\305 \207" [inferior-prolog-buffer dontstart buffer-live-p get-buffer-process inferior-prolog-run inferior-prolog-process] 2])
(defalias 'inferior-prolog-guess-flavor #[(&optional ignored) "\212Tb\210\302\303!\203�\304\202$�\302\305!\203�\306\202$�\302\307!\203#�\310\202$�)9\205>�\311\312\313\314#\210\304=\205>�\315\301!\210\314\211\207" [inferior-prolog-flavor comint-process-echoes looking-at "GNU Prolog" gnu "Welcome to SWI-Prolog" swi ".*\n" unknown remove-hook comint-output-filter-functions inferior-prolog-guess-flavor t make-local-variable] 4])
(defalias 'run-prolog 'switch-to-prolog)
#@144 Run an inferior Prolog process, input and output via buffer *prolog*.
With prefix argument \[universal-prefix], prompt for the program to use.
(defalias 'switch-to-prolog #[(&optional name) "\302\303!\204\n�\304!\210\305	!\207" [name inferior-prolog-buffer inferior-prolog-process dontstart inferior-prolog-run pop-to-buffer] 2 (#$ . 10683) (list (when current-prefix-arg (let ((proc (inferior-prolog-process 'dontstart))) (if proc (if (yes-or-no-p "Kill current process before starting new one? ") (kill-process proc) (error "Abort"))) (read-string "Run Prolog: " prolog-program-name))))])
#@67 Insert the char in the buffer or pass it directly to the process.
(defalias 'inferior-prolog-self-insert-command #[nil "\305p!\211\205
�\306\307!!\n\310=\203<�	\203<�\204<�m\203<�`	=\203<�\212	\311Zb\210\312\313!)\203<�\314\315\f!\"\202?�\316\317!*\207" [proc pmark inferior-prolog-flavor current-prefix-arg last-command-event get-buffer-process marker-position process-mark gnu 3 looking-at " \\? " comint-send-string string call-interactively self-insert-command] 5 (#$ . 11281) nil])
#@144 Send the region to the Prolog process made by "M-x run-prolog".
If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode.
(defalias 'prolog-consult-region #[(compile beg end) "\306 \307	\203
�\n\202�\"\210\310\f
#\210\307\311\"\210\f\203(�\307\f\"\2021�r\312!q\210\313 ))\207" [proc compile prolog-compile-string prolog-consult-string beg end inferior-prolog-process comint-send-string comint-send-region "\n" process-buffer comint-send-eof prolog-eof-string] 4 (#$ . 11780) "P\nr"])
#@151 Send the region to the inferior Prolog, and switch to *prolog* buffer.
If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode.
(defalias 'prolog-consult-region-and-go #[(compile beg end) "\304	\n#\210\305!\207" [compile beg end inferior-prolog-buffer prolog-consult-region pop-to-buffer] 4 (#$ . 12302) "P\nr"])
#@64 Pass the current buffer's file to the inferior prolog process.
(defalias 'inferior-prolog-load-file #[nil "\303 \210\304 r\305	!q\210\306	\307\310\n!\311Q\"\210\312p!+\207" [buffer-file-name proc file save-buffer inferior-prolog-process process-buffer comint-send-string "['" file-relative-name "'].\n" pop-to-buffer] 5 (#$ . 12645) nil])
(provide 'prolog)

${this.title}

Code Editor : prolog.elc