Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ps-mode.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/ps-mode.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 "`ps-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\303!\210\304B\305\306!\210\307\310!\210\311\312\313\314\315\316%\210\311\317\313\320\321\322\323\324\315\312& \210\311\325\313\326\323\327\315\312&\207" [current-load-list ps-mode-version (lambda (#1=#:defconst-tmp-var) (defconst ps-mode-version #1#)) "1.1h, 16 Jun 2005" ps-mode-maintainer-address (lambda (#2=#:defconst-tmp-var) (defconst ps-mode-maintainer-address #2#)) "Peter Kleiweg <p.c.j.kleiweg@rug.nl>" require easymenu custom-declare-group PostScript nil "PostScript mode for Emacs." :group languages PostScript-edit "PostScript editing." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :prefix "ps-mode-" PostScript-interaction "PostScript interaction." "ps-run-"] 10) #@28 *Should we use autoindent? (custom-declare-variable 'ps-mode-auto-indent 't '(#$ . -1346) :group 'PostScript-edit :type 'boolean) #@42 *Number of spaces to use when indenting. (custom-declare-variable 'ps-mode-tab '4 '(#$ . -1482) :group 'PostScript-edit :type 'integer) #@188 *Default paper size. When inserting an EPSF template these values are used to set the boundingbox to include the whole page. When the figure is finished these values should be replaced. (custom-declare-variable 'ps-mode-paper-size ''(595 842) '(#$ . -1625) :group 'PostScript-edit :type '(choice (const :tag "letter" (612 792)) (const :tag "legal" (612 1008)) (const :tag "a0" (2380 3368)) (const :tag "a1" (1684 2380)) (const :tag "a2" (1190 1684)) (const :tag "a3" (842 1190)) (const :tag "a4" (595 842)) (const :tag "a5" (421 595)) (const :tag "a6" (297 421)) (const :tag "a7" (210 297)) (const :tag "a8" (148 210)) (const :tag "a9" (105 148)) (const :tag "a10" (74 105)) (const :tag "b0" (2836 4008)) (const :tag "b1" (2004 2836)) (const :tag "b2" (1418 2004)) (const :tag "b3" (1002 1418)) (const :tag "b4" (709 1002)) (const :tag "b5" (501 709)) (const :tag "archE" (2592 3456)) (const :tag "archD" (1728 2592)) (const :tag "archC" (1296 1728)) (const :tag "archB" (864 1296)) (const :tag "archA" (648 864)) (const :tag "flsa" (612 936)) (const :tag "flse" (612 936)) (const :tag "halfletter" (396 612)) (const :tag "11x17" (792 1224)) (const :tag "tabloid" (792 1224)) (const :tag "ledger" (1224 792)) (const :tag "csheet" (1224 1584)) (const :tag "dsheet" (1584 2448)) (const :tag "esheet" (2448 3168)))) #@55 *Lisp function to print current buffer as PostScript. (custom-declare-variable 'ps-mode-print-function '(lambda nil (let ((lpr-switches nil) (lpr-command (if (memq system-type '(usg-unix-v hpux irix)) "lp" "lpr"))) (lpr-buffer))) '(#$ . -2945) :group 'PostScript-edit :type 'function) #@52 *Regexp to match prompt in interactive PostScript. (custom-declare-variable 'ps-run-prompt '"\\(GS\\(<[0-9]+\\)?>\\)+" '(#$ . -3236) :group 'PostScript-interaction :type 'regexp) #@118 *Medium level highlighting of messages from the PostScript interpreter. See documentation on font-lock for details. (custom-declare-variable 'ps-run-font-lock-keywords-2 '(append (unless (string= ps-run-prompt "") (list (list (if (= 94 (string-to-char ps-run-prompt)) ps-run-prompt (concat "^" ps-run-prompt)) '(0 font-lock-function-name-face nil nil)))) '((">>showpage, press <return> to continue<<" (0 font-lock-keyword-face nil nil)) ("^\\(Error\\|Can't\\).*" (0 font-lock-warning-face nil nil)) ("^\\(Current file position is\\) \\([0-9]+\\)" (1 font-lock-comment-face nil nil) (2 font-lock-warning-face nil nil)))) '(#$ . -3422) :group 'PostScript-interaction :type '(repeat (list :tag "Expression with one or more highlighters" :value ("" (0 default nil t)) (regexp :tag "Expression") (repeat :tag "Highlighters" :inline regexp (list :tag "Highlighter" (integer :tag "Subexp") face (boolean :tag "Override") (boolean :tag "Laxmatch" :value t)))))) #@58 *Command as list to run PostScript with graphic display. (custom-declare-variable 'ps-run-x ''("gs" "-r72" "-sPAPERSIZE=a4") '(#$ . -4383) :group 'PostScript-interaction :type '(repeat string)) #@61 *Command as list to run PostScript without graphic display. (custom-declare-variable 'ps-run-dumb ''("gs" "-dNODISPLAY") '(#$ . -4583) :group 'PostScript-interaction :type '(repeat string)) #@139 *String of commands to send to PostScript to start interactive. Example: "executive" You won't need to set this option for Ghostscript. (custom-declare-variable 'ps-run-init 'nil '(#$ . -4780) :group 'PostScript-interaction :type '(choice (const nil) string)) #@72 *What values are used by the PostScript interpreter in error messages? (custom-declare-variable 'ps-run-error-line-numbers 'nil '(#$ . -5048) :group 'PostScript-interaction :type '(choice (const :tag "line numbers" t) (const :tag "byte counts" nil))) #@85 *Name of directory to place temporary file. If nil, use `temporary-file-directory'. (custom-declare-variable 'ps-run-tmp-dir 'nil '(#$ . -5305) :group 'PostScript-interaction :type '(choice (const nil) directory)) #@56 Regexp of PostScript operators that will be fontified. (defconst ps-mode-operators (byte-code "\301\302\303\304\"\305Q)\207" [ops ("clear" "mark" "cleartomark" "counttomark" "forall" "dict" "begin" "end" "def" "true" "false" "exec" "if" "ifelse" "for" "repeat" "loop" "exit" "stop" "stopped" "countexecstack" "execstack" "quit" "start" "save" "restore" "bind" "null" "gsave" "grestore" "grestoreall" "showpage") "\\<" regexp-opt t "\\>"] 4) (#$ . 5525)) #@49 Subdued level highlighting for PostScript mode. (defconst ps-mode-font-lock-keywords-1 '(("\\`%!PS.*" . font-lock-reference-face) ("^%%BoundingBox:[ ]+-?[0-9]+[ ]+-?[0-9]+[ ]+-?[0-9]+[ ]+-?[0-9]+[ ]*$" . font-lock-reference-face) (ps-mode-match-string-or-comment (1 font-lock-comment-face nil t) (2 font-lock-string-face nil t)) ("([^()\n%]*\\|[^()\n]*)" . font-lock-warning-face) ("[\200-\377]+" (0 font-lock-warning-face prepend nil))) (#$ . 5987)) #@48 Medium level highlighting for PostScript mode. (defconst ps-mode-font-lock-keywords-2 (byte-code "\302\303 P\304BC\"\207" [ps-mode-font-lock-keywords-1 ps-mode-operators append "\\(^\\|[^/\n]\\)" (2 font-lock-keyword-face)] 4) (#$ . 6449)) #@44 High level highliting for PostScript mode. (defconst ps-mode-font-lock-keywords-3 (byte-code "\302\303\304\305B\306 \307BF\"\207" [ps-mode-font-lock-keywords-1 ps-mode-operators append ("//\\w+" . font-lock-type-face) "^\\(/\\w+\\)\\>\\([[ ]*\\(%.*\\)? ?$\\|[ ]*\\({\\|<<\\)\\|[ ]+[0-9]+[ ]+dict\\>\\|.*\\<def\\>\\)" (1 font-lock-function-name-face) ("/\\w+" . font-lock-variable-name-face) font-lock-keyword-face] 7) (#$ . 6696)) #@54 Default expressions to highlight in PostScript mode. (defconst ps-mode-font-lock-keywords ps-mode-font-lock-keywords-1 (#$ . 7138)) #@53 Subdued level highlighting for PostScript run mode. (defconst ps-run-font-lock-keywords-1 (byte-code "\301\230?\205 \302!\303U\203 \202 \304P\305BC\207" [ps-run-prompt "" string-to-char 94 "^" font-lock-function-name-face] 2) (#$ . 7276)) #@58 Default expressions to highlight in PostScript run mode. (defconst ps-run-font-lock-keywords ps-run-font-lock-keywords-1 (#$ . 7528)) #@41 Local keymap to use in PostScript mode. (defvar ps-mode-map nil (#$ . 7668)) #@45 Syntax table used while in PostScript mode. (defvar ps-mode-syntax-table nil (#$ . 7751)) #@45 Local keymap to use in PostScript run mode. (defvar ps-run-mode-map nil (#$ . 7847)) #@42 Name of temporary file, set by `ps-run'. (defvar ps-mode-tmp-file nil (#$ . 7938)) #@66 Mark to start of region that was sent to PostScript interpreter. (defvar ps-run-mark nil (#$ . 8027)) #@42 Parent window of interactive PostScript. (defvar ps-run-parent nil (#$ . 8135)) (byte-code "\302B\306\307!\210 \204\235 \310 \311 \312\313#\210\311 \314\315#\210\311 \316\317#\210\311 \320\321#\210\311 \322\323#\210\311 \324\325#\210\311 \326\327#\210\311 \330\331#\210\311 \332\333#\210\311 \334\335#\210\311 \336\337#\210\311 \340\341#\210\311 \342\343#\210\311 \344\345#\210\311 \346\347#\210\311 \350\351#\210\311 \352\353#\210\311 \354\355#\210\311 \356\355#\210\357B\360\357\361\362#\210\363\357!\204\226 \364\357\365\"\210\366\357 \362\n$\210 \204\310 \310 \311 \324\325#\210\311 \332\333#\210\311 \367\370#\210\311 \371\372#\210\311 \354\373#\210\311 \374\373#\210\f\204\375 \376\377\201A \f#\210\376\201B \201C \f#\210\376\201D \201C \f#\210\376\201E \201C \f#\210\376\201F \201G \f#\210\376\201H \201I \f#\210\376\201J \201K \f#\210\376\201L \201K \f#\210\376\201M \201K \f#\210\376\201N \201K \f#\210\376\201O \201K \f#\210\376\201P \201K \f#\210\376\201Q \201K \f#\210\376\201R \201K \f#\210\376\201S \201K \f#\210\376\201T \201K \f#\210\376\201U \201K \f#\210\376\201V \201K \f#\210\376\201W \201K \f#\210\376\201X \201K \f#\210\376\201Y \201K \f#\210\376\201Z \201K \f#\210\376\201[ \201K \f#\210\376\201\\ \201K \f#\210\376\201] \201K \f#\210\376\201^ \201K \f#\210\376\201_ \201K \f#\210\376\201` \201K \f#\210\201a \211 \201b W\203 \376 \201K \f#\210 T\211\202\352)\201c \361N\204\360\201c \361\201d #\210\201e \301!\204%\360\301\201f \201g #\210\301B\363\301!\2045\364\301\310 \"\210\201e \304!\204G\360\304\201f \201g #\210\304B\363\304!\204W\364\304\375 \"\210\360\201@ \201f \201g #\210\201@ B\363\201@ !\204\202\364\201@ \201h \201@ \365\"\210@\"\210\360\201g \201i \365#\207" [current-load-list ps-mode-map ps-mode-menu-main ps-run-mode-map ps-mode-syntax-table i (lambda (#1=#:defconst-tmp-var) (defconst ps-mode-menu-main #1#)) ("PostScript" ["EPSF Template, Sparse" ps-mode-epsf-sparse t] ["EPSF Template, Rich" ps-mode-epsf-rich t] "---" ("Cookbook" ["RE" ps-mode-RE t] ["ISOLatin1Extended" ps-mode-latin-extended t] ["center" ps-mode-center t] ["right" ps-mode-right t] ["Heapsort" ps-mode-heapsort t]) ("Fonts (1)" ["Times-Roman" (insert "/Times-Roman ") t] ["Times-Bold" (insert "/Times-Bold ") t] ["Times-Italic" (insert "/Times-Italic ") t] ["Times-BoldItalic" (insert "/Times-BoldItalic ") t] ["Helvetica" (insert "/Helvetica ") t] ["Helvetica-Bold" (insert "/Helvetica-Bold ") t] ["Helvetica-Oblique" (insert "/Helvetica-Oblique ") t] ["Helvetica-BoldOblique" (insert "/Helvetica-BoldOblique ") t] ["Courier" (insert "/Courier ") t] ["Courier-Bold" (insert "/Courier-Bold ") t] ["Courier-Oblique" (insert "/Courier-Oblique ") t] ["Courier-BoldOblique" (insert "/Courier-BoldOblique ") t] ["Symbol" (insert "/Symbol") t]) ("Fonts (2)" ["AvantGarde-Book" (insert "/AvantGarde-Book ") t] ["AvantGarde-Demi" (insert "/AvantGarde-Demi ") t] ["AvantGarde-BookOblique" (insert "/AvantGarde-BookOblique ") t] ["AvantGarde-DemiOblique" (insert "/AvantGarde-DemiOblique ") t] ["Bookman-Light" (insert "/Bookman-Light ") t] ["Bookman-Demi" (insert "/Bookman-Demi ") t] ["Bookman-LightItalic" (insert "/Bookman-LightItalic ") t] ["Bookman-DemiItalic" (insert "/Bookman-DemiItalic ") t] ["Helvetica-Narrow" (insert "/Helvetica-Narrow ") t] ["Helvetica-Narrow-Bold" (insert "/Helvetica-Narrow-Bold ") t] ["Helvetica-Narrow-Oblique" (insert "/Helvetica-Narrow-Oblique ") t] ["Helvetica-Narrow-BoldOblique" (insert "/Helvetica-Narrow-BoldOblique ") t] ["NewCenturySchlbk-Roman" (insert "/NewCenturySchlbk-Roman ") t] ["NewCenturySchlbk-Bold" (insert "/NewCenturySchlbk-Bold ") t] ["NewCenturySchlbk-Italic" (insert "/NewCenturySchlbk-Italic ") t] ["NewCenturySchlbk-BoldItalic" (insert "/NewCenturySchlbk-BoldItalic ") t] ["Palatino-Roman" (insert "/Palatino-Roman ") t] ["Palatino-Bold" (insert "/Palatino-Bold ") t] ["Palatino-Italic" (insert "/Palatino-Italic ") t] ["Palatino-BoldItalic" (insert "/Palatino-BoldItalic ") t] ["ZapfChancery-MediumItalic" (insert "/ZapfChancery-MediumItalic ") t] ["ZapfDingbats" (insert "/ZapfDingbats ") t]) "---" ["Comment Out Region" ps-mode-comment-out-region (mark t)] ["Uncomment Region" ps-mode-uncomment-region (mark t)] "---" ["8-bit to Octal Buffer" ps-mode-octal-buffer t] ["8-bit to Octal Region" ps-mode-octal-region (mark t)] "---" ["Auto Indent" (setq ps-mode-auto-indent (not ps-mode-auto-indent)) :style toggle :selected ps-mode-auto-indent] "---" ["Start PostScript" ps-run-start t] ["Quit PostScript" ps-run-quit (process-status "ps-run")] ["Kill PostScript" ps-run-kill (process-status "ps-run")] ["Send Buffer to Interpreter" ps-run-buffer (process-status "ps-run")] ["Send Region to Interpreter" ps-run-region (and (mark t) (process-status "ps-run"))] ["Send Newline to Interpreter" ps-mode-other-newline (process-status "ps-run")] ["View BoundingBox" ps-run-boundingbox (process-status "ps-run")] ["Clear/Reset PostScript Graphics" ps-run-clear (process-status "ps-run")] "---" ["Print Buffer as PostScript" ps-mode-print-buffer t] ["Print Region as PostScript" ps-mode-print-region (mark t)] "---" ["Customize for PostScript" (customize-group "PostScript") t] "---" ["Submit Bug Report" ps-mode-submit-bug-report t]) make-sparse-keymap define-key "" ps-run-boundingbox "" ps-mode-uncomment-region "" ps-mode-epsf-rich "" ps-run-start "" ps-run-region "" ps-run-quit "" ps-mode-print-buffer "" ps-mode-comment-out-region " " ps-run-kill "\n" ps-mode-other-newline "\f" ps-run-clear "" ps-run-buffer ">" ps-mode-r-gt "]" ps-mode-r-angle "}" ps-mode-r-brace "" ps-mode-backward-delete-char " " ps-mode-tabkey " " ps-mode-newline [return] ps-mode-main put variable-documentation "PostScript" default-boundp set-default nil easy-menu-do-define "" ps-run-goto-error [mouse-2] ps-run-mouse-goto-error ps-run-newline [return] make-syntax-table modify-syntax-entry 37 ps-mode-abbrev-table "< " 10 "> " 13 12 60 "(>" 62 ")<" 33 "w " 34 35 36 38 39 42 43 44 45 46 58 59 61 63 64 92 94 95 96 124 126 128 256 ps-mode-hook "Hook run when entering PostScript 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 ps-mode define-abbrev-table derived-mode-parent] 6) #@1050 Major mode for editing PostScript with GNU Emacs. Entry to this mode calls `ps-mode-hook'. The following variables hold user options, and can be set through the `customize' command: `ps-mode-auto-indent' `ps-mode-tab' `ps-mode-paper-size' `ps-mode-print-function' `ps-run-prompt' `ps-run-font-lock-keywords-2' `ps-run-x' `ps-run-dumb' `ps-run-init' `ps-run-error-line-numbers' `ps-run-tmp-dir' Type \[describe-variable] for documentation on these options. \{ps-mode-map} When starting an interactive PostScript process with \[ps-run-start], a second window will be displayed, and `ps-run-mode-hook' will be called. The keymap for this second window is: \{ps-run-mode-map} When Ghostscript encounters an error it displays an error message with a file position. Clicking mouse-2 on this number will bring point to the corresponding spot in the PostScript window, if input to the interpreter was sent from that window. Typing \<ps-run-mode-map>\[ps-run-goto-error] when the cursor is at the number has the same effect. (defalias 'ps-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \306\315!\210\316 \306\317!\210\320\306\321!\210\322\323\324!\210)\325\326!\207" [delay-mode-hooks major-mode mode-name ps-mode-map ps-mode-syntax-table ps-mode-abbrev-table make-local-variable t kill-all-local-variables ps-mode "PostScript" use-local-map set-syntax-table font-lock-defaults ((ps-mode-font-lock-keywords ps-mode-font-lock-keywords-1 ps-mode-font-lock-keywords-2 ps-mode-font-lock-keywords-3) t) comment-start "%" comment-start-skip "%+[ ]*" doc-view-minor-mode 1 run-mode-hooks ps-mode-hook local-abbrev-table] 2 (#$ . 14424) nil]) #@42 Show current version of PostScript mode. (defalias 'ps-mode-show-version #[nil "\301\302\"\207" [ps-mode-version message " *** PostScript Mode (ps-mode) Version %s *** "] 3 (#$ . 16121) nil]) #@50 Submit via mail a bug report on PostScript mode. (defalias 'ps-mode-submit-bug-report #[nil "\305\306!\205 \307\310\311\n\312\313 \f#\314#*\207" [reporter-dont-compact-list reporter-prompt-for-summary-p ps-mode-maintainer-address ps-mode-version system-type y-or-n-p "Submit bug report on PostScript mode? " nil (ps-mode-print-function ps-run-font-lock-keywords-2) reporter-submit-bug-report format "ps-mode.el %s [%s]" (ps-mode-auto-indent ps-mode-tab ps-mode-paper-size ps-mode-print-function ps-run-prompt ps-run-font-lock-keywords-2 ps-run-x ps-run-dumb ps-run-init ps-run-error-line-numbers ps-run-tmp-dir)] 6 (#$ . 16320) nil]) (defalias 'ps-mode-looking-at-nested #[(limit) "`\304\305\304u\210` \306V\203< W\203< \307\310!\204# \311\211\202\f \312\313!\314\230\2030 \304\2021 \311\\\306\225\211b\210\202 \306U\205N \315\n\305\211\n\257!\210+\207" [pos level first limit 1 nil 0 looking-at "\\([^()\\\n]\\|\\\\.\\)*\\([()]\\)" -1 match-string 2 "(" set-match-data] 8]) (defalias 'ps-mode-match-string-or-comment #[(limit) "\302\303\304#\205. \305\225\305\224b\210\306\307!\203 \305\225b\210`\202- \310!\203' `\202- b\210\311!)\207" [limit end re-search-forward "[%(]" t 0 looking-at "\\(%.*\\)\\|\\((\\([^()\\\n]\\|\\\\.\\)*)\\)" ps-mode-looking-at-nested ps-mode-match-string-or-comment] 4]) #@182 To what column should text on current line be indented? Identation is increased if the last token on the current line defines the beginning of a group. These tokens are: { [ << (defalias 'ps-mode-target-column #[nil "\212\302 \210\303\304!\203 \305\306\307\217\202C \310\311\312\310\313#\204 \314\202B \314\224b\210\302 \210\303\315!\2030 \314\225b\210i\310\210\311\316\310\313#\203A \\))\207" [target ps-mode-tab beginning-of-line looking-at "[ ]*\\(}\\|\\]\\|>>\\)" err (byte-code "\300\225b\210\301\302!\210\303 \210\304\305!\203 \300\225b\210i\207" [0 backward-sexp 1 beginning-of-line looking-at "[ ]+"] 2) ((error (byte-code "\301 \210\302\303\304!\"\210\305\207" [err ding message "%s" error-message-string 0] 4))) nil re-search-backward "[^ \n \f][ \n \f]*\\=" t 0 "[ ]+" "\\({\\|\\[\\|<<\\)[ ]*\\(%[^\n]*\\)?\\="] 4 (#$ . 17651)]) #@41 Insert newline with proper indentation. (defalias 'ps-mode-newline #[nil "\301 \210\302c\210\205 \303 j\207" [ps-mode-auto-indent delete-horizontal-space "\n" ps-mode-target-column] 1 (#$ . 18518) nil]) #@46 Indent/reindent current line, or insert tab. (defalias 'ps-mode-tabkey #[nil "i\304\n\203 \305W\204 \306\307\304\310#\204 \311c\202/ \312 \211 X\203, \\\211\202 \313!*\207" [target column ps-mode-auto-indent ps-mode-tab nil 1 re-search-backward "^[ ]*\\=" t " " ps-mode-target-column indent-line-to] 5 (#$ . 18729) nil]) #@60 Delete backward indentation, or delete backward character. (defalias 'ps-mode-backward-delete-char #[nil "i\304\n\203 \305W\204 \306\307\304\310#\204 \311\305!\202E \312 V\203, \\\202 Y\203: Z\211\202- \313W\203B \313\314!*\207" [target column ps-mode-auto-indent ps-mode-tab nil 1 re-search-backward "^[ ]+\\=" t delete-backward-char ps-mode-target-column 0 indent-line-to] 5 (#$ . 19069) nil]) #@33 Insert `}' and perform balance. (defalias 'ps-mode-r-brace #[nil "\300c\210\301\300!\207" ["}" ps-mode-r-balance] 2 (#$ . 19493) nil]) #@33 Insert `]' and perform balance. (defalias 'ps-mode-r-angle #[nil "\300c\210\301\300!\207" ["]" ps-mode-r-balance] 2 (#$ . 19634) nil]) #@33 Insert `>' and perform balance. (defalias 'ps-mode-r-gt #[nil "\300c\210\301\302!\207" [">" ps-mode-r-balance ">>"] 2 (#$ . 19775) nil]) #@46 Adjust indentification if point after RIGHT. (defalias 'ps-mode-r-balance #[(right) "\203 \212\302\303\304 !\305Q\306\307#\203 \310\311 !\210)\312 \207" [ps-mode-auto-indent right re-search-backward "^[ ]*" regexp-quote "\\=" nil t indent-line-to ps-mode-target-column blink-matching-open] 4 (#$ . 19918)]) #@39 Perform newline in `*ps run*' buffer. (defalias 'ps-mode-other-newline #[nil "p\301q\210\302 \210q)\207" [buf "*ps run*" ps-run-newline] 1 (#$ . 20235) nil]) #@29 Print buffer as PostScript. (defalias 'ps-mode-print-buffer #[nil " \207" [ps-mode-print-function] 1 (#$ . 20401) nil]) #@93 Print region as PostScript, adding minimal header and footer lines: %!PS <region> showpage (defalias 'ps-mode-print-region #[(begin end) "p\305\306!r q\210\307\216\310c\210\311\n #\210\312c\210\f ,\207" [buf #1=#:temp-buffer begin end ps-mode-print-function generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "%!PS\n" insert-buffer-substring "\nshowpage\n"] 4 (#$ . 20528) "r"]) #@21 Comment out region. (defalias 'ps-mode-comment-out-region #[(begin end) "\303 \211 \304\223\210\212\nb\210i\305U\203 \306c\210\304y\305U\203* `\307!W\203* \306c\210\202 )\304\211\223)\207" [endm end begin make-marker nil 0 "%" marker-position] 4 (#$ . 20976) "r"]) #@83 Uncomment region. Only one `%' is removed, and it has to be in the first column. (defalias 'ps-mode-uncomment-region #[(begin end) "\303 \211 \304\223\210\212\nb\210\305\306!\203 \307\310!\210\304y\311U\2032 `\312!W\2032 \305\313!\203 \307\310!\210\202 )\304\211\223)\207" [endm end begin make-marker nil looking-at "^%" delete-char 1 0 marker-position "%"] 4 (#$ . 21252) "r"]) #@51 Change 8-bit characters to octal codes in buffer. (defalias 'ps-mode-octal-buffer #[nil "\300ed\"\207" [ps-mode-octal-region] 3 (#$ . 21644) nil]) #@51 Change 8-bit characters to octal codes in region. (defalias 'ps-mode-octal-region #[(begin end) "\203 \305 \210\306\307!\207\212\310\211\311 \211 \310\223\210\fb\210\312\313\314\315\n!\316#\203? T\317u\210\320\321\322``T{!\"c\210\323\324!\210\202 \306\325 \211\324U\203L \326\202M \327#\210\n\310\211\223+\207" [buffer-read-only i endm end begin ding message "Buffer is read only" nil make-marker 0 re-search-forward "[\200-\377]" marker-position t -1 format "\\%03o" string-to-char delete-char 1 "%d change%s made" "" "s"] 6 (#$ . 21797) "r"]) #@26 Insert function /center. (defalias 'ps-mode-center #[nil "\300c\207" ["\n/center {\n dup stringwidth\n exch 2 div neg\n exch 2 div neg\n rmoveto\n} bind def\n"] 1 (#$ . 22357) nil]) #@25 Insert function /right. (defalias 'ps-mode-right #[nil "\300c\207" ["\n/right {\n dup stringwidth\n exch neg\n exch neg\n rmoveto\n} bind def\n"] 1 (#$ . 22557) nil]) #@22 Insert function /RE. (defalias 'ps-mode-RE #[nil "\300c\207" ["\n% `new-font-name' `encoding-vector' `old-font-name' RE -\n/RE {\n findfont\n dup maxlength dict begin {\n 1 index /FID ne { def } { pop pop } ifelse\n } forall\n /Encoding exch def\n dup /FontName exch def\n currentdict end definefont pop\n} bind def\n"] 1 (#$ . 22742) nil]) #@176 Insert array /ISOLatin1Extended. This encoding vector contains all the entries from ISOLatin1Encoding plus the usually uncoded characters inserted on positions 1 through 28. (defalias 'ps-mode-latin-extended #[nil "\300c\207" ["\n% ISOLatin1Encoding, extended with remaining uncoded glyphs\n/ISOLatin1Extended [\n /.notdef /Lslash /lslash /OE /oe /Scaron /scaron /Zcaron /zcaron\n /Ydieresis /trademark /bullet /dagger /daggerdbl /ellipsis /emdash\n /endash /fi /fl /florin /fraction /guilsinglleft /guilsinglright\n /perthousand /quotedblbase /quotedblleft /quotedblright\n /quotesinglbase /quotesingle /.notdef /.notdef /.notdef /space\n /exclam /quotedbl /numbersign /dollar /percent /ampersand\n /quoteright /parenleft /parenright /asterisk /plus /comma /minus\n /period /slash /zero /one /two /three /four /five /six /seven /eight\n /nine /colon /semicolon /less /equal /greater /question /at /A /B /C\n /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z\n /bracketleft /backslash /bracketright /asciicircum /underscore\n /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s\n /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde\n /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n /.notdef /.notdef /.notdef /dotlessi /grave /acute /circumflex\n /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla\n /.notdef /hungarumlaut /ogonek /caron /space /exclamdown /cent\n /sterling /currency /yen /brokenbar /section /dieresis /copyright\n /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron\n /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph\n /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright\n /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute\n /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute\n /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth\n /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply\n /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn\n /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring\n /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave\n /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute\n /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute\n /ucircumflex /udieresis /yacute /thorn /ydieresis\n] def\n"] 1 (#$ . 23115) nil]) #@28 Insert function /Heapsort. (defalias 'ps-mode-heapsort #[nil "\300c\207" ["\n% `array-element' Heapsort-cvi-or-cvr-or-cvs `number-or-string'\n/Heapsort-cvi-or-cvr-or-cvs {\n % 0 get\n} bind def\n% `array' Heapsort `sorted-array'\n/Heapsort {\n dup length /hsR exch def\n /hsL hsR 2 idiv 1 add def\n {\n hsR 2 lt { exit } if\n hsL 1 gt {\n /hsL hsL 1 sub def\n } {\n /hsR hsR 1 sub def\n dup dup dup 0 get exch dup hsR get\n 0 exch put\n hsR exch put\n } ifelse\n dup hsL 1 sub get /hsT exch def\n /hsJ hsL def\n {\n /hsS hsJ def\n /hsJ hsJ dup add def\n hsJ hsR gt { exit } if\n hsJ hsR lt {\n dup dup hsJ 1 sub get Heapsort-cvi-or-cvr-or-cvs\n exch hsJ get Heapsort-cvi-or-cvr-or-cvs\n lt { /hsJ hsJ 1 add def } if\n } if\n dup hsJ 1 sub get Heapsort-cvi-or-cvr-or-cvs\n hsT Heapsort-cvi-or-cvr-or-cvs\n le { exit } if\n dup dup hsS 1 sub exch hsJ 1 sub get put\n } loop\n dup hsS 1 sub hsT put\n } loop\n} bind def\n"] 1 (#$ . 25691) nil]) #@30 Insert sparse EPSF template. (defalias 'ps-mode-epsf-sparse #[nil "db\210\301\302\303\304#\204 db\210\305c\210db\210\301\306\303\304#\204# \301\307!\210\310c\210db\210\301\311\303\304#\2045 \301\312!\210\313c\210eb\210\314c\210\315\316@A@#c\210\317c\207" [ps-mode-paper-size re-search-backward "%%EOF[ \n]*\\'" nil t "\n%%EOF\n" "\\bshowpage[ \n]+%%EOF[ \n]*\\'" "%%EOF" "showpage\n" "\\bend[ \n]+\\bshowpage[ \n]+%%EOF[ \n]*\\'" "showpage" "\nend\n" "%!PS-Adobe-3.0 EPSF-3.0\n%%BoundingBox: 0 0 " format "%d %d\n\n" "64 dict begin\n\n"] 4 (#$ . 26916) nil]) #@28 Insert rich EPSF template. (defalias 'ps-mode-epsf-rich #[nil "\301 \210\302y\210\203 \303\304!\305\261\210\306\307 \305\261\210\310\311 \305\261\210\312c\210\313y\207" [buffer-file-name ps-mode-epsf-sparse -3 "%%Title: " file-name-nondirectory "\n" "%%Creator: " user-full-name "%%CreationDate: " current-time-string "%%EndComments\n" 3] 3 (#$ . 27490) nil]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list ps-run-mode-abbrev-table ps-run-mode-hook variable-documentation put "Hook run when entering Interactive PS mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp ps-run-mode-map definition-name ps-run-mode default-boundp set-default make-sparse-keymap ps-run-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@223 Major mode in interactive PostScript window. This mode is invoked from `ps-mode' and should not be called directly. \{ps-run-mode-map} This mode runs the hook `ps-run-mode-hook', as the final step during initialization. (defalias 'ps-run-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \306\315!\210\316 \317)\320\321!\207" [delay-mode-hooks major-mode mode-name ps-run-mode-map ps-run-mode-syntax-table ps-run-mode-abbrev-table make-local-variable t kill-all-local-variables ps-run-mode "Interactive PS" use-local-map set-syntax-table font-lock-defaults ((ps-run-font-lock-keywords ps-run-font-lock-keywords-1 ps-run-font-lock-keywords-2) t) (":%s") run-mode-hooks ps-run-mode-hook local-abbrev-table mode-line-process] 2 (#$ . 28614) nil]) #@54 Error if not in `ps-mode' or not running PostScript. (defalias 'ps-run-running #[nil "\301\232\204\n \302\303!\210\304\305!\306\232?\205 \302\307!\207" [major-mode ps-mode error "This function can only be called from PostScript mode" process-status "ps-run" run "No PostScript process running"] 2 (#$ . 29392)]) #@31 Start interactive PostScript. (defalias 'ps-run-start #[nil "\203 \206 \n\306\211\307 \211 \204 \310\311!\210 \203& \312 !\204* \313 \203> \314 \315 \316P\317 #\210 C\320\321!\210\322 \210\323\324!\203O \325\324!\210\326 \210\327 \" \330\331 \332#\316\261\210\333\334\324\321 $\210\335 !,\207" [window-system ps-run-x ps-run-dumb oldwin process-connection-type init-file nil selected-window error "No command specified to run interactive PostScript" markerp make-marker ps-run-make-tmp-filename write-region "\n" 0 pop-to-buffer "*ps run*" ps-run-mode process-status "ps-run" delete-process erase-buffer append mapconcat identity " " apply start-process select-window command ps-run-mark ps-run-init] 6 (#$ . 29712) nil]) #@30 Quit interactive PostScript. (defalias 'ps-run-quit #[nil "\300\301\302\"\210\303 \207" [ps-run-send-string "quit" t ps-run-cleanup] 3 (#$ . 30464) nil]) #@30 Kill interactive PostScript. (defalias 'ps-run-kill #[nil "\300\301!\210\302 \207" [delete-process "ps-run" ps-run-cleanup] 2 (#$ . 30624) nil]) #@34 Clear/reset PostScript graphics. (defalias 'ps-run-clear #[nil "\300\301\302\"\210\303\304!\210\300\305\302\"\207" [ps-run-send-string "showpage" t sit-for 1 ""] 3 (#$ . 30775) nil]) #@40 Send buffer to PostScript interpreter. (defalias 'ps-run-buffer #[nil "\300ed\"\207" [ps-run-region] 3 (#$ . 30964) nil]) #@40 Send region to PostScript interpreter. (defalias 'ps-run-region #[(begin end) "\305 \210\306 \307 \n \310\223\210\311 \f #\210\312\313\314 \"\315\")\207" [ps-run-parent f ps-run-mark begin end ps-run-running buffer-name ps-run-make-tmp-filename nil write-region ps-run-send-string format "(%s) run" t] 4 (#$ . 31092) "r"]) #@19 View BoundingBox. (defalias 'ps-run-boundingbox #[nil "\306 \210\307\211\211\211\211p \212\310b\210\311\312!\210\313\310!\313\314!\313\315!\313\316!)\317 !\317 !W\2048 \320\321 #\210\317\f!\317\n!W\204H \320\322\f\n#\210\323 \324\325\326 \f \f \n \n& \327 #\210\330\325\331 \"\332\"\210q.\207" [buf f y2 x2 y1 x1 ps-run-running nil 1 re-search-forward "^%%BoundingBox:[ ]+\\(-?[0-9]+\\)[ ]+\\(-?[0-9]+\\)[ ]+\\(-?[0-9]+\\)[ ]+\\(-?[0-9]+\\)" match-string 2 3 4 string-to-number error "x1 (%s) should be less than x2 (%s)" "y1 (%s) should be less than y2 (%s)" ps-run-make-tmp-filename write-region format "gsave\n initgraphics\n 2 setlinewidth\n %s %s moveto\n %s %s lineto\n %s %s lineto\n %s %s lineto\n closepath\n gsave\n [ 4 20 ] 0 setdash\n 1 0 0 setrgbcolor\n stroke\n grestore\n gsave\n [ 4 20 ] 8 setdash\n 0 1 0 setrgbcolor\n stroke\n grestore\n [ 4 20 ] 16 setdash\n 0 0 1 setrgbcolor\n stroke\ngrestore\n" 0 ps-run-send-string "(%s) run" t] 11 (#$ . 31423) nil]) (defalias 'ps-run-send-string #[(string &optional echo) "\303 \304\305!\210db\210 \203 \n\306\261\210\307\310\311!!`\312\223\210\313\311\n\306P\"\210\314!)\207" [oldwin echo string selected-window pop-to-buffer "*ps run*" "\n" process-mark get-process "ps-run" nil process-send-string select-window] 4]) (defalias 'ps-run-make-tmp-filename #[nil "\204 \206 \n\303\304!)\207" [ps-mode-tmp-file ps-run-tmp-dir temporary-file-directory make-temp-file "ps-run-"] 2]) (defalias 'ps-run-cleanup #[nil "\205 \302\303 !\205 \304 !)\207" [ps-mode-tmp-file i nil file-exists-p delete-file] 2]) #@58 Set point at mouse click, then call `ps-run-goto-error'. (defalias 'ps-run-mouse-goto-error #[(event) "\301!\210\302 \207" [event mouse-set-point ps-run-goto-error] 2 (#$ . 33106) "e"]) #@51 Process newline in PostScript interpreter window. (defalias 'ps-run-newline #[nil "\301\210\302c\210\303y\210\304!\203 \305\225b\210\304\306!\210\305\225Tb\210\307\305\224\305\225{!\207" [ps-run-prompt nil "\n" -1 looking-at 0 ".*" ps-run-send-string] 3 (#$ . 33299) nil]) #@110 Jump to buffer position read as integer at point. Use line numbers if `ps-run-error-line-numbers' is not nil (defalias 'ps-run-goto-error #[nil "`\305\306!\204 \307`S]b\210\305\306!\205J \307u\210\310v\210\305\311!\205J \312\313\314\224\314\225{!b\210\315\n!\210 \203C \316\f!b\210 Sy\210\312\202I \316\f!\\b))\207" [p i ps-run-parent ps-run-error-line-numbers ps-run-mark looking-at "[0-9]" 1 -1 "[0-9]+" nil string-to-number 0 pop-to-buffer marker-position] 3 (#$ . 33582) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook kill-emacs-hook ps-run-cleanup provide ps-mode] 3)
Close
