diff options
Diffstat (limited to 'lisp/font-core.el')
| -rw-r--r-- | lisp/font-core.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/font-core.el b/lisp/font-core.el index 098253eb162..1b15d8cd30e 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -160,8 +160,8 @@ this function onto `change-major-mode-hook'." (defun font-lock-default-function (mode) ;; Turn on Font Lock mode. (when mode - (set (make-local-variable 'char-property-alias-alist) - (copy-tree char-property-alias-alist)) + (setq-local char-property-alias-alist + (copy-tree char-property-alias-alist)) ;; Add `font-lock-face' as an alias for the `face' property. (let ((elt (assq 'face char-property-alias-alist))) (if elt @@ -171,8 +171,8 @@ this function onto `change-major-mode-hook'." ;; Turn off Font Lock mode. (unless mode ;; Remove `font-lock-face' as an alias for the `face' property. - (set (make-local-variable 'char-property-alias-alist) - (copy-tree char-property-alias-alist)) + (setq-local char-property-alias-alist + (copy-tree char-property-alias-alist)) (let ((elt (assq 'face char-property-alias-alist))) (when elt (setcdr elt (remq 'font-lock-face (cdr elt))) |