[emacs-wiki-discuss] Again, japanese-egg does not work.

[Yamagata Yoriyuki]

japanese-egg does not work in the EmacsWiki mode, again.  The
EmacsWiki version I'm using is
address@hidden/emacs-wiki--main--1.0 patch-69 (most recent in
the repository) without any modification.  The problem disappears by
disabling font-lock-mode.

The symptom is the same one which fixed by Sacha Chua's patch before.
When putting Japanese text using egg, strange ! mark appears (which
normally does not)
|てすと!|
Nothing happens when pushing "Enter" key in this state.  Normally, it
should enter the text "てすと" in the buffer.  After conversion (by
pushing "Space" key),
 |テスト|
! mark disappear. But then, pushing "Enter" removes the fence but does
not enter any text.

The fix (in the same as Sacha Chua's patch) solves the problem (for
me.)

--- emacs-wiki-colors.el.orig   2005-05-22 14:17:26.000000000 +0900
+++ emacs-wiki-colors.el        2005-05-22 18:50:39.000000000 +0900
@@ -593,14 +593,15 @@
           . emacs-wiki-highlight-buffer)
          (font-lock-fontify-region-function
           . emacs-wiki-highlight-region)
-         (font-lock-unfontify-region-function
-          . emacs-wiki-unhighlight-region)))
+         ;;(font-lock-unfontify-region-function
+         ;; . emacs-wiki-unhighlight-region)
+        ))
   (set (make-local-variable 'font-lock-fontify-buffer-function)
        'emacs-wiki-highlight-buffer)
   (set (make-local-variable 'font-lock-fontify-region-function)
        'emacs-wiki-highlight-region)
-  (set (make-local-variable 'font-lock-unfontify-region-function)
-       'emacs-wiki-unhighlight-region)
+;;  (set (make-local-variable 'font-lock-unfontify-region-function)
+;;       'emacs-wiki-unhighlight-region)
   (emacs-wiki-make-faces)
   (font-lock-mode t))
 
@@ -712,19 +713,19 @@
               (if verbose (message "Highlighting buffer...done")))))
       (set-buffer-modified-p modified-p))))
 
-(defun emacs-wiki-unhighlight-region (begin end &optional verbose)
-  "Remove all visual highlights in the buffer (except font-lock)."
-  (let ((buffer-undo-list t)
-        (inhibit-read-only t)
-        (inhibit-point-motion-hooks t)
-        (inhibit-modification-hooks t)
-        (modified-p (buffer-modified-p))
-        deactivate-mark)
-    (unwind-protect
-        (remove-text-properties
-         begin end '(face nil font-lock-multiline nil
-                          invisible nil intangible nil display nil))
-      (set-buffer-modified-p modified-p))))
+;; (defun emacs-wiki-unhighlight-region (begin end &optional verbose)
+;;   "Remove all visual highlights in the buffer (except font-lock)."
+;;   (let ((buffer-undo-list t)
+;;         (inhibit-read-only t)
+;;         (inhibit-point-motion-hooks t)
+;;         (inhibit-modification-hooks t)
+;;         (modified-p (buffer-modified-p))
+;;         deactivate-mark)
+;;     (unwind-protect
+;;         (remove-text-properties
+;;          begin end '(face nil font-lock-multiline nil
+;;                           invisible nil intangible nil display nil))
+;;       (set-buffer-modified-p modified-p))))
 
 (defvar emacs-wiki-keymap-property
   (if (or (featurep 'xemacs)

--
Yamagata Yoriyuki