/[emacs]/emacs/lisp/progmodes/meta-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/meta-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.7 by lektu, Tue Feb 4 13:24:35 2003 UTC
# Line 41  Line 41 
41  ;; package or as a separate Emacs Lisp package.  ;; package or as a separate Emacs Lisp package.
42    
43  ;; Installation:  ;; Installation:
44  ;;  ;;
45  ;; An interface to running Metafont or MetaPost as a shell process  ;; An interface to running Metafont or MetaPost as a shell process
46  ;; from within Emacs is currently under development as a separate  ;; from within Emacs is currently under development as a separate
47  ;; Emacs Lisp package (meta-buf.el).  In order to have that package  ;; Emacs Lisp package (meta-buf.el).  In order to have that package
48  ;; loaded automatically when first entering Metafont or MetaPost mode,  ;; loaded automatically when first entering Metafont or MetaPost mode,
49  ;; you might use the load-hook provided in this package by adding  ;; you might use the load-hook provided in this package by adding
50  ;; these lines to your startup file:  ;; these lines to your startup file:
51  ;;  ;;
52  ;;  (add-hook 'meta-mode-load-hook  ;;  (add-hook 'meta-mode-load-hook
53  ;;            '(lambda () (require 'meta-buf)))  ;;            '(lambda () (require 'meta-buf)))
54  ;;  ;;
55  ;; The add-on package loaded this way may in turn make use of the  ;; The add-on package loaded this way may in turn make use of the
# Line 72  Line 72 
72  ;; global-font-lock-mode or font-lock-support-mode, you can also  ;; global-font-lock-mode or font-lock-support-mode, you can also
73  ;; activate fontification in Metafont and/or MetaPost mode by adding  ;; activate fontification in Metafont and/or MetaPost mode by adding
74  ;; the following lines to your startup file:  ;; the following lines to your startup file:
75  ;;  ;;
76  ;;  (add-hook 'meta-common-mode-hook 'turn-on-font-lock)  ;;  (add-hook 'meta-common-mode-hook 'turn-on-font-lock)
77  ;;  (add-hook 'meta-common-mode-hook 'turn-on-lazy-lock)  ;;  (add-hook 'meta-common-mode-hook 'turn-on-lazy-lock)
78    
# Line 109  Line 109 
109  ;;                          Improved and debbuged indentation function.  ;;                          Improved and debbuged indentation function.
110  ;; v 0.4 -- 1997/02/18  UV  Added functions to indent regions for M-C-q,  ;; v 0.4 -- 1997/02/18  UV  Added functions to indent regions for M-C-q,
111  ;;                          also added a preliminary mode-specific menu.  ;;                          also added a preliminary mode-specific menu.
112  ;; v 0.5 -- 1997/02/19  UV  Added functions to skip to next or previous  ;; v 0.5 -- 1997/02/19  UV  Added functions to skip to next or previous
113  ;;                          defun and to re-indent or comment-out defuns.  ;;                          defun and to re-indent or comment-out defuns.
114  ;; v 0.6 -- 1997/02/20  UV  More debugging, testing and clean-up.  ;; v 0.6 -- 1997/02/20  UV  More debugging, testing and clean-up.
115  ;; v 0.7 -- 1997/02/22  UV  Use easymenu to define mode-specific menu.  ;; v 0.7 -- 1997/02/22  UV  Use easymenu to define mode-specific menu.
# Line 247  Line 247 
247                 '((1 font-lock-keyword-face)                 '((1 font-lock-keyword-face)
248                   (2 font-lock-constant-face)))                   (2 font-lock-constant-face)))
249           ;; embedded Metafont/MetaPost code in comments           ;; embedded Metafont/MetaPost code in comments
250           (cons "|\\([^|]+\\)|"           (cons "|\\([^|]+\\)|"
251                 '(1 font-lock-constant-face t))                 '(1 font-lock-constant-face t))
252       ))       ))
253    "Default expressions to highlight in Metafont or MetaPost mode.")    "Default expressions to highlight in Metafont or MetaPost mode.")
# Line 286  Line 286 
286  ;;   grep '^primitive' texk-7.0/web2c/{mf,mp}.web |\  ;;   grep '^primitive' texk-7.0/web2c/{mf,mp}.web |\
287  ;;   sed 's/primitive(\("[a-zA-Z]*"\).*/\1/' > {mf,mp}_prim.list  ;;   sed 's/primitive(\("[a-zA-Z]*"\).*/\1/' > {mf,mp}_prim.list
288  ;;  ;;
289  ;;   grep '\(let\|def\|vardef\|primarydef\|secondarydef\|tertiarydef\)'  ;;   grep '\(let\|def\|vardef\|primarydef\|secondarydef\|tertiarydef\)'
290  ;;     texmf/meta{font,post}/plain.{mf,mp} > {mf,mp}_plain.list  ;;     texmf/meta{font,post}/plain.{mf,mp} > {mf,mp}_plain.list
291    
292  (defconst meta-common-primitives-list  (defconst meta-common-primitives-list
293    '("ASCII" "addto" "also" "and" "angle" "atleast" "batchmode"    '("ASCII" "addto" "also" "and" "angle" "atleast" "batchmode"
294      "begingroup" "boolean" "boundarychar" "char" "charcode" "chardp"      "begingroup" "boolean" "boundarychar" "char" "charcode" "chardp"
295      "charexists" "charext" "charht" "charic" "charlist" "charwd"      "charexists" "charext" "charht" "charic" "charlist" "charwd"
# Line 317  Line 317 
317      "transform" "transformed" "true" "turningnumber" "uniformdeviate"      "transform" "transformed" "true" "turningnumber" "uniformdeviate"
318      "unknown" "until" "vardef" "warningcheck" "withpen" "xpart"      "unknown" "until" "vardef" "warningcheck" "withpen" "xpart"
319      "xscaled" "xxpart" "xypart" "year" "ypart" "yscaled" "yxpart"      "xscaled" "xxpart" "xypart" "year" "ypart" "yscaled" "yxpart"
320      "yypart" "zscaled")      "yypart" "zscaled")
321    "List of primitives common to Metafont and MetaPost.")    "List of primitives common to Metafont and MetaPost.")
322    
323  (defconst metafont-primitives-list  (defconst metafont-primitives-list
324    '("at" "autorounding" "chardx" "chardy" "cull" "display"    '("at" "autorounding" "chardx" "chardy" "cull" "display"
325      "dropping" "fillin" "from" "granularity" "hppp" "inwindow"      "dropping" "fillin" "from" "granularity" "hppp" "inwindow"
326      "keeping" "numspecial" "openwindow" "proofing" "smoothing"      "keeping" "numspecial" "openwindow" "proofing" "smoothing"
# Line 328  Line 328 
328      "withweight" "xoffset" "yoffset")      "withweight" "xoffset" "yoffset")
329    "List of primitives only defined in Metafont.")    "List of primitives only defined in Metafont.")
330    
331  (defconst metapost-primitives-list  (defconst metapost-primitives-list
332    '("arclength" "arctime" "bluepart" "bounded" "btex" "clip"    '("arclength" "arctime" "bluepart" "bounded" "btex" "clip"
333      "clipped" "color" "dashed" "dashpart" "etex" "filled" "fontpart"      "clipped" "color" "dashed" "dashpart" "etex" "filled" "fontpart"
334      "fontsize" "greenpart" "infont" "linecap" "linejoin" "llcorner"      "fontsize" "greenpart" "infont" "linecap" "linejoin" "llcorner"
# Line 338  Line 338 
338      "verbatimtex" "withcolor" "within" "write")      "verbatimtex" "withcolor" "within" "write")
339    "List of primitives only defined in MetaPost.")    "List of primitives only defined in MetaPost.")
340    
341  (defconst meta-common-plain-macros-list  (defconst meta-common-plain-macros-list
342    '( "abs" "bot" "bye" "byte" "ceiling" "clear_pen_memory"    '( "abs" "bot" "bye" "byte" "ceiling" "clear_pen_memory"
343       "clearit" "clearpen" "clearxy" "counterclockwise" "cutdraw" "decr"       "clearit" "clearpen" "clearxy" "counterclockwise" "cutdraw" "decr"
344       "dir" "direction" "directionpoint" "div" "dotprod" "downto" "draw"       "dir" "direction" "directionpoint" "div" "dotprod" "downto" "draw"
# Line 353  Line 353 
353       "unitvector" "upto" "whatever")       "unitvector" "upto" "whatever")
354    "List of macros common to plain Metafont and MetaPost.")    "List of macros common to plain Metafont and MetaPost.")
355    
356  (defconst metafont-plain-macros-list  (defconst metafont-plain-macros-list
357    '("beginchar" "change_width" "culldraw" "cullit" "cutoff"    '("beginchar" "change_width" "culldraw" "cullit" "cutoff"
358      "define_blacker_pixels" "define_corrected_pixels"      "define_blacker_pixels" "define_corrected_pixels"
359      "define_good_x_pixels" "define_good_y_pixels"      "define_good_x_pixels" "define_good_y_pixels"
# Line 370  Line 370 
370      "mode_proof" "mode_setup" "mode_smoke" "nodisplays" "notransforms"      "mode_proof" "mode_setup" "mode_smoke" "nodisplays" "notransforms"
371      "openit" "penrazor" "pensquare" "proofoffset" "proofrule"      "openit" "penrazor" "pensquare" "proofoffset" "proofrule"
372      "proofrulethickness" "screenchars" "screenrule" "screenstrokes"      "proofrulethickness" "screenchars" "screenrule" "screenstrokes"
373      "showit" "slantfont" "smode" "titlefont" "vround")      "showit" "slantfont" "smode" "titlefont" "vround")
374    "List of macros only defined in plain Metafont.")    "List of macros only defined in plain Metafont.")
375    
376  (defconst metapost-plain-macros-list  (defconst metapost-plain-macros-list
377    '("arrowhead" "bbox" "beginfig" "buildcycle" "center" "cutafter"    '("arrowhead" "bbox" "beginfig" "buildcycle" "center" "cutafter"
378      "cutbefore" "dashpattern" "dotlabel" "dotlabels" "drawarrow"      "cutbefore" "dashpattern" "dotlabel" "dotlabels" "drawarrow"
379      "drawdblarrow" "drawoptions" "endfig" "image" "label" "off" "on"      "drawdblarrow" "drawoptions" "endfig" "image" "label" "off" "on"
380      "thelabel")      "thelabel")
381    "List of macros only defined in plain MetaPost.")    "List of macros only defined in plain MetaPost.")
382    
383  (defconst metapost-graph-macros-list  (defconst metapost-graph-macros-list
384    '("augment" "auto.x" "auto.y" "autogrid" "begingraph" "endgraph"    '("augment" "auto.x" "auto.y" "autogrid" "begingraph" "endgraph"
385      "format" "frame" "gdata" "gdotlabel" "gdraw" "gdrawarrow"      "format" "frame" "gdata" "gdotlabel" "gdraw" "gdrawarrow"
386      "gdrawdblarrow" "gfill" "glabel" "grid" "itick" "otick" "plot"      "gdrawdblarrow" "gfill" "glabel" "grid" "itick" "otick" "plot"
387      "setcoords" "setrange")      "setcoords" "setrange")
388    "List of macros only defined in MetaPost \"graph\" package.")    "List of macros only defined in MetaPost \"graph\" package.")
389      
390  (defconst metapost-boxes-macros-list  (defconst metapost-boxes-macros-list
391    '("boxit" "boxjoin" "bpath" "circleit" "drawboxed" "drawboxes"    '("boxit" "boxjoin" "bpath" "circleit" "drawboxed" "drawboxes"
392      "drawunboxed" "fixpos" "fixsize" "pic" "rboxit")      "drawunboxed" "fixpos" "fixsize" "pic" "rboxit")
393    "List of macros only defined in MetaPost \"boxes\" package.")    "List of macros only defined in MetaPost \"boxes\" package.")
# Line 413  Line 413 
413  (defvar meta-symbol-list nil  (defvar meta-symbol-list nil
414    "List of known symbols to complete in Metafont or MetaPost mode.")    "List of known symbols to complete in Metafont or MetaPost mode.")
415    
416  (defvar meta-symbol-changed nil  (defvar meta-symbol-changed nil
417    "Flag indicating whether `meta-symbol-list' has been initialized.")    "Flag indicating whether `meta-symbol-list' has been initialized.")
418    
419  (defvar meta-complete-list nil  (defvar meta-complete-list nil
# Line 517  If the list was changed, sort the list a Line 517  If the list was changed, sort the list a
517    ;; utility function used in `meta-complete-symbol'    ;; utility function used in `meta-complete-symbol'
518    (let ((pos (point)))    (let ((pos (point)))
519      (save-excursion      (save-excursion
520        (and (re-search-backward        (and (re-search-backward
521              regexp (if limit (max (point-min) (- (point) limit))) t)              regexp (if limit (max (point-min) (- (point) limit))) t)
522             (eq (match-end 0) pos)))))             (eq (match-end 0) pos)))))
523    
# Line 585  If the list was changed, sort the list a Line 585  If the list was changed, sort the list a
585             (looking-at meta-left-comment-regexp))             (looking-at meta-left-comment-regexp))
586        (current-column)        (current-column)
587      (skip-chars-backward "\t ")      (skip-chars-backward "\t ")
588      (max (if (bolp) 0 (1+ (current-column)))      (max (if (bolp) 0 (1+ (current-column)))
589           comment-column)))           comment-column)))
590    
591  (defun meta-indent-line ()  (defun meta-indent-line ()
# Line 605  If the list was changed, sort the list a Line 605  If the list was changed, sort the list a
605    "Return the indentation of current line of Metafont or MetaPost source."    "Return the indentation of current line of Metafont or MetaPost source."
606    (save-excursion    (save-excursion
607      (back-to-indentation)      (back-to-indentation)
608      (cond      (cond
609        ;; Comments to the left margin.        ;; Comments to the left margin.
610       ((and meta-left-comment-regexp       ((and meta-left-comment-regexp
611             (looking-at meta-left-comment-regexp))             (looking-at meta-left-comment-regexp))
# Line 615  If the list was changed, sort the list a Line 615  If the list was changed, sort the list a
615             (looking-at meta-right-comment-regexp))             (looking-at meta-right-comment-regexp))
616        comment-column)        comment-column)
617       ;; Comments best left alone.       ;; Comments best left alone.
618       ((and meta-ignore-comment-regexp       ((and meta-ignore-comment-regexp
619             (looking-at meta-ignore-comment-regexp))             (looking-at meta-ignore-comment-regexp))
620        (current-indentation))        (current-indentation))
621       ;; Backindent at end of environments.       ;; Backindent at end of environments.
622       ((looking-at       ((looking-at
623         (concat "\\<" meta-end-environment-regexp "\\>"))         (concat "\\<" meta-end-environment-regexp "\\>"))
624        (- (meta-indent-calculate-last) meta-indent-level))        (- (meta-indent-calculate-last) meta-indent-level))
625       ;; Backindent at keywords within environments.       ;; Backindent at keywords within environments.
626       ((looking-at       ((looking-at
627         (concat "\\<" meta-within-environment-regexp "\\>"))         (concat "\\<" meta-within-environment-regexp "\\>"))
628        (- (meta-indent-calculate-last) meta-indent-level))        (- (meta-indent-calculate-last) meta-indent-level))
629       (t (meta-indent-calculate-last)))))       (t (meta-indent-calculate-last)))))
# Line 645  If the list was changed, sort the list a Line 645  If the list was changed, sort the list a
645             (meta-indent-level-count)             (meta-indent-level-count)
646             (cond             (cond
647              ;; Compensate for backindent at end of environments.              ;; Compensate for backindent at end of environments.
648              ((looking-at              ((looking-at
649                (concat "\\<"meta-end-environment-regexp "\\>"))                (concat "\\<"meta-end-environment-regexp "\\>"))
650               meta-indent-level)               meta-indent-level)
651              ;; Compensate for backindent within environments.              ;; Compensate for backindent within environments.
652              ((looking-at              ((looking-at
653                (concat "\\<" meta-within-environment-regexp "\\>"))                (concat "\\<" meta-within-environment-regexp "\\>"))
654               meta-indent-level)               meta-indent-level)
655              (t 0)))))              (t 0)))))
# Line 660  If the list was changed, sort the list a Line 660  If the list was changed, sort the list a
660    (save-excursion    (save-excursion
661      (save-restriction      (save-restriction
662        (let ((count 0))        (let ((count 0))
663          (narrow-to-region          (narrow-to-region
664           (point) (save-excursion           (point) (save-excursion
665                     (re-search-forward "[^\\\\\"]%\\|\n\\|\\'" nil t)                     (re-search-forward "[^\\\\\"]%\\|\n\\|\\'" nil t)
666                     (backward-char) (point)))                     (backward-char) (point)))
# Line 669  If the list was changed, sort the list a Line 669  If the list was changed, sort the list a
669              (goto-char (match-beginning 0))              (goto-char (match-beginning 0))
670              (cond              (cond
671               ;; Count number of begin-end keywords within line.               ;; Count number of begin-end keywords within line.
672               ((looking-at               ((looking-at
673                 (concat "\\<" meta-begin-environment-regexp "\\>"))                 (concat "\\<" meta-begin-environment-regexp "\\>"))
674                (setq count (+ count meta-indent-level)))                (setq count (+ count meta-indent-level)))
675               ((looking-at               ((looking-at
676                 (concat "\\<" meta-end-environment-regexp "\\>"))                 (concat "\\<" meta-end-environment-regexp "\\>"))
677                (setq count (- count meta-indent-level)))                    (setq count (- count meta-indent-level)))
678               ;; Count number of open-close parentheses within line.               ;; Count number of open-close parentheses within line.
679               ((looking-at "(")               ((looking-at "(")
680                (setq count (+ count meta-indent-level)))                (setq count (+ count meta-indent-level)))
# Line 704  and initial semicolons." Line 704  and initial semicolons."
704         ;; A line with nothing but a comment on it?         ;; A line with nothing but a comment on it?
705         ((looking-at (concat "[ \t]*" comment-start-skip))         ((looking-at (concat "[ \t]*" comment-start-skip))
706          (setq has-comment t)          (setq has-comment t)
707          (setq comment-fill-prefix          (setq comment-fill-prefix
708                (buffer-substring (match-beginning 0) (match-end 0))))                (buffer-substring (match-beginning 0) (match-end 0))))
709         ;; A line with some code, followed by a comment?           ;; A line with some code, followed by a comment?
710         ((condition-case nil         ((condition-case nil
711              (save-restriction              (save-restriction
712                (narrow-to-region (point-min)                (narrow-to-region (point-min)
# Line 718  and initial semicolons." Line 718  and initial semicolons."
718                   ((eq (char-after (point)) ?\") (forward-sexp 1))))                   ((eq (char-after (point)) ?\") (forward-sexp 1))))
719                (looking-at comment-start-skip))                (looking-at comment-start-skip))
720            (error nil))            (error nil))
721          (setq has-comment t          (setq has-comment t
722                has-code-and-comment t)                has-code-and-comment t)
723          (setq comment-fill-prefix          (setq comment-fill-prefix
724                (concat (make-string (/ (current-column) 8) ?\t)                (concat (make-string (/ (current-column) 8) ?\t)
# Line 736  and initial semicolons." Line 736  and initial semicolons."
736             (save-excursion             (save-excursion
737               (while (and (zerop (forward-line -1))               (while (and (zerop (forward-line -1))
738                           (looking-at (concat "^[ \t]*" comment-start))))                           (looking-at (concat "^[ \t]*" comment-start))))
739               (or (looking-at (concat ".*" comment-start))               (or (looking-at (concat ".*" comment-start))
740                   (forward-line 1))                   (forward-line 1))
741               (point))               (point))
742             ;; Find the beginning of the first line past the region to fill.             ;; Find the beginning of the first line past the region to fill.
# Line 744  and initial semicolons." Line 744  and initial semicolons."
744               (while (progn (forward-line 1)               (while (progn (forward-line 1)
745                             (looking-at (concat "^[ \t]*" comment-start))))                             (looking-at (concat "^[ \t]*" comment-start))))
746               (point)))               (point)))
747            (let* ((paragraph-start            (let* ((paragraph-start
748                    (concat paragraph-start "\\|[ \t%]*$"))                    (concat paragraph-start "\\|[ \t%]*$"))
749                   (paragraph-separate                     (paragraph-separate
750                    (concat paragraph-start "\\|[ \t%]*$"))                    (concat paragraph-start "\\|[ \t%]*$"))
751                   (paragraph-ignore-fill-prefix nil)                   (paragraph-ignore-fill-prefix nil)
752                   (fill-prefix comment-fill-prefix)                   (fill-prefix comment-fill-prefix)
# Line 789  and initial semicolons." Line 789  and initial semicolons."
789    
790  (defun meta-beginning-of-defun (&optional arg)  (defun meta-beginning-of-defun (&optional arg)
791    "Move backward to beginnning of a defun in Metafont or MetaPost code.    "Move backward to beginnning of a defun in Metafont or MetaPost code.
792  With numeric argument, do it that many times.    With numeric argument, do it that many times.
793  Negative arg -N means move forward to Nth following beginning of defun.  Negative arg -N means move forward to Nth following beginning of defun.
794  Returns t unless search stops due to beginning or end of buffer."  Returns t unless search stops due to beginning or end of buffer."
795    (interactive "p")    (interactive "p")
796    (if (or (null arg) (= 0 arg)) (setq arg 1))    (if (or (null arg) (= 0 arg)) (setq arg 1))
797    (and arg (< arg 0) (not (eobp)) (forward-char 1))    (and arg (< arg 0) (not (eobp)) (forward-char 1))
798    (and (re-search-backward    (and (re-search-backward
799          (concat "\\<" meta-begin-defun-regexp "\\>") nil t arg)          (concat "\\<" meta-begin-defun-regexp "\\>") nil t arg)
800         (progn (goto-char (match-beginning 0))         (progn (goto-char (match-beginning 0))
801                (skip-chars-backward "%")                (skip-chars-backward "%")
802                (skip-chars-backward " \t") t)))                (skip-chars-backward " \t") t)))
803          
804  (defun meta-end-of-defun (&optional arg)  (defun meta-end-of-defun (&optional arg)
805    "Move forward to end of a defun in Metafont or MetaPost code.    "Move forward to end of a defun in Metafont or MetaPost code.
806  With numeric argument, do it that many times.  With numeric argument, do it that many times.
807  Negative argument -N means move back to Nth preceding end of defun.  Negative argument -N means move back to Nth preceding end of defun.
808  Returns t unless search stops due to beginning or end of buffer."  Returns t unless search stops due to beginning or end of buffer."
809    (interactive "p")    (interactive "p")
# Line 926  The environment marked is the one that c Line 926  The environment marked is the one that c
926      ()      ()
927    (setq meta-mode-map (make-sparse-keymap))    (setq meta-mode-map (make-sparse-keymap))
928    (define-key meta-mode-map "\t"        'meta-indent-line)    (define-key meta-mode-map "\t"        'meta-indent-line)
929    (define-key meta-mode-map "\C-m"      'reindent-then-newline-and-indent)      (define-key meta-mode-map "\C-m"      'reindent-then-newline-and-indent)
930    ;; Comment Paragraphs:    ;; Comment Paragraphs:
931  ; (define-key meta-mode-map "\M-a"      'backward-sentence)  ; (define-key meta-mode-map "\M-a"      'backward-sentence)
932  ; (define-key meta-mode-map "\M-e"      'forward-sentence)  ; (define-key meta-mode-map "\M-e"      'forward-sentence)
# Line 950  The environment marked is the one that c Line 950  The environment marked is the one that c
950    (define-key meta-mode-map "\M-\t"     'meta-complete-symbol)    (define-key meta-mode-map "\M-\t"     'meta-complete-symbol)
951    ;; Shell Commands:    ;; Shell Commands:
952  ; (define-key meta-mode-map "\C-c\C-c"  'meta-command-file)  ; (define-key meta-mode-map "\C-c\C-c"  'meta-command-file)
953  ; (define-key meta-mode-map "\C-c\C-k"  'meta-kill-job)              ; (define-key meta-mode-map "\C-c\C-k"  'meta-kill-job)
954  ; (define-key meta-mode-map "\C-c\C-l"  'meta-recenter-output)  ; (define-key meta-mode-map "\C-c\C-l"  'meta-recenter-output)
955    )    )
956    
957  (easy-menu-define  (easy-menu-define
958   meta-mode-menu meta-mode-map   meta-mode-menu meta-mode-map
959   "Menu used in Metafont or MetaPost mode."   "Menu used in Metafont or MetaPost mode."
960   (list "Meta"   (list "Meta"
# Line 963  The environment marked is the one that c Line 963  The environment marked is the one that c
963         "--"         "--"
964         ["Indent Line"                   meta-indent-line t]         ["Indent Line"                   meta-indent-line t]
965         ["Indent Environment"            meta-indent-defun t]         ["Indent Environment"            meta-indent-defun t]
966         ["Indent Region"                 meta-indent-region         ["Indent Region"                 meta-indent-region
967          :active (meta-mark-active)]          :active (meta-mark-active)]
968         ["Indent Buffer"                 meta-indent-buffer t]         ["Indent Buffer"                 meta-indent-buffer t]
969         "--"         "--"
970         ["Comment Out Environment"       meta-comment-defun t]         ["Comment Out Environment"       meta-comment-defun t]
971         ["Uncomment Environment"         meta-uncomment-defun t]         ["Uncomment Environment"         meta-uncomment-defun t]
972         ["Comment Out Region"            meta-comment-region         ["Comment Out Region"            meta-comment-region
973          :active (meta-mark-active)]          :active (meta-mark-active)]
974         ["Uncomment Region"              meta-uncomment-region         ["Uncomment Region"              meta-uncomment-region
975          :active (meta-mark-active)]          :active (meta-mark-active)]
976         "--"         "--"
977         ["Complete Symbol"               meta-complete-symbol t]         ["Complete Symbol"               meta-complete-symbol t]
# Line 1019  The environment marked is the one that c Line 1019  The environment marked is the one that c
1019    
1020    (make-local-variable 'paragraph-start)    (make-local-variable 'paragraph-start)
1021    (make-local-variable 'paragraph-separate)    (make-local-variable 'paragraph-separate)
1022    (setq paragraph-start    (setq paragraph-start
1023          (concat page-delimiter "\\|$"))          (concat page-delimiter "\\|$"))
1024    (setq paragraph-separate    (setq paragraph-separate
1025          (concat page-delimiter "\\|$"))          (concat page-delimiter "\\|$"))
1026    
1027    (make-local-variable 'paragraph-ignore-fill-prefix)    (make-local-variable 'paragraph-ignore-fill-prefix)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26