Jambunathan K <kjambunat...@gmail.com> writes: > Install the following defun, put the cursor on fontified text and do M-x > toggle-face. > > (defun toggle-face (&optional face-from) > (interactive (list (read-face-name "Face" (face-at-point)))) > (let ((f (assq face-from face-remapping-alist)) > (face-to 'default)) > (if f (setq face-remapping-alist (delq f face-remapping-alist)) > (push (cons face-from face-to) face-remapping-alist)))) > > See also (info "(elisp) Face Remapping")
For the benefit of novice readers, you need to try M-x toggle-face RET and M-x toggle-face RET twice in succession.
