lisp/progmodes/meta-mode.el

10 ;; This file is part of GNU Emacs.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
35 ;; of font-lock patterns, a fancy indentation function adapted from
37 ;; such as functions to move to the beginning or end of the enclosing
40 ;; running Metafont or MetaPost in a shell buffer form within Emacs,
41 ;; but such functionality might be added later, either as part of this
56 ;; The add-on package loaded this way may in turn make use of the
72 ;; If you are using an older version of Emacs, which doesn't provide
88 ;; regexps controlling e.g. the behavior of the indentation function,
98 ;; As of this version 1.0, this package will be uploaded to CTAN
106 ;; v 0.1 -- 1997/02/02  UV  Added preliminary set of font-lock patterns.
126 ;; the genesis of TeX took place according to Don Knuth's own account
127 ;; (cf. ``The Errors of TeX'', reprinted in ``Literate Programming'',
231          ;; special case of arguments: expr x of y
233                        "[ \t]+\\(of\\)[ \t]+\\(\\sw+\\)")
262   ;; The expected syntax of an item is either "word" or "symbol",
265   ;; `forward-sexp'.  The list of items is expected to be separated
272               ;; Restrict to end of line, currently guaranteed to be LIMIT.
286 ;; The data used to prepare the following lists of primitives and
309     "nullpen" "nullpicture" "numeric" "oct" "odd" "of" "or" "outer"
325   "List of primitives common to Metafont and MetaPost.")
333   "List of primitives only defined in Metafont.")
343   "List of primitives only defined in MetaPost.")
358   "List of macros common to plain Metafont and MetaPost.")
378   "List of macros only defined in plain Metafont.")
385   "List of macros only defined in plain MetaPost.")
392   "List of macros only defined in MetaPost \"graph\" package.")
397   "List of macros only defined in MetaPost \"boxes\" package.")
405   "List of known symbols to complete in Metafont mode.")
414   "List of known symbols to complete in MetaPost mode.")
418   "List of known symbols to complete in Metafont or MetaPost mode.")
426   "List of ways to perform completion in Metafont or MetaPost mode.
431 3. A function returning an alist of possible completions.
440   "Add entries to list of known symbols in Metafont or MetaPost mode."
447   "Return value of list of known symbols in Metafont or MetaPost mode.
453     ;; sort list of symbols
492                (begin (match-beginning sub))
494                (pattern (meta-match-buffer 0))
495                (symbol (buffer-substring begin end))
514                    (with-output-to-temp-buffer "*Completions*"
528 (defun meta-match-buffer (n)
530   (if (match-beginning n)
531       (let ((str (buffer-substring (match-beginning n) (match-end n))))
542   "*Indentation of begin-end blocks in Metafont or MetaPost mode."
568   "*Regexp matching the beginning of environments to be indented."
575   "*Regexp matching the end of environments to be indented."
602           (let ((beg (progn (beginning-of-line) (point)))
610   "Return the indentation of current line of Metafont or MetaPost source."
626      ;; Backindent at end of environments.
637   "Return the indentation of previous line of Metafont or MetaPost source."
652             ;; Compensate for backindent at end of environments.
674             (goto-char (match-beginning 0))
676              ;; Count number of begin-end keywords within line.
683              ;; Count number of open-close parentheses within line.
699   "*Regexp matching beginning of defuns in Metafont or MetaPost mode."
705   "*Regexp matching the end of defuns in Metafont or MetaPost mode."
710 (defun meta-beginning-of-defun (&optional arg)
711   "Move backward to beginnning of a defun in Metafont or MetaPost code.
713 Negative arg -N means move forward to Nth following beginning of defun.
714 Returns t unless search stops due to beginning or end of buffer."
720        (progn (goto-char (match-beginning 0))
724 (defun meta-end-of-defun (&optional arg)
725   "Move forward to end of a defun in Metafont or MetaPost code.
727 Negative argument -N means move back to Nth preceding end of defun.
728 Returns t unless search stops due to beginning or end of buffer."
756     (let* ((end (if (meta-end-of-defun) (point) (point-max)))
757            (beg (if (meta-beginning-of-defun) (point) (point-min))))
771 (defun meta-indent-buffer ()
772   "Indent the whole buffer contents as Metafont or MetaPost source."
782     (let* ((end (if (meta-end-of-defun) (point) (point-max)))
783            (beg (if (meta-beginning-of-defun) (point) (point-min))))
788   "Put mark at end of the environment, point at the beginning.
792   (meta-end-of-defun)
794   (meta-beginning-of-defun))
857   (define-key meta-mode-map "\M-\C-a"   'meta-beginning-of-defun)
858   (define-key meta-mode-map "\M-\C-e"   'meta-end-of-defun)
864   (define-key meta-mode-map "\C-c\C-qb" 'meta-indent-buffer)
882        ["Forward Environment"           meta-beginning-of-defun t]
883        ["Backward Environment"          meta-end-of-defun t]
889        ["Indent Buffer"                 meta-indent-buffer t]
902 ;      ["Recenter Output Buffer"        meta-recenter-output-buffer t]
907   "Return whether the mark and region are currently active in this buffer."
993 Turning on Metafont mode calls the value of the variables
1018 Turning on MetaPost mode calls the value of the variable