> + (defface compilation-error-file-name > + '((default :inherit font-lock-warning-face) > + (((supports :underline t)) :underline t)) > + "Face for displaying file names in compilation errors." > + :group 'font-lock-highlighting-faces > + :version "22.1")
Is there a reason you use '((default :inherit font-lock-warning-face) (((supports :underline t)) :underline t)) rather than '((default :inherit font-lock-warning-face) (t :underline t)) after all, if it's not supported the setting is harmless. Stefan _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel