From d4510153b17625a3dd2f1852cc6392fc26efecf6 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Fri, 18 Mar 2011 09:28:59 +0100
Subject: Got rid of pesky font-lock-beginning-of-syntax-function warning

---
 emacs.d/nxhtml/util/mumamo.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'emacs.d')

diff --git a/emacs.d/nxhtml/util/mumamo.el b/emacs.d/nxhtml/util/mumamo.el
index 3fefa1a..c59300f 100644
--- a/emacs.d/nxhtml/util/mumamo.el
+++ b/emacs.d/nxhtml/util/mumamo.el
@@ -2828,7 +2828,8 @@ most major modes."
     ;;font-lock-mode-major-mode
     font-lock-set-defaults
     font-lock-syntax-table
-    font-lock-beginning-of-syntax-function
+    ;;font-lock-beginning-of-syntax-function
+    syntax-begin-function
     fontification-functions
     jit-lock-context-unfontify-pos
     jit-lock-mode
@@ -3105,7 +3106,7 @@ The main reasons for doing it this way is:
                (list 'font-lock-defaults (custom-quote (copy-tree font-lock-defaults)))
                ;; Syntactic Font Lock
                (list 'font-lock-syntax-table (custom-quote font-lock-syntax-table)) ;; See nXhtml bug 400415
-               (list 'font-lock-beginning-of-syntax-function (custom-quote font-lock-beginning-of-syntax-function))
+               (list 'syntax-begin-function (custom-quote syntax-begin-function))
                (list 'font-lock-syntactic-face-function (custom-quote font-lock-syntactic-face-function))
 
                ;; Other Font Lock Variables
@@ -4178,9 +4179,9 @@ after this in the properties below of the now created chunk:
                          syntax-begin-function)
                      (when (and (not syntax-begin-function)
                                 ;; fix-me: How to handle boundp here?
-                                (boundp 'font-lock-beginning-of-syntax-function)
-                                font-lock-beginning-of-syntax-function)
-                       font-lock-beginning-of-syntax-function)))))
+                                (boundp 'syntax-begin-function)
+                                syntax-begin-function)
+                       syntax-begin-function)))))
           (mumamo-msgfntfy "Got syntax-begin-function, modified=%s" (buffer-modified-p))
           (overlay-put this-chunk 'syntax-begin-function syntax-begin-function))
         )
@@ -7073,7 +7074,7 @@ This list consists of four chunks at these positions:
 ;;                  (eq indentor-buffer mumamo-template-indent-buffer)
 ;;                  (string= chunk-str (overlay-get indentor 'indentor-chunk-string)))
 ;;       (when indentor
-;;         (when (buffer-live-p 
+;;         (when (buffer-live-p
 ;;     indentor
 ;;     ))
 (defun mumamo-indentor-valid (indentor chunk chunk-string)
-- 
cgit v1.2.3-54-g00ecf