branch: master
commit ad24c9da7494c80e31f6dad703afc2eacb452230
Author: alanshutko <alanshutko>
Commit: alanshutko <alanshutko>
* mmm-noweb.el (mmm-syntax-region-list)
(mmm-syntax-other-regions, mmm-word-other-regions)
(mmm-space-other-regions, mmm-undo-syntax-other-regions): Added
from Joe's email. They're here right now, until a better place
can be found.
* configure.in: Incr version for release.
---
.cvsignore | 2 ++
ChangeLog | 10 ++++++++++
NEWS | 9 ++-------
configure.in | 2 +-
mmm-noweb.el | 45 ++++++++++++++++++++++++++++++++++++++++++++-
version.texi | 4 ++--
6 files changed, 61 insertions(+), 11 deletions(-)
diff --git a/.cvsignore b/.cvsignore
index 82fbbef..837122e 100755
--- a/.cvsignore
+++ b/.cvsignore
@@ -2,11 +2,13 @@
Makefile
Makefile.in
aclocal.m4
+autom4te.cache
confdefs.h
config.cache
config.log
config.status
configure
+elc-stamp
mmm.info*
script
semantic.cache
diff --git a/ChangeLog b/ChangeLog
index 517f49d..499f606 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2004-06-16 Alan Shutko <[email protected]>
+
+ * mmm-noweb.el (mmm-syntax-region-list)
+ (mmm-syntax-other-regions, mmm-word-other-regions)
+ (mmm-space-other-regions, mmm-undo-syntax-other-regions): Added
+ from Joe's email. They're here right now, until a better place
+ can be found.
+
+ * configure.in: Incr version for release.
+
2004-06-10 Alan Shutko <[email protected]>
* mmm-class.el (mmm-ify): Change defaults for front-delim and
diff --git a/NEWS b/NEWS
index 34a0335..41a1512 100644
--- a/NEWS
+++ b/NEWS
@@ -1,15 +1,11 @@
MMM Mode NEWS -- history of user-visible changes. -*-outline-*-
-Copyright (C) 2003 Michael Abraham Shulman
+Copyright (C) 2003, 2004 Michael Abraham Shulman
See the file COPYING for copying conditions.
Please submit bug reports at http://sourceforge.net/projects/mmm-mode/
* Changes in MMM Mode 0.4.8
-** Improved Syntax Handling
-
-(Not actually added yet, but it will be by the time 0.4.8 is released)
-
** Delimiter Regions
The delimiters which mark off submode regions now have their own
@@ -30,8 +26,7 @@ included for people who wish to build their own SRPM to
install from.
Many thanks to Joe Kelsey for writing a very intelligent class for
editing Noweb files, and to Alan Shutko for one for CWeb files. We
-also have a mode for SGML DTD definitions from Yann Dirson, and (at
-long last) a PHP mode.
+also have a mode for SGML DTD definitions from Yann Dirson.
** Numerous bugfixes and small improvements
diff --git a/configure.in b/configure.in
index a7fdcc6..9663648 100644
--- a/configure.in
+++ b/configure.in
@@ -1,7 +1,7 @@
dnl Process this file with autoconf to produce a configure script.
AC_INIT()
-AM_INIT_AUTOMAKE(mmm-mode, 0.4.7)
+AM_INIT_AUTOMAKE(mmm-mode, 0.4.8)
dnl
dnl Apparently, if you run a shell window in Emacs, it sets the EMACS
diff --git a/mmm-noweb.el b/mmm-noweb.el
index f860dc1..ec0e5d3 100644
--- a/mmm-noweb.el
+++ b/mmm-noweb.el
@@ -1,6 +1,6 @@
;;; mmm-noweb.el --- MMM submode class for Noweb programs
;;
-;; Copyright 2003 Joe Kelsey <[email protected]>
+;; Copyright 2003, 2004 Joe Kelsey <[email protected]>
;;
;; The filling, completion and chunk motion commands either taken
;; directly from or inspired by code in:
@@ -362,6 +362,49 @@ chunks."
;;}}}
+;; These functions below living here temporarily until a real place is
+;; found.
+
+(defun mmm-syntax-region-list (syntax regions)
+ "Apply SYNTAX to a list of REGIONS of the form (BEG END).
+If SYNTAX is not nil, set the syntax-table property of each region.
+If SYNTAX is nil, remove the region syntax-table property.
+See `mmm-syntax-region'."
+ (mapcar #'(lambda (reg)
+ (mmm-syntax-region (car reg) (cadr reg) syntax))
+ regions))
+
+(defun mmm-syntax-other-regions (syntax &optional name)
+ "Apply SYNTAX cell to other regions.
+Regions are separated by name, using either `mmm-name-at' or the
+optional NAME to determine the current region name."
+ (if (null name)
+ (setq name (or (mmm-name-at)
+ (symbol-name mmm-primary-mode))))
+ (mapcar #'(lambda (reg)
+ (if (not (string= (car reg) name))
+ (mmm-syntax-region-list syntax (cdr reg))))
+ (mmm-names-alist (point-min) (point-max))))
+
+(defun mmm-word-other-regions ()
+ "Give all other regions word syntax."
+ (interactive)
+ (mmm-syntax-other-regions '(2 . 0))
+ (setq parse-sexp-lookup-properties t))
+
+(defun mmm-space-other-regions ()
+ "Give all other regions space syntax."
+ (interactive)
+ (mmm-syntax-other-regions '(0 . 0))
+ (setq parse-sexp-lookup-properties t))
+
+(defun mmm-undo-syntax-other-regions ()
+ "Remove syntax-table property from other regions."
+ (interactive)
+ (mmm-syntax-other-regions nil)
+ (setq parse-sexp-lookup-properties nil))
+
+
(provide 'mmm-noweb)
;;; mmm-noweb.el ends here
\ No newline at end of file
diff --git a/version.texi b/version.texi
index a171c5d..659389c 100644
--- a/version.texi
+++ b/version.texi
@@ -1,4 +1,4 @@
-@set UPDATED 21 February 2003
-@set UPDATED-MONTH February 2003
+@set UPDATED 9 March 2003
+@set UPDATED-MONTH March 2003
@set EDITION 0.4.7
@set VERSION 0.4.7
