[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/meta-mode.el
|
From: |
Juanma Barranquero |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/meta-mode.el |
|
Date: |
Tue, 04 Feb 2003 08:24:48 -0500 |
Index: emacs/lisp/progmodes/meta-mode.el
diff -c emacs/lisp/progmodes/meta-mode.el:1.6
emacs/lisp/progmodes/meta-mode.el:1.7
*** emacs/lisp/progmodes/meta-mode.el:1.6 Mon Jul 16 08:22:59 2001
--- emacs/lisp/progmodes/meta-mode.el Tue Feb 4 08:24:35 2003
***************
*** 41,55 ****
;; package or as a separate Emacs Lisp package.
;; Installation:
! ;;
;; An interface to running Metafont or MetaPost as a shell process
;; from within Emacs is currently under development as a separate
;; Emacs Lisp package (meta-buf.el). In order to have that package
;; loaded automatically when first entering Metafont or MetaPost mode,
;; you might use the load-hook provided in this package by adding
;; these lines to your startup file:
! ;;
! ;; (add-hook 'meta-mode-load-hook
;; '(lambda () (require 'meta-buf)))
;;
;; The add-on package loaded this way may in turn make use of the
--- 41,55 ----
;; package or as a separate Emacs Lisp package.
;; Installation:
! ;;
;; An interface to running Metafont or MetaPost as a shell process
;; from within Emacs is currently under development as a separate
;; Emacs Lisp package (meta-buf.el). In order to have that package
;; loaded automatically when first entering Metafont or MetaPost mode,
;; you might use the load-hook provided in this package by adding
;; these lines to your startup file:
! ;;
! ;; (add-hook 'meta-mode-load-hook
;; '(lambda () (require 'meta-buf)))
;;
;; The add-on package loaded this way may in turn make use of the
***************
*** 72,78 ****
;; global-font-lock-mode or font-lock-support-mode, you can also
;; activate fontification in Metafont and/or MetaPost mode by adding
;; the following lines to your startup file:
! ;;
;; (add-hook 'meta-common-mode-hook 'turn-on-font-lock)
;; (add-hook 'meta-common-mode-hook 'turn-on-lazy-lock)
--- 72,78 ----
;; global-font-lock-mode or font-lock-support-mode, you can also
;; activate fontification in Metafont and/or MetaPost mode by adding
;; the following lines to your startup file:
! ;;
;; (add-hook 'meta-common-mode-hook 'turn-on-font-lock)
;; (add-hook 'meta-common-mode-hook 'turn-on-lazy-lock)
***************
*** 109,115 ****
;; Improved and debbuged indentation function.
;; v 0.4 -- 1997/02/18 UV Added functions to indent regions for M-C-q,
;; also added a preliminary mode-specific menu.
! ;; v 0.5 -- 1997/02/19 UV Added functions to skip to next or previous
;; defun and to re-indent or comment-out defuns.
;; v 0.6 -- 1997/02/20 UV More debugging, testing and clean-up.
;; v 0.7 -- 1997/02/22 UV Use easymenu to define mode-specific menu.
--- 109,115 ----
;; Improved and debbuged indentation function.
;; v 0.4 -- 1997/02/18 UV Added functions to indent regions for M-C-q,
;; also added a preliminary mode-specific menu.
! ;; v 0.5 -- 1997/02/19 UV Added functions to skip to next or previous
;; defun and to re-indent or comment-out defuns.
;; v 0.6 -- 1997/02/20 UV More debugging, testing and clean-up.
;; v 0.7 -- 1997/02/22 UV Use easymenu to define mode-specific menu.
***************
*** 247,253 ****
'((1 font-lock-keyword-face)
(2 font-lock-constant-face)))
;; embedded Metafont/MetaPost code in comments
! (cons "|\\([^|]+\\)|"
'(1 font-lock-constant-face t))
))
"Default expressions to highlight in Metafont or MetaPost mode.")
--- 247,253 ----
'((1 font-lock-keyword-face)
(2 font-lock-constant-face)))
;; embedded Metafont/MetaPost code in comments
! (cons "|\\([^|]+\\)|"
'(1 font-lock-constant-face t))
))
"Default expressions to highlight in Metafont or MetaPost mode.")
***************
*** 286,295 ****
;; grep '^primitive' texk-7.0/web2c/{mf,mp}.web |\
;; sed 's/primitive(\("[a-zA-Z]*"\).*/\1/' > {mf,mp}_prim.list
;;
! ;; grep '\(let\|def\|vardef\|primarydef\|secondarydef\|tertiarydef\)'
;; texmf/meta{font,post}/plain.{mf,mp} > {mf,mp}_plain.list
! (defconst meta-common-primitives-list
'("ASCII" "addto" "also" "and" "angle" "atleast" "batchmode"
"begingroup" "boolean" "boundarychar" "char" "charcode" "chardp"
"charexists" "charext" "charht" "charic" "charlist" "charwd"
--- 286,295 ----
;; grep '^primitive' texk-7.0/web2c/{mf,mp}.web |\
;; sed 's/primitive(\("[a-zA-Z]*"\).*/\1/' > {mf,mp}_prim.list
;;
! ;; grep '\(let\|def\|vardef\|primarydef\|secondarydef\|tertiarydef\)'
;; texmf/meta{font,post}/plain.{mf,mp} > {mf,mp}_plain.list
! (defconst meta-common-primitives-list
'("ASCII" "addto" "also" "and" "angle" "atleast" "batchmode"
"begingroup" "boolean" "boundarychar" "char" "charcode" "chardp"
"charexists" "charext" "charht" "charic" "charlist" "charwd"
***************
*** 317,326 ****
"transform" "transformed" "true" "turningnumber" "uniformdeviate"
"unknown" "until" "vardef" "warningcheck" "withpen" "xpart"
"xscaled" "xxpart" "xypart" "year" "ypart" "yscaled" "yxpart"
! "yypart" "zscaled")
"List of primitives common to Metafont and MetaPost.")
! (defconst metafont-primitives-list
'("at" "autorounding" "chardx" "chardy" "cull" "display"
"dropping" "fillin" "from" "granularity" "hppp" "inwindow"
"keeping" "numspecial" "openwindow" "proofing" "smoothing"
--- 317,326 ----
"transform" "transformed" "true" "turningnumber" "uniformdeviate"
"unknown" "until" "vardef" "warningcheck" "withpen" "xpart"
"xscaled" "xxpart" "xypart" "year" "ypart" "yscaled" "yxpart"
! "yypart" "zscaled")
"List of primitives common to Metafont and MetaPost.")
! (defconst metafont-primitives-list
'("at" "autorounding" "chardx" "chardy" "cull" "display"
"dropping" "fillin" "from" "granularity" "hppp" "inwindow"
"keeping" "numspecial" "openwindow" "proofing" "smoothing"
***************
*** 328,334 ****
"withweight" "xoffset" "yoffset")
"List of primitives only defined in Metafont.")
! (defconst metapost-primitives-list
'("arclength" "arctime" "bluepart" "bounded" "btex" "clip"
"clipped" "color" "dashed" "dashpart" "etex" "filled" "fontpart"
"fontsize" "greenpart" "infont" "linecap" "linejoin" "llcorner"
--- 328,334 ----
"withweight" "xoffset" "yoffset")
"List of primitives only defined in Metafont.")
! (defconst metapost-primitives-list
'("arclength" "arctime" "bluepart" "bounded" "btex" "clip"
"clipped" "color" "dashed" "dashpart" "etex" "filled" "fontpart"
"fontsize" "greenpart" "infont" "linecap" "linejoin" "llcorner"
***************
*** 338,344 ****
"verbatimtex" "withcolor" "within" "write")
"List of primitives only defined in MetaPost.")
! (defconst meta-common-plain-macros-list
'( "abs" "bot" "bye" "byte" "ceiling" "clear_pen_memory"
"clearit" "clearpen" "clearxy" "counterclockwise" "cutdraw" "decr"
"dir" "direction" "directionpoint" "div" "dotprod" "downto" "draw"
--- 338,344 ----
"verbatimtex" "withcolor" "within" "write")
"List of primitives only defined in MetaPost.")
! (defconst meta-common-plain-macros-list
'( "abs" "bot" "bye" "byte" "ceiling" "clear_pen_memory"
"clearit" "clearpen" "clearxy" "counterclockwise" "cutdraw" "decr"
"dir" "direction" "directionpoint" "div" "dotprod" "downto" "draw"
***************
*** 353,359 ****
"unitvector" "upto" "whatever")
"List of macros common to plain Metafont and MetaPost.")
! (defconst metafont-plain-macros-list
'("beginchar" "change_width" "culldraw" "cullit" "cutoff"
"define_blacker_pixels" "define_corrected_pixels"
"define_good_x_pixels" "define_good_y_pixels"
--- 353,359 ----
"unitvector" "upto" "whatever")
"List of macros common to plain Metafont and MetaPost.")
! (defconst metafont-plain-macros-list
'("beginchar" "change_width" "culldraw" "cullit" "cutoff"
"define_blacker_pixels" "define_corrected_pixels"
"define_good_x_pixels" "define_good_y_pixels"
***************
*** 370,393 ****
"mode_proof" "mode_setup" "mode_smoke" "nodisplays" "notransforms"
"openit" "penrazor" "pensquare" "proofoffset" "proofrule"
"proofrulethickness" "screenchars" "screenrule" "screenstrokes"
! "showit" "slantfont" "smode" "titlefont" "vround")
"List of macros only defined in plain Metafont.")
! (defconst metapost-plain-macros-list
'("arrowhead" "bbox" "beginfig" "buildcycle" "center" "cutafter"
"cutbefore" "dashpattern" "dotlabel" "dotlabels" "drawarrow"
"drawdblarrow" "drawoptions" "endfig" "image" "label" "off" "on"
! "thelabel")
"List of macros only defined in plain MetaPost.")
! (defconst metapost-graph-macros-list
! '("augment" "auto.x" "auto.y" "autogrid" "begingraph" "endgraph"
! "format" "frame" "gdata" "gdotlabel" "gdraw" "gdrawarrow"
! "gdrawdblarrow" "gfill" "glabel" "grid" "itick" "otick" "plot"
"setcoords" "setrange")
"List of macros only defined in MetaPost \"graph\" package.")
!
! (defconst metapost-boxes-macros-list
'("boxit" "boxjoin" "bpath" "circleit" "drawboxed" "drawboxes"
"drawunboxed" "fixpos" "fixsize" "pic" "rboxit")
"List of macros only defined in MetaPost \"boxes\" package.")
--- 370,393 ----
"mode_proof" "mode_setup" "mode_smoke" "nodisplays" "notransforms"
"openit" "penrazor" "pensquare" "proofoffset" "proofrule"
"proofrulethickness" "screenchars" "screenrule" "screenstrokes"
! "showit" "slantfont" "smode" "titlefont" "vround")
"List of macros only defined in plain Metafont.")
! (defconst metapost-plain-macros-list
'("arrowhead" "bbox" "beginfig" "buildcycle" "center" "cutafter"
"cutbefore" "dashpattern" "dotlabel" "dotlabels" "drawarrow"
"drawdblarrow" "drawoptions" "endfig" "image" "label" "off" "on"
! "thelabel")
"List of macros only defined in plain MetaPost.")
! (defconst metapost-graph-macros-list
! '("augment" "auto.x" "auto.y" "autogrid" "begingraph" "endgraph"
! "format" "frame" "gdata" "gdotlabel" "gdraw" "gdrawarrow"
! "gdrawdblarrow" "gfill" "glabel" "grid" "itick" "otick" "plot"
"setcoords" "setrange")
"List of macros only defined in MetaPost \"graph\" package.")
!
! (defconst metapost-boxes-macros-list
'("boxit" "boxjoin" "bpath" "circleit" "drawboxed" "drawboxes"
"drawunboxed" "fixpos" "fixsize" "pic" "rboxit")
"List of macros only defined in MetaPost \"boxes\" package.")
***************
*** 413,419 ****
(defvar meta-symbol-list nil
"List of known symbols to complete in Metafont or MetaPost mode.")
! (defvar meta-symbol-changed nil
"Flag indicating whether `meta-symbol-list' has been initialized.")
(defvar meta-complete-list nil
--- 413,419 ----
(defvar meta-symbol-list nil
"List of known symbols to complete in Metafont or MetaPost mode.")
! (defvar meta-symbol-changed nil
"Flag indicating whether `meta-symbol-list' has been initialized.")
(defvar meta-complete-list nil
***************
*** 517,523 ****
;; utility function used in `meta-complete-symbol'
(let ((pos (point)))
(save-excursion
! (and (re-search-backward
regexp (if limit (max (point-min) (- (point) limit))) t)
(eq (match-end 0) pos)))))
--- 517,523 ----
;; utility function used in `meta-complete-symbol'
(let ((pos (point)))
(save-excursion
! (and (re-search-backward
regexp (if limit (max (point-min) (- (point) limit))) t)
(eq (match-end 0) pos)))))
***************
*** 585,591 ****
(looking-at meta-left-comment-regexp))
(current-column)
(skip-chars-backward "\t ")
! (max (if (bolp) 0 (1+ (current-column)))
comment-column)))
(defun meta-indent-line ()
--- 585,591 ----
(looking-at meta-left-comment-regexp))
(current-column)
(skip-chars-backward "\t ")
! (max (if (bolp) 0 (1+ (current-column)))
comment-column)))
(defun meta-indent-line ()
***************
*** 605,611 ****
"Return the indentation of current line of Metafont or MetaPost source."
(save-excursion
(back-to-indentation)
! (cond
;; Comments to the left margin.
((and meta-left-comment-regexp
(looking-at meta-left-comment-regexp))
--- 605,611 ----
"Return the indentation of current line of Metafont or MetaPost source."
(save-excursion
(back-to-indentation)
! (cond
;; Comments to the left margin.
((and meta-left-comment-regexp
(looking-at meta-left-comment-regexp))
***************
*** 615,629 ****
(looking-at meta-right-comment-regexp))
comment-column)
;; Comments best left alone.
! ((and meta-ignore-comment-regexp
(looking-at meta-ignore-comment-regexp))
(current-indentation))
;; Backindent at end of environments.
! ((looking-at
(concat "\\<" meta-end-environment-regexp "\\>"))
(- (meta-indent-calculate-last) meta-indent-level))
;; Backindent at keywords within environments.
! ((looking-at
(concat "\\<" meta-within-environment-regexp "\\>"))
(- (meta-indent-calculate-last) meta-indent-level))
(t (meta-indent-calculate-last)))))
--- 615,629 ----
(looking-at meta-right-comment-regexp))
comment-column)
;; Comments best left alone.
! ((and meta-ignore-comment-regexp
(looking-at meta-ignore-comment-regexp))
(current-indentation))
;; Backindent at end of environments.
! ((looking-at
(concat "\\<" meta-end-environment-regexp "\\>"))
(- (meta-indent-calculate-last) meta-indent-level))
;; Backindent at keywords within environments.
! ((looking-at
(concat "\\<" meta-within-environment-regexp "\\>"))
(- (meta-indent-calculate-last) meta-indent-level))
(t (meta-indent-calculate-last)))))
***************
*** 645,655 ****
(meta-indent-level-count)
(cond
;; Compensate for backindent at end of environments.
! ((looking-at
(concat "\\<"meta-end-environment-regexp "\\>"))
meta-indent-level)
;; Compensate for backindent within environments.
! ((looking-at
(concat "\\<" meta-within-environment-regexp "\\>"))
meta-indent-level)
(t 0)))))
--- 645,655 ----
(meta-indent-level-count)
(cond
;; Compensate for backindent at end of environments.
! ((looking-at
(concat "\\<"meta-end-environment-regexp "\\>"))
meta-indent-level)
;; Compensate for backindent within environments.
! ((looking-at
(concat "\\<" meta-within-environment-regexp "\\>"))
meta-indent-level)
(t 0)))))
***************
*** 660,666 ****
(save-excursion
(save-restriction
(let ((count 0))
! (narrow-to-region
(point) (save-excursion
(re-search-forward "[^\\\\\"]%\\|\n\\|\\'" nil t)
(backward-char) (point)))
--- 660,666 ----
(save-excursion
(save-restriction
(let ((count 0))
! (narrow-to-region
(point) (save-excursion
(re-search-forward "[^\\\\\"]%\\|\n\\|\\'" nil t)
(backward-char) (point)))
***************
*** 669,680 ****
(goto-char (match-beginning 0))
(cond
;; Count number of begin-end keywords within line.
! ((looking-at
(concat "\\<" meta-begin-environment-regexp "\\>"))
(setq count (+ count meta-indent-level)))
! ((looking-at
(concat "\\<" meta-end-environment-regexp "\\>"))
! (setq count (- count meta-indent-level)))
;; Count number of open-close parentheses within line.
((looking-at "(")
(setq count (+ count meta-indent-level)))
--- 669,680 ----
(goto-char (match-beginning 0))
(cond
;; Count number of begin-end keywords within line.
! ((looking-at
(concat "\\<" meta-begin-environment-regexp "\\>"))
(setq count (+ count meta-indent-level)))
! ((looking-at
(concat "\\<" meta-end-environment-regexp "\\>"))
! (setq count (- count meta-indent-level)))
;; Count number of open-close parentheses within line.
((looking-at "(")
(setq count (+ count meta-indent-level)))
***************
*** 704,712 ****
;; A line with nothing but a comment on it?
((looking-at (concat "[ \t]*" comment-start-skip))
(setq has-comment t)
! (setq comment-fill-prefix
(buffer-substring (match-beginning 0) (match-end 0))))
! ;; A line with some code, followed by a comment?
((condition-case nil
(save-restriction
(narrow-to-region (point-min)
--- 704,712 ----
;; A line with nothing but a comment on it?
((looking-at (concat "[ \t]*" comment-start-skip))
(setq has-comment t)
! (setq comment-fill-prefix
(buffer-substring (match-beginning 0) (match-end 0))))
! ;; A line with some code, followed by a comment?
((condition-case nil
(save-restriction
(narrow-to-region (point-min)
***************
*** 718,724 ****
((eq (char-after (point)) ?\") (forward-sexp 1))))
(looking-at comment-start-skip))
(error nil))
! (setq has-comment t
has-code-and-comment t)
(setq comment-fill-prefix
(concat (make-string (/ (current-column) 8) ?\t)
--- 718,724 ----
((eq (char-after (point)) ?\") (forward-sexp 1))))
(looking-at comment-start-skip))
(error nil))
! (setq has-comment t
has-code-and-comment t)
(setq comment-fill-prefix
(concat (make-string (/ (current-column) 8) ?\t)
***************
*** 736,742 ****
(save-excursion
(while (and (zerop (forward-line -1))
(looking-at (concat "^[ \t]*" comment-start))))
! (or (looking-at (concat ".*" comment-start))
(forward-line 1))
(point))
;; Find the beginning of the first line past the region to fill.
--- 736,742 ----
(save-excursion
(while (and (zerop (forward-line -1))
(looking-at (concat "^[ \t]*" comment-start))))
! (or (looking-at (concat ".*" comment-start))
(forward-line 1))
(point))
;; Find the beginning of the first line past the region to fill.
***************
*** 744,752 ****
(while (progn (forward-line 1)
(looking-at (concat "^[ \t]*" comment-start))))
(point)))
! (let* ((paragraph-start
(concat paragraph-start "\\|[ \t%]*$"))
! (paragraph-separate
(concat paragraph-start "\\|[ \t%]*$"))
(paragraph-ignore-fill-prefix nil)
(fill-prefix comment-fill-prefix)
--- 744,752 ----
(while (progn (forward-line 1)
(looking-at (concat "^[ \t]*" comment-start))))
(point)))
! (let* ((paragraph-start
(concat paragraph-start "\\|[ \t%]*$"))
! (paragraph-separate
(concat paragraph-start "\\|[ \t%]*$"))
(paragraph-ignore-fill-prefix nil)
(fill-prefix comment-fill-prefix)
***************
*** 789,809 ****
(defun meta-beginning-of-defun (&optional arg)
"Move backward to beginnning of a defun in Metafont or MetaPost code.
! With numeric argument, do it that many times.
Negative arg -N means move forward to Nth following beginning of defun.
Returns t unless search stops due to beginning or end of buffer."
(interactive "p")
(if (or (null arg) (= 0 arg)) (setq arg 1))
(and arg (< arg 0) (not (eobp)) (forward-char 1))
! (and (re-search-backward
(concat "\\<" meta-begin-defun-regexp "\\>") nil t arg)
(progn (goto-char (match-beginning 0))
(skip-chars-backward "%")
(skip-chars-backward " \t") t)))
!
(defun meta-end-of-defun (&optional arg)
"Move forward to end of a defun in Metafont or MetaPost code.
! With numeric argument, do it that many times.
Negative argument -N means move back to Nth preceding end of defun.
Returns t unless search stops due to beginning or end of buffer."
(interactive "p")
--- 789,809 ----
(defun meta-beginning-of-defun (&optional arg)
"Move backward to beginnning of a defun in Metafont or MetaPost code.
! With numeric argument, do it that many times.
Negative arg -N means move forward to Nth following beginning of defun.
Returns t unless search stops due to beginning or end of buffer."
(interactive "p")
(if (or (null arg) (= 0 arg)) (setq arg 1))
(and arg (< arg 0) (not (eobp)) (forward-char 1))
! (and (re-search-backward
(concat "\\<" meta-begin-defun-regexp "\\>") nil t arg)
(progn (goto-char (match-beginning 0))
(skip-chars-backward "%")
(skip-chars-backward " \t") t)))
!
(defun meta-end-of-defun (&optional arg)
"Move forward to end of a defun in Metafont or MetaPost code.
! With numeric argument, do it that many times.
Negative argument -N means move back to Nth preceding end of defun.
Returns t unless search stops due to beginning or end of buffer."
(interactive "p")
***************
*** 926,932 ****
()
(setq meta-mode-map (make-sparse-keymap))
(define-key meta-mode-map "\t" 'meta-indent-line)
! (define-key meta-mode-map "\C-m" 'reindent-then-newline-and-indent)
;; Comment Paragraphs:
; (define-key meta-mode-map "\M-a" 'backward-sentence)
; (define-key meta-mode-map "\M-e" 'forward-sentence)
--- 926,932 ----
()
(setq meta-mode-map (make-sparse-keymap))
(define-key meta-mode-map "\t" 'meta-indent-line)
! (define-key meta-mode-map "\C-m" 'reindent-then-newline-and-indent)
;; Comment Paragraphs:
; (define-key meta-mode-map "\M-a" 'backward-sentence)
; (define-key meta-mode-map "\M-e" 'forward-sentence)
***************
*** 950,960 ****
(define-key meta-mode-map "\M-\t" 'meta-complete-symbol)
;; Shell Commands:
; (define-key meta-mode-map "\C-c\C-c" 'meta-command-file)
! ; (define-key meta-mode-map "\C-c\C-k" 'meta-kill-job)
; (define-key meta-mode-map "\C-c\C-l" 'meta-recenter-output)
)
! (easy-menu-define
meta-mode-menu meta-mode-map
"Menu used in Metafont or MetaPost mode."
(list "Meta"
--- 950,960 ----
(define-key meta-mode-map "\M-\t" 'meta-complete-symbol)
;; Shell Commands:
; (define-key meta-mode-map "\C-c\C-c" 'meta-command-file)
! ; (define-key meta-mode-map "\C-c\C-k" 'meta-kill-job)
; (define-key meta-mode-map "\C-c\C-l" 'meta-recenter-output)
)
! (easy-menu-define
meta-mode-menu meta-mode-map
"Menu used in Metafont or MetaPost mode."
(list "Meta"
***************
*** 963,977 ****
"--"
["Indent Line" meta-indent-line t]
["Indent Environment" meta-indent-defun t]
! ["Indent Region" meta-indent-region
:active (meta-mark-active)]
["Indent Buffer" meta-indent-buffer t]
"--"
["Comment Out Environment" meta-comment-defun t]
["Uncomment Environment" meta-uncomment-defun t]
! ["Comment Out Region" meta-comment-region
:active (meta-mark-active)]
! ["Uncomment Region" meta-uncomment-region
:active (meta-mark-active)]
"--"
["Complete Symbol" meta-complete-symbol t]
--- 963,977 ----
"--"
["Indent Line" meta-indent-line t]
["Indent Environment" meta-indent-defun t]
! ["Indent Region" meta-indent-region
:active (meta-mark-active)]
["Indent Buffer" meta-indent-buffer t]
"--"
["Comment Out Environment" meta-comment-defun t]
["Uncomment Environment" meta-uncomment-defun t]
! ["Comment Out Region" meta-comment-region
:active (meta-mark-active)]
! ["Uncomment Region" meta-uncomment-region
:active (meta-mark-active)]
"--"
["Complete Symbol" meta-complete-symbol t]
***************
*** 1019,1027 ****
(make-local-variable 'paragraph-start)
(make-local-variable 'paragraph-separate)
! (setq paragraph-start
(concat page-delimiter "\\|$"))
! (setq paragraph-separate
(concat page-delimiter "\\|$"))
(make-local-variable 'paragraph-ignore-fill-prefix)
--- 1019,1027 ----
(make-local-variable 'paragraph-start)
(make-local-variable 'paragraph-separate)
! (setq paragraph-start
(concat page-delimiter "\\|$"))
! (setq paragraph-separate
(concat page-delimiter "\\|$"))
(make-local-variable 'paragraph-ignore-fill-prefix)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/meta-mode.el,
Juanma Barranquero <=