>>384 ちょっとだけ

(defun set-whitespace-line-column (mode column)
(let ((hook (intern (concat (symbol-name mode) "-hook"))))
(add-hook hook
`(lambda ()
(setq whitespace-line-column ,column)))))

あるいは Emacs 24 系で lexical-binding を使うか。