projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't use old-style backquote in doc/ptexinfmt.el.
[riece]
/
lisp
/
riece-hangman.el
diff --git
a/lisp/riece-hangman.el
b/lisp/riece-hangman.el
index
a559c36
..
426935e
100644
(file)
--- a/
lisp/riece-hangman.el
+++ b/
lisp/riece-hangman.el
@@
-18,8
+18,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-96,14
+96,12
@@
The wordlist is read from `riece-hangman-words-file'."
(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)
@@
-231,9
+229,6
@@
The wordlist is read from `riece-hangman-words-file'."
(defun riece-hangman-enable ()
(random t))
(defun riece-hangman-enable ()
(random t))
-(defun riece-hangman-disable ()
- )
-
(provide 'riece-hangman)
;;; riece-hangman.el ends here
(provide 'riece-hangman)
;;; riece-hangman.el ends here