(setq riece-hangman-words-buffer (generate-new-buffer " *riece-hangman*"))
(save-excursion
(set-buffer riece-hangman-words-buffer)
(buffer-disable-undo)
(insert-file-contents riece-hangman-words-file)
(let ((case-fold-search nil))
(setq riece-hangman-words-buffer (generate-new-buffer " *riece-hangman*"))
(save-excursion
(set-buffer riece-hangman-words-buffer)
(buffer-disable-undo)
(insert-file-contents riece-hangman-words-file)
(let ((case-fold-search nil))