(when (and (boundp 'whitespace-style)
(fboundp 'whitespace-mode))
(let ((whitespace-style (remove 'trailing whitespace-style)))
- (whitespace-mode arg))))
+ (whitespace-mode arg))
+ (setq show-trailing-whitespace whitespace-mode)))
(defun mdw-misc-mode-config ()
(and mdw-auto-indent
(mdw-define-face variable-pitch
(((type x)) :family "sans" :height 100))
(mdw-define-face variable-pitch
- (((type x)) :family "helvetica" :height 120)))
+ (((type x)) :family "helvetica" :height 90)))
(mdw-define-face region
(((type tty) (class color)) :background "blue")
(((type tty) (class mono)) :inverse-video t)