* ew-scan-n.el: New file.

diff --git a/ChangeLog b/ChangeLog
index 8ed500a..b06c3c0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
 
+       * ew-scan-n.el: New file.
+
+1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
+
        * FLIM-ELS (flim-modules): Add `ew-scan-n'.
 
        * ew-dec.el: Require 'ew-scan-n.

diff --git a/ew-scan-n.el b/ew-scan-n.el
new file mode 100644 (file)
index 0000000..e89fcef
--- /dev/null
+++ b/ew-scan-n.el
@@ -0,0 +1,13 @@
+(require 'ew-data)
+(require 'ew-parse)
+(provide 'ew-scan-n)
+
+(defun ew-scan-none (col str)
+  (let ((res (ew-make-anchor col str)))
+    (ew-add-frag res 0 (length str) 'ew:n-body)
+    (ew-terminate res)
+    res))
+
+(defalias 'ew-scan-unibyte-none 'ew-scan-none)
+(defalias 'ew-scan-multibyte-none 'ew-scan-none)
+