Skip to content

Instantly share code, notes, and snippets.

@tek-nishi
Last active August 10, 2017 08:52
Show Gist options
  • Save tek-nishi/f722d0637087d282232e2c81c76cab9f to your computer and use it in GitHub Desktop.
Save tek-nishi/f722d0637087d282232e2c81c76cab9f to your computer and use it in GitHub Desktop.
構文の間違いlispを警告するfont-lockをscratch bufferでだけ無効にする
;; 構文の間違いlispを警告するfont-lockを無効にする
(defadvice lisp--match-hidden-arg (around lisp--match-hidden-arg-wrapper)
(if (not (and (boundp 'use-my-lisp--match-hidden-arg) 'use-my-lisp--match-hidden-arg))
ad-do-it))
(ad-activate 'lisp--match-hidden-arg)
;; scratch buffer の hook
(defun lisp-interaction-mode-hooks()
(set (make-local-variable 'use-my-lisp--match-hidden-arg) t))
(add-hook 'lisp-interaction-mode-hook 'lisp-interaction-mode-hooks)
@tek-nishi
Copy link
Author

font-lockで警告が出ていたので修正

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment