Mercurial > emacs
annotate lisp/progmodes/ps-mode.el @ 96515:ca675825c4ef
(gud-gdb-get-stackframe): Allow absolute
filenames in stack trace (text command mode).
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Sat, 05 Jul 2008 09:36:39 +0000 |
parents | 52b7a8c22af5 |
children | a9dc0e7c3f2b |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33965
diff
changeset
|
1 ;;; ps-mode.el --- PostScript mode for GNU Emacs |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
2 |
79717 | 3 ;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
64699
629afbe74e61
Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents:
64085
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
5 |
63574
545e1eb57222
Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
62402
diff
changeset
|
6 ;; Author: Peter Kleiweg <p.c.j.kleiweg@rug.nl> |
545e1eb57222
Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
62402
diff
changeset
|
7 ;; Maintainer: Peter Kleiweg <p.c.j.kleiweg@rug.nl> |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
8 ;; Created: 20 Aug 1997 |
63574
545e1eb57222
Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
62402
diff
changeset
|
9 ;; Version: 1.1h, 16 Jun 2005 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
10 ;; Keywords: PostScript, languages |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
11 |
94116
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
12 ;; Yoni Rabkin <yoni@rabkins.net> contacted the maintainer of this |
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
13 ;; file on 18/3/2008, and the maintainer agreed that when a bug is |
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
14 ;; filed in the Emacs bug reporting system against this file, a copy |
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
15 ;; of the bug report be sent to the maintainer's email address, but |
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
16 ;; only if: "... those e-mails have a link to the bug report system, |
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
17 ;; where I can cancel these e-mails if I want to.". |
842d446b22d9
Cleanup the bug-report email addresses and make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
18 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
19 ;; This file is part of GNU Emacs. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
20 |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94116
diff
changeset
|
21 ;; GNU Emacs is free software: you can redistribute it and/or modify |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
22 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94116
diff
changeset
|
23 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94116
diff
changeset
|
24 ;; (at your option) any later version. |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
25 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
26 ;; GNU Emacs is distributed in the hope that it will be useful, |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
27 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
28 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
29 ;; GNU General Public License for more details. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
30 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
31 ;; You should have received a copy of the GNU General Public License |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94116
diff
changeset
|
32 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
33 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
34 ;;; Commentary: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
35 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
36 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
37 ;;; Code: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
38 |
63574
545e1eb57222
Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
62402
diff
changeset
|
39 (defconst ps-mode-version "1.1h, 16 Jun 2005") |
545e1eb57222
Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
62402
diff
changeset
|
40 (defconst ps-mode-maintainer-address "Peter Kleiweg <p.c.j.kleiweg@rug.nl>") |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
41 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
42 (require 'easymenu) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
43 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
44 ;; Define core `PostScript' group. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
45 (defgroup PostScript nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
46 "PostScript mode for Emacs." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
47 :group 'languages) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
48 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
49 (defgroup PostScript-edit nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
50 "PostScript editing." |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
65584
diff
changeset
|
51 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
52 :prefix "ps-mode-" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
53 :group 'PostScript) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
54 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
55 (defgroup PostScript-interaction nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
56 "PostScript interaction." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
57 :prefix "ps-run-" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
58 :group 'PostScript) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
59 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
60 ;; User variables. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
61 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
62 (defcustom ps-mode-auto-indent t |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
63 "*Should we use autoindent?" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
64 :group 'PostScript-edit |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
65 :type 'boolean) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
66 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
67 (defcustom ps-mode-tab 4 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
68 "*Number of spaces to use when indenting." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
69 :group 'PostScript-edit |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
70 :type 'integer) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
71 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
72 (defcustom ps-mode-paper-size '(595 842) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
73 "*Default paper size. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
74 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
75 When inserting an EPSF template these values are used |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
76 to set the boundingbox to include the whole page. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
77 When the figure is finished these values should be replaced." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
78 :group 'PostScript-edit |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
79 :type '(choice |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
80 (const :tag "letter" (612 792)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
81 (const :tag "legal" (612 1008)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
82 (const :tag "a0" (2380 3368)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
83 (const :tag "a1" (1684 2380)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
84 (const :tag "a2" (1190 1684)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
85 (const :tag "a3" (842 1190)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
86 (const :tag "a4" (595 842)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
87 (const :tag "a5" (421 595)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
88 (const :tag "a6" (297 421)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
89 (const :tag "a7" (210 297)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
90 (const :tag "a8" (148 210)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
91 (const :tag "a9" (105 148)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
92 (const :tag "a10" (74 105)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
93 (const :tag "b0" (2836 4008)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
94 (const :tag "b1" (2004 2836)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
95 (const :tag "b2" (1418 2004)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
96 (const :tag "b3" (1002 1418)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
97 (const :tag "b4" (709 1002)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
98 (const :tag "b5" (501 709)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
99 (const :tag "archE" (2592 3456)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
100 (const :tag "archD" (1728 2592)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
101 (const :tag "archC" (1296 1728)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
102 (const :tag "archB" (864 1296)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
103 (const :tag "archA" (648 864)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
104 (const :tag "flsa" (612 936)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
105 (const :tag "flse" (612 936)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
106 (const :tag "halfletter" (396 612)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
107 (const :tag "11x17" (792 1224)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
108 (const :tag "tabloid" (792 1224)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
109 (const :tag "ledger" (1224 792)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
110 (const :tag "csheet" (1224 1584)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
111 (const :tag "dsheet" (1584 2448)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
112 (const :tag "esheet" (2448 3168)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
113 |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
114 (defcustom ps-mode-print-function |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
115 (lambda () |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
116 (let ((lpr-switches nil) |
87595
4c6c79916238
* configure.in: Remove references to unsupported systems.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87123
diff
changeset
|
117 (lpr-command (if (memq system-type '(usg-unix-v hpux irix)) |
26384
b23b59eb6a78
(ps-mode-print-function): Changed default
Gerd Moellmann <gerd@gnu.org>
parents:
26093
diff
changeset
|
118 "lp" "lpr"))) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
119 (lpr-buffer))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
120 "*Lisp function to print current buffer as PostScript." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
121 :group 'PostScript-edit |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
122 :type 'function) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
123 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
124 (defcustom ps-run-prompt "\\(GS\\(<[0-9]+\\)?>\\)+" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
125 "*Regexp to match prompt in interactive PostScript." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
126 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
127 :type 'regexp) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
128 |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
129 (defcustom ps-run-font-lock-keywords-2 |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
130 (append (unless (string= ps-run-prompt "") |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
131 (list (list (if (= ?^ (string-to-char ps-run-prompt)) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
132 ps-run-prompt |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
133 (concat "^" ps-run-prompt)) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
134 '(0 font-lock-function-name-face nil nil)))) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
135 '((">>showpage, press <return> to continue<<" |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
136 (0 font-lock-keyword-face nil nil)) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
137 ("^\\(Error\\|Can't\\).*" |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
138 (0 font-lock-warning-face nil nil)) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
139 ("^\\(Current file position is\\) \\([0-9]+\\)" |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
140 (1 font-lock-comment-face nil nil) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
141 (2 font-lock-warning-face nil nil)))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
142 "*Medium level highlighting of messages from the PostScript interpreter. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
143 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
144 See documentation on font-lock for details." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
145 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
146 :type '(repeat (list :tag "Expression with one or more highlighters" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
147 :value ("" (0 default nil t)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
148 (regexp :tag "Expression") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
149 (repeat :tag "Highlighters" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
150 :inline regexp |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
151 (list :tag "Highlighter" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
152 (integer :tag "Subexp") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
153 face |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
154 (boolean :tag "Override") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
155 (boolean :tag "Laxmatch" :value t)))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
156 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
157 (defcustom ps-run-x '("gs" "-r72" "-sPAPERSIZE=a4") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
158 "*Command as list to run PostScript with graphic display." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
159 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
160 :type '(repeat string)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
161 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
162 (defcustom ps-run-dumb '("gs" "-dNODISPLAY") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
163 "*Command as list to run PostScript without graphic display." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
164 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
165 :type '(repeat string)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
166 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
167 (defcustom ps-run-init nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
168 "*String of commands to send to PostScript to start interactive. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
169 |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
170 Example: \"executive\" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
171 |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
172 You won't need to set this option for Ghostscript." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
173 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
174 :type '(choice (const nil) string)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
175 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
176 (defcustom ps-run-error-line-numbers nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
177 "*What values are used by the PostScript interpreter in error messages?" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
178 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
179 :type '(choice (const :tag "line numbers" t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
180 (const :tag "byte counts" nil))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
181 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
182 (defcustom ps-run-tmp-dir nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
183 "*Name of directory to place temporary file. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
184 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
185 If nil, the following are tried in turn, until success: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
186 1. \"$TEMP\" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
187 2. \"$TMP\" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
188 3. \"$HOME/tmp\" |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
189 4. \"/tmp\"" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
190 :group 'PostScript-interaction |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
191 :type '(choice (const nil) directory)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
192 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
193 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
194 ;; Constants used for font-lock. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
195 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
196 ;; Only a small set of the PostScript operators is selected for fontification. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
197 ;; Fontification is meant to clarify the document structure and process flow, |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
198 ;; fontifying all known PostScript operators would hinder that objective. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
199 (defconst ps-mode-operators |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
200 (let ((ops '("clear" "mark" "cleartomark" "counttomark" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
201 "forall" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
202 "dict" "begin" "end" "def" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
203 "true" "false" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
204 "exec" "if" "ifelse" "for" "repeat" "loop" "exit" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
205 "stop" "stopped" "countexecstack" "execstack" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
206 "quit" "start" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
207 "save" "restore" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
208 "bind" "null" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
209 "gsave" "grestore" "grestoreall" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
210 "showpage"))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
211 (concat "\\<" (regexp-opt ops t) "\\>")) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
212 "Regexp of PostScript operators that will be fontified.") |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
213 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
214 ;; Level 1 font-lock: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
215 ;; - Special comments (reference face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
216 ;; - Strings and other comments |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
217 ;; - Partial strings (warning face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
218 ;; - 8bit characters (warning face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
219 ;; Multiline strings are not supported. Strings with nested brackets are. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
220 (defconst ps-mode-font-lock-keywords-1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
221 '(("\\`%!PS.*" . font-lock-reference-face) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
222 ("^%%BoundingBox:[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]*$" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
223 . font-lock-reference-face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
224 (ps-mode-match-string-or-comment |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
225 (1 font-lock-comment-face nil t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
226 (2 font-lock-string-face nil t)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
227 ("([^()\n%]*\\|[^()\n]*)" . font-lock-warning-face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
228 ("[\200-\377]+" (0 font-lock-warning-face prepend nil))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
229 "Subdued level highlighting for PostScript mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
230 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
231 ;; Level 2 font-lock: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
232 ;; - All from level 1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
233 ;; - PostScript operators (keyword face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
234 (defconst ps-mode-font-lock-keywords-2 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
235 (append |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
236 ps-mode-font-lock-keywords-1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
237 (list |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
238 (cons |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
239 ;; exclude names prepended by `/' |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
240 (concat "\\(^\\|[^/\n]\\)" ps-mode-operators) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
241 '(2 font-lock-keyword-face)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
242 "Medium level highlighting for PostScript mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
243 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
244 ;; Level 3 font-lock: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
245 ;; - All from level 2 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
246 ;; - Immediately evaluated names: those starting with `//' (type face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
247 ;; - Names that look like they are used for the definition of: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
248 ;; * a function |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
249 ;; * an array |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
250 ;; * a dictionary |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
251 ;; * a "global" variable |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
252 ;; (function name face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
253 ;; - Other names (variable name face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
254 ;; The rules used to determine what names fit in the first category are: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
255 ;; - Only names that are at the left margin, and one of these on the same line: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
256 ;; * Nothing after the name except possibly one or more `[' or a comment |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
257 ;; * A `{' or `<<' or `[0-9]+ dict' following the name |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
258 ;; * A `def' somewhere in the same line |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
259 ;; Names are fontified before PostScript operators, allowing the use of |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
260 ;; a more simple (efficient) regexp than the one used in level 2. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
261 (defconst ps-mode-font-lock-keywords-3 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
262 (append |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
263 ps-mode-font-lock-keywords-1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
264 (list |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
265 '("//\\w+" . font-lock-type-face) |
40901
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
266 `(,(concat |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
267 "^\\(/\\w+\\)\\>" |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
268 "\\([[ \t]*\\(%.*\\)?\r?$" ; Nothing but `[' or comment after the name. |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
269 "\\|[ \t]*\\({\\|<<\\)" ; `{' or `<<' following the name. |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
270 "\\|[ \t]+[0-9]+[ \t]+dict\\>" ; `[0-9]+ dict' following the name. |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
271 "\\|.*\\<def\\>\\)") ; `def' somewhere on the same line. |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
272 . (1 font-lock-function-name-face)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
273 '("/\\w+" . font-lock-variable-name-face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
274 (cons ps-mode-operators 'font-lock-keyword-face))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
275 "High level highliting for PostScript mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
276 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
277 (defconst ps-mode-font-lock-keywords ps-mode-font-lock-keywords-1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
278 "Default expressions to highlight in PostScript mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
279 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
280 ;; Level 1 font-lock for ps-run-mode |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
281 ;; - prompt (function name face) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
282 (defconst ps-run-font-lock-keywords-1 |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
283 (unless (string= "" ps-run-prompt) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
284 (list (cons (if (= ?^ (string-to-char ps-run-prompt)) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
285 ps-run-prompt |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
286 (concat "^" ps-run-prompt)) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
287 'font-lock-function-name-face))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
288 "Subdued level highlighting for PostScript run mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
289 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
290 (defconst ps-run-font-lock-keywords ps-run-font-lock-keywords-1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
291 "Default expressions to highlight in PostScript run mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
292 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
293 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
294 ;; Variables. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
295 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
296 (defvar ps-mode-map nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
297 "Local keymap to use in PostScript mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
298 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
299 (defvar ps-mode-syntax-table nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
300 "Syntax table used while in PostScript mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
301 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
302 (defvar ps-run-mode-map nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
303 "Local keymap to use in PostScript run mode.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
304 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
305 (defvar ps-mode-tmp-file nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
306 "Name of temporary file, set by `ps-run'.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
307 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
308 (defvar ps-run-mark nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
309 "Mark to start of region that was sent to PostScript interpreter.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
310 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
311 (defvar ps-run-parent nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
312 "Parent window of interactive PostScript.") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
313 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
314 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
315 ;; Menu |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
316 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
317 (defconst ps-mode-menu-main |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
318 '("PostScript" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
319 ["EPSF Template, Sparse" ps-mode-epsf-sparse t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
320 ["EPSF Template, Rich" ps-mode-epsf-rich t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
321 "---" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
322 ("Cookbook" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
323 ["RE" ps-mode-RE t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
324 ["ISOLatin1Extended" ps-mode-latin-extended t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
325 ["center" ps-mode-center t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
326 ["right" ps-mode-right t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
327 ["Heapsort" ps-mode-heapsort t]) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
328 ("Fonts (1)" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
329 ["Times-Roman" (insert "/Times-Roman ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
330 ["Times-Bold" (insert "/Times-Bold ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
331 ["Times-Italic" (insert "/Times-Italic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
332 ["Times-BoldItalic" (insert "/Times-BoldItalic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
333 ["Helvetica" (insert "/Helvetica ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
334 ["Helvetica-Bold" (insert "/Helvetica-Bold ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
335 ["Helvetica-Oblique" (insert "/Helvetica-Oblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
336 ["Helvetica-BoldOblique" (insert "/Helvetica-BoldOblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
337 ["Courier" (insert "/Courier ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
338 ["Courier-Bold" (insert "/Courier-Bold ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
339 ["Courier-Oblique" (insert "/Courier-Oblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
340 ["Courier-BoldOblique" (insert "/Courier-BoldOblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
341 ["Symbol" (insert "/Symbol") t ]) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
342 ("Fonts (2)" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
343 ["AvantGarde-Book" (insert "/AvantGarde-Book ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
344 ["AvantGarde-Demi" (insert "/AvantGarde-Demi ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
345 ["AvantGarde-BookOblique" (insert "/AvantGarde-BookOblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
346 ["AvantGarde-DemiOblique" (insert "/AvantGarde-DemiOblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
347 ["Bookman-Light" (insert "/Bookman-Light ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
348 ["Bookman-Demi" (insert "/Bookman-Demi ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
349 ["Bookman-LightItalic" (insert "/Bookman-LightItalic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
350 ["Bookman-DemiItalic" (insert "/Bookman-DemiItalic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
351 ["Helvetica-Narrow" (insert "/Helvetica-Narrow ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
352 ["Helvetica-Narrow-Bold" (insert "/Helvetica-Narrow-Bold ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
353 ["Helvetica-Narrow-Oblique" (insert "/Helvetica-Narrow-Oblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
354 ["Helvetica-Narrow-BoldOblique" (insert "/Helvetica-Narrow-BoldOblique ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
355 ["NewCenturySchlbk-Roman" (insert "/NewCenturySchlbk-Roman ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
356 ["NewCenturySchlbk-Bold" (insert "/NewCenturySchlbk-Bold ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
357 ["NewCenturySchlbk-Italic" (insert "/NewCenturySchlbk-Italic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
358 ["NewCenturySchlbk-BoldItalic" (insert "/NewCenturySchlbk-BoldItalic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
359 ["Palatino-Roman" (insert "/Palatino-Roman ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
360 ["Palatino-Bold" (insert "/Palatino-Bold ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
361 ["Palatino-Italic" (insert "/Palatino-Italic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
362 ["Palatino-BoldItalic" (insert "/Palatino-BoldItalic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
363 ["ZapfChancery-MediumItalic" (insert "/ZapfChancery-MediumItalic ") t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
364 ["ZapfDingbats" (insert "/ZapfDingbats ") t]) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
365 "---" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
366 ["Comment Out Region" ps-mode-comment-out-region (mark t)] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
367 ["Uncomment Region" ps-mode-uncomment-region (mark t)] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
368 "---" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
369 ["8-bit to Octal Buffer" ps-mode-octal-buffer t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
370 ["8-bit to Octal Region" ps-mode-octal-region (mark t)] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
371 "---" |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
372 ["Auto Indent" (setq ps-mode-auto-indent (not ps-mode-auto-indent)) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
373 :style toggle :selected ps-mode-auto-indent] |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
374 "---" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
375 ["Start PostScript" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
376 ps-run-start |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
377 t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
378 ["Quit PostScript" ps-run-quit (process-status "ps-run")] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
379 ["Kill PostScript" ps-run-kill (process-status "ps-run")] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
380 ["Send Buffer to Interpreter" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
381 ps-run-buffer |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
382 (process-status "ps-run")] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
383 ["Send Region to Interpreter" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
384 ps-run-region |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
385 (and (mark t) (process-status "ps-run"))] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
386 ["Send Newline to Interpreter" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
387 ps-mode-other-newline |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
388 (process-status "ps-run")] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
389 ["View BoundingBox" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
390 ps-run-boundingbox |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
391 (process-status "ps-run")] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
392 ["Clear/Reset PostScript Graphics" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
393 ps-run-clear |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
394 (process-status "ps-run")] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
395 "---" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
396 ["Print Buffer as PostScript" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
397 ps-mode-print-buffer |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
398 t] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
399 ["Print Region as PostScript" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
400 ps-mode-print-region |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
401 (mark t)] |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
402 "---" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
403 ["Customize for PostScript" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
404 (customize-group "PostScript") |
26402
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
405 t] |
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
406 "---" |
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
407 ["Submit Bug Report" |
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
408 ps-mode-submit-bug-report |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
409 t])) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
410 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
411 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
412 ;; Mode maps for PostScript edit mode and PostScript interaction mode. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
413 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
414 (unless ps-mode-map |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
415 (setq ps-mode-map (make-sparse-keymap)) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
416 (define-key ps-mode-map "\C-c\C-v" 'ps-run-boundingbox) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
417 (define-key ps-mode-map "\C-c\C-u" 'ps-mode-uncomment-region) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
418 (define-key ps-mode-map "\C-c\C-t" 'ps-mode-epsf-rich) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
419 (define-key ps-mode-map "\C-c\C-s" 'ps-run-start) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
420 (define-key ps-mode-map "\C-c\C-r" 'ps-run-region) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
421 (define-key ps-mode-map "\C-c\C-q" 'ps-run-quit) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
422 (define-key ps-mode-map "\C-c\C-p" 'ps-mode-print-buffer) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
423 (define-key ps-mode-map "\C-c\C-o" 'ps-mode-comment-out-region) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
424 (define-key ps-mode-map "\C-c\C-k" 'ps-run-kill) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
425 (define-key ps-mode-map "\C-c\C-j" 'ps-mode-other-newline) |
85666
2a7d60a28bcf
(ps-mode-map): Delete C-c v binding.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
426 (define-key ps-mode-map "\C-c\C-l" 'ps-run-clear) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
427 (define-key ps-mode-map "\C-c\C-b" 'ps-run-buffer) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
428 (define-key ps-mode-map ">" 'ps-mode-r-gt) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
429 (define-key ps-mode-map "]" 'ps-mode-r-angle) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
430 (define-key ps-mode-map "}" 'ps-mode-r-brace) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
431 (define-key ps-mode-map "\177" 'ps-mode-backward-delete-char) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
432 (define-key ps-mode-map "\t" 'ps-mode-tabkey) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
433 (define-key ps-mode-map "\r" 'ps-mode-newline) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
434 (define-key ps-mode-map [return] 'ps-mode-newline) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
435 (easy-menu-define ps-mode-main ps-mode-map "PostScript" ps-mode-menu-main)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
436 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
437 (unless ps-run-mode-map |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
438 (setq ps-run-mode-map (make-sparse-keymap)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
439 (define-key ps-run-mode-map "\C-c\C-q" 'ps-run-quit) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
440 (define-key ps-run-mode-map "\C-c\C-k" 'ps-run-kill) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
441 (define-key ps-run-mode-map "\C-c\C-e" 'ps-run-goto-error) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
442 (define-key ps-run-mode-map [mouse-2] 'ps-run-mouse-goto-error) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
443 (define-key ps-run-mode-map "\r" 'ps-run-newline) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
444 (define-key ps-run-mode-map [return] 'ps-run-newline)) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
445 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
446 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
447 ;; Syntax table. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
448 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
449 (unless ps-mode-syntax-table |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
450 (setq ps-mode-syntax-table (make-syntax-table)) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
451 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
452 (modify-syntax-entry ?\% "< " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
453 (modify-syntax-entry ?\n "> " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
454 (modify-syntax-entry ?\r "> " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
455 (modify-syntax-entry ?\f "> " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
456 (modify-syntax-entry ?\< "(>" ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
457 (modify-syntax-entry ?\> ")<" ps-mode-syntax-table) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
458 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
459 (modify-syntax-entry ?\! "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
460 (modify-syntax-entry ?\" "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
461 (modify-syntax-entry ?\# "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
462 (modify-syntax-entry ?\$ "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
463 (modify-syntax-entry ?\& "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
464 (modify-syntax-entry ?\' "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
465 (modify-syntax-entry ?\* "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
466 (modify-syntax-entry ?\+ "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
467 (modify-syntax-entry ?\, "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
468 (modify-syntax-entry ?\- "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
469 (modify-syntax-entry ?\. "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
470 (modify-syntax-entry ?\: "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
471 (modify-syntax-entry ?\; "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
472 (modify-syntax-entry ?\= "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
473 (modify-syntax-entry ?\? "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
474 (modify-syntax-entry ?\@ "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
475 (modify-syntax-entry ?\\ "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
476 (modify-syntax-entry ?^ "w " ps-mode-syntax-table) ; NOT: ?\^ |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
477 (modify-syntax-entry ?\_ "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
478 (modify-syntax-entry ?\` "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
479 (modify-syntax-entry ?\| "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
480 (modify-syntax-entry ?\~ "w " ps-mode-syntax-table) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
481 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
482 (let ((i 128)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
483 (while (< i 256) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
484 (modify-syntax-entry i "w " ps-mode-syntax-table) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
485 (setq i (1+ i))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
486 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
487 |
86247
fc93e9674475
* progmodes/python.el (info-lookup-maybe-add-help):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85785
diff
changeset
|
488 |
87123
d56e1ecaeed7
Remove directory part from filenames in function declarations.
Glenn Morris <rgm@gnu.org>
parents:
86247
diff
changeset
|
489 (declare-function doc-view-minor-mode "doc-view") |
86247
fc93e9674475
* progmodes/python.el (info-lookup-maybe-add-help):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85785
diff
changeset
|
490 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
491 ;; PostScript mode. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
492 |
51417
0910a521766a
(ps-mode): Use autoload cookie in the standard way.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
43684
diff
changeset
|
493 ;;;###autoload |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
494 (define-derived-mode ps-mode fundamental-mode "PostScript" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
495 "Major mode for editing PostScript with GNU Emacs. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
496 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
497 Entry to this mode calls `ps-mode-hook'. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
498 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
499 The following variables hold user options, and can |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
500 be set through the `customize' command: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
501 |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
502 `ps-mode-auto-indent' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
503 `ps-mode-tab' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
504 `ps-mode-paper-size' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
505 `ps-mode-print-function' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
506 `ps-run-prompt' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
507 `ps-run-font-lock-keywords-2' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
508 `ps-run-x' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
509 `ps-run-dumb' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
510 `ps-run-init' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
511 `ps-run-error-line-numbers' |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
512 `ps-run-tmp-dir' |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
513 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
514 Type \\[describe-variable] for documentation on these options. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
515 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
516 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
517 \\{ps-mode-map} |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
518 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
519 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
520 When starting an interactive PostScript process with \\[ps-run-start], |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
521 a second window will be displayed, and `ps-run-mode-hook' will be called. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
522 The keymap for this second window is: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
523 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
524 \\{ps-run-mode-map} |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
525 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
526 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
527 When Ghostscript encounters an error it displays an error message |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
528 with a file position. Clicking mouse-2 on this number will bring |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
529 point to the corresponding spot in the PostScript window, if input |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
530 to the interpreter was sent from that window. |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
531 Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect." |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
532 (set (make-local-variable 'font-lock-defaults) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
533 '((ps-mode-font-lock-keywords |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
534 ps-mode-font-lock-keywords-1 |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
535 ps-mode-font-lock-keywords-2 |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
536 ps-mode-font-lock-keywords-3) |
40901
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
537 t)) |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
538 (set (make-local-variable 'comment-start) "%") |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
539 ;; NOTE: `\' has a special meaning in strings only |
85785
c3e74b102623
Tassilo Horn <tassilo at member.fsf.org>
Glenn Morris <rgm@gnu.org>
parents:
85666
diff
changeset
|
540 (set (make-local-variable 'comment-start-skip) "%+[ \t]*") |
c3e74b102623
Tassilo Horn <tassilo at member.fsf.org>
Glenn Morris <rgm@gnu.org>
parents:
85666
diff
changeset
|
541 ;; enable doc-view-minor-mode => C-c C-c starts viewing the current ps file |
c3e74b102623
Tassilo Horn <tassilo at member.fsf.org>
Glenn Morris <rgm@gnu.org>
parents:
85666
diff
changeset
|
542 ;; with doc-view-mode. |
c3e74b102623
Tassilo Horn <tassilo at member.fsf.org>
Glenn Morris <rgm@gnu.org>
parents:
85666
diff
changeset
|
543 (doc-view-minor-mode 1)) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
544 |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
545 (defun ps-mode-show-version () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
546 "Show current version of PostScript mode." |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
547 (interactive) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
548 (message " *** PostScript Mode (ps-mode) Version %s *** " ps-mode-version)) |
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
549 |
26402
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
550 (defun ps-mode-submit-bug-report () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
551 "Submit via mail a bug report on PostScript mode." |
26402
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
552 (interactive) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
553 (when (y-or-n-p "Submit bug report on PostScript mode? ") |
26421
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
554 (let ((reporter-prompt-for-summary-p nil) |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
555 (reporter-dont-compact-list '(ps-mode-print-function |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
556 ps-run-font-lock-keywords-2))) |
26402
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
557 (reporter-submit-bug-report |
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
558 ps-mode-maintainer-address |
26421
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
559 (format "ps-mode.el %s [%s]" ps-mode-version system-type) |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
560 '(ps-mode-auto-indent |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
561 ps-mode-tab |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
562 ps-mode-paper-size |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
563 ps-mode-print-function |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
564 ps-run-prompt |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
565 ps-run-font-lock-keywords-2 |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
566 ps-run-x |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
567 ps-run-dumb |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
568 ps-run-init |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
569 ps-run-error-line-numbers |
a89f2624e1eb
(ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents:
26402
diff
changeset
|
570 ps-run-tmp-dir))))) |
26402
541f35936e05
(ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents:
26384
diff
changeset
|
571 |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
572 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
573 ;; Helper functions for font-lock. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
574 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
575 ;; When this function is called, point is at an opening bracket. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
576 ;; This function should test if point is at the start of a string |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
577 ;; with nested brackets. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
578 ;; If true: move point to end of string |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
579 ;; set string to match data nr 2 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
580 ;; return new point |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
581 ;; If false: return nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
582 (defun ps-mode-looking-at-nested (limit) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
583 (let ((first (point)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
584 (level 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
585 pos) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
586 ;; Move past opening bracket. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
587 (forward-char 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
588 (setq pos (point)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
589 (while (and (> level 0) (< pos limit)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
590 ;; Search next bracket, stepping over escaped brackets. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
591 (if (not (looking-at "\\([^()\\\n]\\|\\\\.\\)*\\([()]\\)")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
592 (setq level -1) |
40901
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
593 (setq level (+ level (if (string= "(" (match-string 2)) 1 -1))) |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
594 (goto-char (setq pos (match-end 0))))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
595 (if (not (= level 0)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
596 nil |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
597 ;; Found string with nested brackets, now set match data nr 2. |
40901
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
598 (set-match-data (list first pos nil nil first pos)) |
f2a856e8a39c
(ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents:
40321
diff
changeset
|
599 pos))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
600 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
601 ;; This function should search for a string or comment |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
602 ;; If comment, return as match data nr 1 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
603 ;; If string, return as match data nr 2 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
604 (defun ps-mode-match-string-or-comment (limit) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
605 ;; Find the first potential match. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
606 (if (not (re-search-forward "[%(]" limit t)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
607 ;; Nothing found: return failure. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
608 nil |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
609 (let ((end (match-end 0))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
610 (goto-char (match-beginning 0)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
611 (cond ((looking-at "\\(%.*\\)\\|\\((\\([^()\\\n]\\|\\\\.\\)*)\\)") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
612 ;; It's a comment or string without nested, unescaped brackets. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
613 (goto-char (match-end 0)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
614 (point)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
615 ((ps-mode-looking-at-nested limit) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
616 ;; It's a string with nested brackets. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
617 (point)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
618 (t |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
619 ;; Try next match. |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
620 (goto-char end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
621 (ps-mode-match-string-or-comment limit)))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
622 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
623 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
624 ;; Key-handlers. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
625 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
626 (defun ps-mode-target-column () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
627 "To what column should text on current line be indented? |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
628 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
629 Identation is increased if the last token on the current line |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
630 defines the beginning of a group. These tokens are: { [ <<" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
631 (save-excursion |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
632 (beginning-of-line) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
633 (if (looking-at "[ \t]*\\(}\\|\\]\\|>>\\)") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
634 (condition-case err |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
635 (progn |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
636 (goto-char (match-end 0)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
637 (backward-sexp 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
638 (beginning-of-line) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
639 (if (looking-at "[ \t]+") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
640 (goto-char (match-end 0))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
641 (current-column)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
642 (error |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
643 (ding) |
65584
6dbba0bd58df
Message format fixes, commit no. 3
Deepak Goel <deego@gnufans.org>
parents:
64699
diff
changeset
|
644 (message "%s" (error-message-string err)) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
645 0)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
646 (let (target) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
647 (if (not (re-search-backward "[^ \t\n\r\f][ \t\n\r\f]*\\=" nil t)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
648 0 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
649 (goto-char (match-beginning 0)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
650 (beginning-of-line) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
651 (if (looking-at "[ \t]+") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
652 (goto-char (match-end 0))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
653 (setq target (current-column)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
654 (end-of-line) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
655 (if (re-search-backward "\\({\\|\\[\\|<<\\)[ \t]*\\(%[^\n]*\\)?\\=" nil t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
656 (setq target (+ target ps-mode-tab))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
657 target))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
658 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
659 (defun ps-mode-newline () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
660 "Insert newline with proper indentation." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
661 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
662 (delete-horizontal-space) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
663 (insert "\n") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
664 (if ps-mode-auto-indent |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
665 (indent-to (ps-mode-target-column)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
666 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
667 (defun ps-mode-tabkey () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
668 "Indent/reindent current line, or insert tab." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
669 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
670 (let ((column (current-column)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
671 target) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
672 (if (or (not ps-mode-auto-indent) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
673 (< ps-mode-tab 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
674 (not (re-search-backward "^[ \t]*\\=" nil t))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
675 (insert "\t") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
676 (setq target (ps-mode-target-column)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
677 (while (<= target column) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
678 (setq target (+ target ps-mode-tab))) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
679 (indent-line-to target)))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
680 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
681 (defun ps-mode-backward-delete-char () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
682 "Delete backward indentation, or delete backward character." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
683 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
684 (let ((column (current-column)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
685 target) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
686 (if (or (not ps-mode-auto-indent) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
687 (< ps-mode-tab 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
688 (not (re-search-backward "^[ \t]+\\=" nil t))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
689 (delete-backward-char 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
690 (setq target (ps-mode-target-column)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
691 (while (> column target) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
692 (setq target (+ target ps-mode-tab))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
693 (while (>= target column) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
694 (setq target (- target ps-mode-tab))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
695 (if (< target 0) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
696 (setq target 0)) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
697 (indent-line-to target)))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
698 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
699 (defun ps-mode-r-brace () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
700 "Insert `}' and perform balance." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
701 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
702 (insert "}") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
703 (ps-mode-r-balance "}")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
704 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
705 (defun ps-mode-r-angle () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
706 "Insert `]' and perform balance." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
707 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
708 (insert "]") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
709 (ps-mode-r-balance "]")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
710 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
711 (defun ps-mode-r-gt () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
712 "Insert `>' and perform balance." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
713 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
714 (insert ">") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
715 (ps-mode-r-balance ">>")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
716 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
717 (defun ps-mode-r-balance (right) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
718 "Adjust indentification if point after RIGHT." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
719 (if ps-mode-auto-indent |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
720 (save-excursion |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
721 (when (re-search-backward (concat "^[ \t]*" (regexp-quote right) "\\=") nil t) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
722 (indent-line-to (ps-mode-target-column))))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
723 (blink-matching-open)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
724 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
725 (defun ps-mode-other-newline () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
726 "Perform newline in `*ps run*' buffer." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
727 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
728 (let ((buf (current-buffer))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
729 (set-buffer "*ps run*") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
730 (ps-run-newline) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
731 (set-buffer buf))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
732 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
733 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
734 ;; Print PostScript. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
735 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
736 (defun ps-mode-print-buffer () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
737 "Print buffer as PostScript." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
738 (interactive) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
739 (funcall ps-mode-print-function)) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
740 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
741 (defun ps-mode-print-region (begin end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
742 "Print region as PostScript, adding minimal header and footer lines: |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
743 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
744 %!PS |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
745 <region> |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
746 showpage" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
747 (interactive "r") |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
748 (let ((buf (current-buffer))) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
749 (with-temp-buffer |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
750 (insert "%!PS\n") |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
751 (insert-buffer-substring buf begin end) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
752 (insert "\nshowpage\n") |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
753 (funcall ps-mode-print-function)))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
754 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
755 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
756 ;; Comment Out / Uncomment. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
757 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
758 (defun ps-mode-comment-out-region (begin end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
759 "Comment out region." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
760 (interactive "r") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
761 (let ((endm (make-marker))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
762 (set-marker endm end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
763 (save-excursion |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
764 (goto-char begin) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
765 (if (= (current-column) 0) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
766 (insert "%")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
767 (while (and (= (forward-line) 0) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
768 (< (point) (marker-position endm))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
769 (insert "%"))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
770 (set-marker endm nil))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
771 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
772 (defun ps-mode-uncomment-region (begin end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
773 "Uncomment region. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
774 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
775 Only one `%' is removed, and it has to be in the first column." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
776 (interactive "r") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
777 (let ((endm (make-marker))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
778 (set-marker endm end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
779 (save-excursion |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
780 (goto-char begin) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
781 (if (looking-at "^%") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
782 (delete-char 1)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
783 (while (and (= (forward-line) 0) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
784 (< (point) (marker-position endm))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
785 (if (looking-at "%") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
786 (delete-char 1)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
787 (set-marker endm nil))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
788 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
789 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
790 ;; Convert 8-bit to octal codes. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
791 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
792 (defun ps-mode-octal-buffer () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
793 "Change 8-bit characters to octal codes in buffer." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
794 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
795 (ps-mode-octal-region (point-min) (point-max))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
796 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
797 (defun ps-mode-octal-region (begin end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
798 "Change 8-bit characters to octal codes in region." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
799 (interactive "r") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
800 (if buffer-read-only |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
801 (progn |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
802 (ding) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
803 (message "Buffer is read only")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
804 (save-excursion |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
805 (let (endm i) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
806 (setq endm (make-marker)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
807 (set-marker endm end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
808 (goto-char begin) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
809 (setq i 0) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
810 (while (re-search-forward "[\200-\377]" (marker-position endm) t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
811 (setq i (1+ i)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
812 (backward-char) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
813 (insert (format "\\%03o" (string-to-char (buffer-substring (point) (1+ (point)))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
814 (delete-char 1)) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
815 (message "%d change%s made" i (if (= i 1) "" "s")) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
816 (set-marker endm nil))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
817 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
818 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
819 ;; Cookbook. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
820 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
821 (defun ps-mode-center () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
822 "Insert function /center." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
823 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
824 (insert " |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
825 /center { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
826 dup stringwidth |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
827 exch 2 div neg |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
828 exch 2 div neg |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
829 rmoveto |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
830 } bind def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
831 ")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
832 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
833 (defun ps-mode-right () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
834 "Insert function /right." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
835 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
836 (insert " |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
837 /right { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
838 dup stringwidth |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
839 exch neg |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
840 exch neg |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
841 rmoveto |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
842 } bind def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
843 ")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
844 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
845 (defun ps-mode-RE () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
846 "Insert function /RE." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
847 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
848 (insert " |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
849 % `new-font-name' `encoding-vector' `old-font-name' RE - |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
850 /RE { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
851 findfont |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
852 dup maxlength dict begin { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
853 1 index /FID ne { def } { pop pop } ifelse |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
854 } forall |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
855 /Encoding exch def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
856 dup /FontName exch def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
857 currentdict end definefont pop |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
858 } bind def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
859 ")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
860 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
861 (defun ps-mode-latin-extended () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
862 "Insert array /ISOLatin1Extended. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
863 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
864 This encoding vector contains all the entries from ISOLatin1Encoding |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
865 plus the usually uncoded characters inserted on positions 1 through 28." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
866 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
867 (insert " |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
868 % ISOLatin1Encoding, extended with remaining uncoded glyphs |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
869 /ISOLatin1Extended [ |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
870 /.notdef /Lslash /lslash /OE /oe /Scaron /scaron /Zcaron /zcaron |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
871 /Ydieresis /trademark /bullet /dagger /daggerdbl /ellipsis /emdash |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
872 /endash /fi /fl /florin /fraction /guilsinglleft /guilsinglright |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
873 /perthousand /quotedblbase /quotedblleft /quotedblright |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
874 /quotesinglbase /quotesingle /.notdef /.notdef /.notdef /space |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
875 /exclam /quotedbl /numbersign /dollar /percent /ampersand |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
876 /quoteright /parenleft /parenright /asterisk /plus /comma /minus |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
877 /period /slash /zero /one /two /three /four /five /six /seven /eight |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
878 /nine /colon /semicolon /less /equal /greater /question /at /A /B /C |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
879 /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
880 /bracketleft /backslash /bracketright /asciicircum /underscore |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
881 /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
882 /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
883 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
884 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
885 /.notdef /.notdef /.notdef /dotlessi /grave /acute /circumflex |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
886 /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
887 /.notdef /hungarumlaut /ogonek /caron /space /exclamdown /cent |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
888 /sterling /currency /yen /brokenbar /section /dieresis /copyright |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
889 /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
890 /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
891 /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
892 /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
893 /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
894 /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
895 /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
896 /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
897 /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
898 /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
899 /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
900 /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
901 /ucircumflex /udieresis /yacute /thorn /ydieresis |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
902 ] def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
903 ")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
904 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
905 (defun ps-mode-heapsort () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
906 "Insert function /Heapsort." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
907 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
908 (insert " |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
909 % `array-element' Heapsort-cvi-or-cvr-or-cvs `number-or-string' |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
910 /Heapsort-cvi-or-cvr-or-cvs { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
911 % 0 get |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
912 } bind def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
913 % `array' Heapsort `sorted-array' |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
914 /Heapsort { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
915 dup length /hsR exch def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
916 /hsL hsR 2 idiv 1 add def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
917 { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
918 hsR 2 lt { exit } if |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
919 hsL 1 gt { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
920 /hsL hsL 1 sub def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
921 } { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
922 /hsR hsR 1 sub def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
923 dup dup dup 0 get exch dup hsR get |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
924 0 exch put |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
925 hsR exch put |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
926 } ifelse |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
927 dup hsL 1 sub get /hsT exch def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
928 /hsJ hsL def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
929 { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
930 /hsS hsJ def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
931 /hsJ hsJ dup add def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
932 hsJ hsR gt { exit } if |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
933 hsJ hsR lt { |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
934 dup dup hsJ 1 sub get Heapsort-cvi-or-cvr-or-cvs |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
935 exch hsJ get Heapsort-cvi-or-cvr-or-cvs |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
936 lt { /hsJ hsJ 1 add def } if |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
937 } if |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
938 dup hsJ 1 sub get Heapsort-cvi-or-cvr-or-cvs |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
939 hsT Heapsort-cvi-or-cvr-or-cvs |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
940 le { exit } if |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
941 dup dup hsS 1 sub exch hsJ 1 sub get put |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
942 } loop |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
943 dup hsS 1 sub hsT put |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
944 } loop |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
945 } bind def |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
946 ")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
947 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
948 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
949 ;; EPSF document lay-out. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
950 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
951 (defun ps-mode-epsf-sparse () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
952 "Insert sparse EPSF template." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
953 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
954 (goto-char (point-max)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
955 (unless (re-search-backward "%%EOF[ \t\n]*\\'" nil t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
956 (goto-char (point-max)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
957 (insert "\n%%EOF\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
958 (goto-char (point-max)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
959 (unless (re-search-backward "\\bshowpage[ \t\n]+%%EOF[ \t\n]*\\'" nil t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
960 (re-search-backward "%%EOF") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
961 (insert "showpage\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
962 (goto-char (point-max)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
963 (unless (re-search-backward "\\bend[ \t\n]+\\bshowpage[ \t\n]+%%EOF[ \t\n]*\\'" nil t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
964 (re-search-backward "showpage") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
965 (insert "\nend\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
966 (goto-char (point-min)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
967 (insert "%!PS-Adobe-3.0 EPSF-3.0\n%%BoundingBox: 0 0 ") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
968 (insert (format "%d %d\n\n" |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
969 (car ps-mode-paper-size) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
970 (car (cdr ps-mode-paper-size)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
971 (insert "64 dict begin\n\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
972 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
973 (defun ps-mode-epsf-rich () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
974 "Insert rich EPSF template." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
975 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
976 (ps-mode-epsf-sparse) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
977 (forward-line -3) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
978 (when buffer-file-name |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
979 (insert "%%Title: " (file-name-nondirectory buffer-file-name) "\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
980 (insert "%%Creator: " (user-full-name) "\n") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
981 (insert "%%CreationDate: " (current-time-string) "\n") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
982 (insert "%%EndComments\n") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
983 (forward-line 3)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
984 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
985 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
986 ;; Interactive PostScript interpreter. |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
987 |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
988 (define-derived-mode ps-run-mode fundamental-mode "Interactive PS" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
989 "Major mode in interactive PostScript window. |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
990 This mode is invoked from `ps-mode' and should not be called directly. |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
991 |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
992 \\{ps-run-mode-map}" |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
993 (set (make-local-variable 'font-lock-defaults) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
994 '((ps-run-font-lock-keywords |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
995 ps-run-font-lock-keywords-1 |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
996 ps-run-font-lock-keywords-2) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
997 t)) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
998 (setq mode-line-process '(":%s"))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
999 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1000 (defun ps-run-running () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1001 "Error if not in `ps-mode' or not running PostScript." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1002 (unless (equal major-mode 'ps-mode) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1003 (error "This function can only be called from PostScript mode")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1004 (unless (equal (process-status "ps-run") 'run) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1005 (error "No PostScript process running"))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1006 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1007 (defun ps-run-start () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1008 "Start interactive PostScript." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1009 (interactive) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1010 (let ((command (or (and window-system ps-run-x) ps-run-dumb)) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1011 (init-file nil) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1012 (process-connection-type nil) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1013 (oldwin (selected-window))) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1014 (unless command |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1015 (error "No command specified to run interactive PostScript")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1016 (unless (and ps-run-mark (markerp ps-run-mark)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1017 (setq ps-run-mark (make-marker))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1018 (when ps-run-init |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1019 (setq init-file (ps-run-make-tmp-filename)) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
1020 (write-region (concat ps-run-init "\n") 0 init-file) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1021 (setq init-file (list init-file))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1022 (pop-to-buffer "*ps run*") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1023 (ps-run-mode) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1024 (when (process-status "ps-run") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1025 (delete-process "ps-run")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1026 (erase-buffer) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1027 (setq command (append command init-file)) |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1028 (insert (mapconcat 'identity command " ") "\n") |
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1029 (apply 'start-process "ps-run" "*ps run*" command) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1030 (select-window oldwin))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1031 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1032 (defun ps-run-quit () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1033 "Quit interactive PostScript." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1034 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1035 (ps-run-send-string "quit" t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1036 (ps-run-cleanup)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1037 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1038 (defun ps-run-kill () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1039 "Kill interactive PostScript." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1040 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1041 (delete-process "ps-run") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1042 (ps-run-cleanup)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1043 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1044 (defun ps-run-clear () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1045 "Clear/reset PostScript graphics." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1046 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1047 (ps-run-send-string "showpage" t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1048 (sit-for 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1049 (ps-run-send-string "" t)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1050 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1051 (defun ps-run-buffer () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1052 "Send buffer to PostScript interpreter." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1053 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1054 (ps-run-region (point-min) (point-max))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1055 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1056 (defun ps-run-region (begin end) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1057 "Send region to PostScript interpreter." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1058 (interactive "r") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1059 (ps-run-running) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1060 (setq ps-run-parent (buffer-name)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1061 (let ((f (ps-run-make-tmp-filename))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1062 (set-marker ps-run-mark begin) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1063 (write-region begin end f) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1064 (ps-run-send-string (format "(%s) run" f) t))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1065 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1066 (defun ps-run-boundingbox () |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1067 "View BoundingBox." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1068 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1069 (ps-run-running) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1070 (let (x1 y1 x2 y2 f |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1071 (buf (current-buffer))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1072 (save-excursion |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1073 (goto-char 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1074 (re-search-forward |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1075 "^%%BoundingBox:[ \t]+\\(-?[0-9]+\\)[ \t]+\\(-?[0-9]+\\)[ \t]+\\(-?[0-9]+\\)[ \t]+\\(-?[0-9]+\\)") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1076 (setq x1 (match-string 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1077 y1 (match-string 2) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1078 x2 (match-string 3) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1079 y2 (match-string 4))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1080 (unless (< (string-to-number x1) (string-to-number x2)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1081 (error "x1 (%s) should be less than x2 (%s)" x1 x2)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1082 (unless (< (string-to-number y1) (string-to-number y2)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1083 (error "y1 (%s) should be less than y2 (%s)" y1 y2)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1084 (setq f (ps-run-make-tmp-filename)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1085 (write-region |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1086 (format |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1087 "gsave |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1088 initgraphics |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1089 2 setlinewidth |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1090 %s %s moveto |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1091 %s %s lineto |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1092 %s %s lineto |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1093 %s %s lineto |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1094 closepath |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1095 gsave |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1096 [ 4 20 ] 0 setdash |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1097 1 0 0 setrgbcolor |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1098 stroke |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1099 grestore |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1100 gsave |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1101 [ 4 20 ] 8 setdash |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1102 0 1 0 setrgbcolor |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1103 stroke |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1104 grestore |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1105 [ 4 20 ] 16 setdash |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1106 0 0 1 setrgbcolor |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1107 stroke |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1108 grestore |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1109 " x1 y1 x2 y1 x2 y2 x1 y2) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1110 0 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1111 f) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1112 (ps-run-send-string (format "(%s) run" f) t) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1113 (set-buffer buf))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1114 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1115 (defun ps-run-send-string (string &optional echo) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1116 (let ((oldwin (selected-window))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1117 (pop-to-buffer "*ps run*") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1118 (goto-char (point-max)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1119 (when echo |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1120 (insert string "\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1121 (set-marker (process-mark (get-process "ps-run")) (point)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1122 (process-send-string "ps-run" (concat string "\n")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1123 (select-window oldwin))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1124 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1125 (defun ps-run-make-tmp-filename () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1126 (unless ps-mode-tmp-file |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1127 (cond (ps-run-tmp-dir) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1128 ((setq ps-run-tmp-dir (getenv "TEMP"))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1129 ((setq ps-run-tmp-dir (getenv "TMP"))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1130 ((setq ps-run-tmp-dir (getenv "HOME")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1131 (setq |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1132 ps-run-tmp-dir |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1133 (concat (file-name-as-directory ps-run-tmp-dir) "tmp")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1134 (unless (file-directory-p ps-run-tmp-dir) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1135 (setq ps-run-tmp-dir nil)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1136 (unless ps-run-tmp-dir |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1137 (setq ps-run-tmp-dir "/tmp")) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1138 (setq ps-mode-tmp-file |
43684
4111d9e8065d
(ps-run-make-tmp-filename): Use make-temp-file.
Richard M. Stallman <rms@gnu.org>
parents:
40901
diff
changeset
|
1139 (make-temp-file |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1140 (concat |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1141 (if ps-run-tmp-dir |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1142 (file-name-as-directory ps-run-tmp-dir) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1143 "") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1144 "ps-run-")))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1145 ps-mode-tmp-file) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1146 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1147 ;; Remove temporary file |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1148 ;; This shouldn't fail twice, because it is called at kill-emacs |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1149 (defun ps-run-cleanup () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1150 (when ps-mode-tmp-file |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1151 (let ((i ps-mode-tmp-file)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1152 (setq ps-mode-tmp-file nil) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1153 (when (file-exists-p i) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1154 (delete-file i))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1155 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1156 (defun ps-run-mouse-goto-error (event) |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1157 "Set point at mouse click, then call `ps-run-goto-error'." |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1158 (interactive "e") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1159 (mouse-set-point event) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1160 (ps-run-goto-error)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1161 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1162 (defun ps-run-newline () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1163 "Process newline in PostScript interpreter window." |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1164 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1165 (end-of-line) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1166 (insert "\n") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1167 (forward-line -1) |
26093
6b9477637c7c
(ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents:
25990
diff
changeset
|
1168 (when (looking-at ps-run-prompt) |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1169 (goto-char (match-end 0))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1170 (looking-at ".*") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1171 (goto-char (1+ (match-end 0))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1172 (ps-run-send-string (buffer-substring (match-beginning 0) (match-end 0)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1173 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1174 (defun ps-run-goto-error () |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1175 "Jump to buffer position read as integer at point. |
40321
bdb409454d22
(ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
1176 Use line numbers if `ps-run-error-line-numbers' is not nil" |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1177 (interactive) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1178 (let ((p (point))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1179 (unless (looking-at "[0-9]") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1180 (goto-char (max 1 (1- (point))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1181 (when (looking-at "[0-9]") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1182 (forward-char 1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1183 (forward-word -1) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1184 (when (looking-at "[0-9]+") |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1185 (let (i) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1186 (setq |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1187 i |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
52401
diff
changeset
|
1188 (string-to-number |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1189 (buffer-substring (match-beginning 0) (match-end 0)))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1190 (goto-char p) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1191 (pop-to-buffer ps-run-parent) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1192 (if ps-run-error-line-numbers |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1193 (progn |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1194 (goto-char (marker-position ps-run-mark)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1195 (forward-line (1- i)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1196 (end-of-line)) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1197 (goto-char (+ i (marker-position ps-run-mark))))))))) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1198 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1199 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1200 ;; |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1201 (add-hook 'kill-emacs-hook 'ps-run-cleanup) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1202 |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1203 (provide 'ps-mode) |
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1204 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
1205 ;; arch-tag: dce13d2d-69fb-4ec4-9d5d-6dd29c3f0e6e |
25990
2b2b161bac67
New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1206 ;;; ps-mode.el ends here |