warnings; `save-excursion' defeated by `set-buffer'.
2010-09-12 TAKAHASHI Kaoru <kaoru@kaisei.org>
2010-09-12 TAKAHASHI Kaoru <kaoru@kaisei.org>
+ * riece-hangman.el (riece-hangman-word): Suppress byte-compile
+ warnings; `save-excursion' defeated by `set-buffer'.
+
* riece-server.el (riece-reset-process-buffer): Suppress
byte-compile warnings; `save-excursion' defeated by `set-buffer'.
* riece-server.el (riece-reset-process-buffer): Suppress
byte-compile warnings; `save-excursion' defeated by `set-buffer'.
(unless (and riece-hangman-words-buffer
(buffer-name riece-hangman-words-buffer))
(setq riece-hangman-words-buffer (generate-new-buffer " *riece-hangman*"))
(unless (and riece-hangman-words-buffer
(buffer-name riece-hangman-words-buffer))
(setq riece-hangman-words-buffer (generate-new-buffer " *riece-hangman*"))
- (save-excursion
- (set-buffer riece-hangman-words-buffer)
+ (with-current-buffer riece-hangman-words-buffer
(buffer-disable-undo)
(insert-file-contents riece-hangman-words-file)
(let ((case-fold-search nil))
(delete-non-matching-lines "^[a-z][a-z][a-z][a-z][a-z][a-z]+"))))
(buffer-disable-undo)
(insert-file-contents riece-hangman-words-file)
(let ((case-fold-search nil))
(delete-non-matching-lines "^[a-z][a-z][a-z][a-z][a-z][a-z]+"))))
- (save-excursion
- (set-buffer riece-hangman-words-buffer)
+ (with-current-buffer riece-hangman-words-buffer
(goto-char (1+ (random (buffer-size))))
(if (eobp)
(beginning-of-line -1)
(goto-char (1+ (random (buffer-size))))
(if (eobp)
(beginning-of-line -1)