[debian-users:41604] Re: emacs-wiki (patch)

[Sacha Chua <sacha@xxxxxxxxxxx>]

Shin-ichi Tominaga <tomi_shin@xxxxxxxxx> writes:

> 全く同じ状態です。emacs-wiki での Font-Lock が egg のフェンスモードと
> 干渉しているようです。emacs-wiki mode で C-c C-l として Font-Lock mode 

わかりました。

patchは以下です。試みました。大丈夫と思います。
patchはよければ、私はすぐMichael Olsonに連絡します。

--- orig/emacs-wiki-colors.el
+++ mod/emacs-wiki-colors.el
@@ -500,14 +500,11 @@
        `(nil t nil nil 'beginning-of-line
          (font-lock-fontify-buffer-function . emacs-wiki-highlight-buffer)
          (font-lock-fontify-region-function . emacs-wiki-highlight-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)
   (font-lock-mode t))
 
 (defun emacs-wiki-mode-flyspell-verify ()
@@ -613,21 +610,6 @@
               (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
-                          mouse-face nil keymap nil help-echo nil))
-      (set-buffer-modified-p modified-p))))
-
 (defvar emacs-wiki-keymap-property
   (if (or (featurep 'xemacs)
           (>= emacs-major-version 21))

-- 
Sacha Chua <sacha@xxxxxxxxxxx> - open source geekette
interests: emacs, gnu/linux, making computer science education fun
wearable computing, personal information management
http://sacha.free.net.ph/ - PGP Key ID: 0xE7FDF77C