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-mode-major-mode
font-lock-set-defaults font-lock-set-defaults
font-lock-syntax-table font-lock-syntax-table
font-lock-beginning-of-syntax-function ;;font-lock-beginning-of-syntax-function
syntax-begin-function
fontification-functions fontification-functions
jit-lock-context-unfontify-pos jit-lock-context-unfontify-pos
jit-lock-mode 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))) (list 'font-lock-defaults (custom-quote (copy-tree font-lock-defaults)))
;; Syntactic Font Lock ;; Syntactic Font Lock
(list 'font-lock-syntax-table (custom-quote font-lock-syntax-table)) ;; See nXhtml bug 400415 (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)) (list 'font-lock-syntactic-face-function (custom-quote font-lock-syntactic-face-function))
;; Other Font Lock Variables ;; Other Font Lock Variables
@ -4178,9 +4179,9 @@ after this in the properties below of the now created chunk:
syntax-begin-function) syntax-begin-function)
(when (and (not syntax-begin-function) (when (and (not syntax-begin-function)
;; fix-me: How to handle boundp here? ;; fix-me: How to handle boundp here?
(boundp 'font-lock-beginning-of-syntax-function) (boundp 'syntax-begin-function)
font-lock-beginning-of-syntax-function) syntax-begin-function)
font-lock-beginning-of-syntax-function))))) syntax-begin-function)))))
(mumamo-msgfntfy "Got syntax-begin-function, modified=%s" (buffer-modified-p)) (mumamo-msgfntfy "Got syntax-begin-function, modified=%s" (buffer-modified-p))
(overlay-put this-chunk 'syntax-begin-function syntax-begin-function)) (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) ;; (eq indentor-buffer mumamo-template-indent-buffer)
;; (string= chunk-str (overlay-get indentor 'indentor-chunk-string))) ;; (string= chunk-str (overlay-get indentor 'indentor-chunk-string)))
;; (when indentor ;; (when indentor
;; (when (buffer-live-p ;; (when (buffer-live-p
;; indentor ;; indentor
;; )) ;; ))
(defun mumamo-indentor-valid (indentor chunk chunk-string) (defun mumamo-indentor-valid (indentor chunk chunk-string)