ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Got rid of pesky font-lock-beginning-of-syntax-function warning

Browse source
This commit is contained in:
Tom Willemsen 2011-03-18 09:28:59 +01:00
parent 8d414d1bca
commit d4510153b1
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
emacs.d/nxhtml/util/mumamo.el
View file

@ -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)