diff options
| author | Jim Blandy | 1991-04-10 15:06:00 +0000 |
|---|---|---|
| committer | Jim Blandy | 1991-04-10 15:06:00 +0000 |
| commit | a09635667661436b3a1946c5966d9fc522d987cd (patch) | |
| tree | e0b289cab4c79481fa6af680c87bd4ca854e419e | |
| parent | 5d11560e4c14b6665712fced04b16b62bc20d1fd (diff) | |
| download | emacs-a09635667661436b3a1946c5966d9fc522d987cd.tar.gz emacs-a09635667661436b3a1946c5966d9fc522d987cd.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/nnspool.el | 5 | ||||
| -rw-r--r-- | lisp/nntp.el | 3 | ||||
| -rw-r--r-- | lisp/play/mpuz.el | 14 |
3 files changed, 10 insertions, 12 deletions
diff --git a/lisp/nnspool.el b/lisp/nnspool.el index 73c1b297ab9..8c5a36ca6ba 100644 --- a/lisp/nnspool.el +++ b/lisp/nnspool.el | |||
| @@ -261,8 +261,7 @@ If the stream is opened, return T, otherwise return NIL." | |||
| 261 | (nnspool-find-file nnspool-active-file))) | 261 | (nnspool-find-file nnspool-active-file))) |
| 262 | 262 | ||
| 263 | (defun nnspool-request-last () | 263 | (defun nnspool-request-last () |
| 264 | "Set current article pointer to the previous article | 264 | "Set current article pointer to the previous article in the current news group." |
| 265 | in the current news group." | ||
| 266 | (error "NNSPOOL: LAST is not implemented.")) | 265 | (error "NNSPOOL: LAST is not implemented.")) |
| 267 | 266 | ||
| 268 | (defun nnspool-request-next () | 267 | (defun nnspool-request-next () |
| @@ -326,7 +325,7 @@ in the current news group." | |||
| 326 | (setq nntp-server-process nil)) | 325 | (setq nntp-server-process nil)) |
| 327 | 326 | ||
| 328 | (defun nnspool-find-article-by-message-id (id) | 327 | (defun nnspool-find-article-by-message-id (id) |
| 329 | "Return full pathname of an artilce identified by message-ID." | 328 | "Return full pathname of an article identified by message-ID." |
| 330 | (save-excursion | 329 | (save-excursion |
| 331 | (let ((buffer (get-file-buffer nnspool-history-file))) | 330 | (let ((buffer (get-file-buffer nnspool-history-file))) |
| 332 | (if buffer | 331 | (if buffer |
diff --git a/lisp/nntp.el b/lisp/nntp.el index 78f0f89e30d..6bb7a741076 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el | |||
| @@ -408,8 +408,7 @@ If the stream is opened, return T, otherwise return NIL." | |||
| 408 | )) | 408 | )) |
| 409 | 409 | ||
| 410 | (defun nntp-request-last () | 410 | (defun nntp-request-last () |
| 411 | "Set current article pointer to the previous article | 411 | "Set current article pointer to the previous article in the current news group." |
| 412 | in the current news group." | ||
| 413 | (nntp-send-command "^[23].*\r$" "LAST")) | 412 | (nntp-send-command "^[23].*\r$" "LAST")) |
| 414 | 413 | ||
| 415 | (defun nntp-request-next () | 414 | (defun nntp-request-next () |
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index ff33fbe1640..f4d622ad819 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | "*Set this to T if you don't want dings on inputs.") | 31 | "*Set this to T if you don't want dings on inputs.") |
| 32 | 32 | ||
| 33 | (defun mpuz-ding () | 33 | (defun mpuz-ding () |
| 34 | "Dings, unless global variable MPUZ-SILENT forbids it." | 34 | "Dings, unless global variable `mpuz-silent' forbids it." |
| 35 | (or mpuz-silent (ding t))) | 35 | (or mpuz-silent (ding t))) |
| 36 | 36 | ||
| 37 | 37 | ||
| @@ -77,15 +77,15 @@ | |||
| 77 | (defun mpuz-mode () | 77 | (defun mpuz-mode () |
| 78 | "Multiplication puzzle with GNU Emacs. | 78 | "Multiplication puzzle with GNU Emacs. |
| 79 | 79 | ||
| 80 | You have to guess which letters stand for which digits | 80 | You have to guess which letters stand for which digits in the |
| 81 | in the mulplication displayed inside the *Mult Puzzle* buffer. | 81 | multiplication displayed inside the *Mult Puzzle* buffer. |
| 82 | 82 | ||
| 83 | You may enter a proposal (e.g. A=3) by hitting first the letter A, | 83 | You may enter a proposal (e.g. A=3) by hitting first the letter A, |
| 84 | then the digit 3, on your keyboard. | 84 | then the digit 3, on your keyboard. |
| 85 | 85 | ||
| 86 | At any time, you may leave the game to do other editing work :-) | 86 | At any time you may leave the game to do other editing work. :-) |
| 87 | Then you may resume the game with M-x mult-puzzle. | 87 | Then you may resume the game with M-x mult-puzzle. |
| 88 | You may abort a game by hitting Control G." | 88 | You may abort a game by hitting \\[keyboard-quit]." |
| 89 | (interactive) | 89 | (interactive) |
| 90 | (setq major-mode 'mpuz-mode | 90 | (setq major-mode 'mpuz-mode |
| 91 | mode-name "Mult Puzzle") | 91 | mode-name "Mult Puzzle") |
| @@ -96,10 +96,10 @@ You may abort a game by hitting Control G." | |||
| 96 | ;; Some variables for statistics | 96 | ;; Some variables for statistics |
| 97 | ;;------------------------------ | 97 | ;;------------------------------ |
| 98 | (defvar mpuz-nb-errors 0 | 98 | (defvar mpuz-nb-errors 0 |
| 99 | "Number of errors already made in current game.") | 99 | "Number of errors made in current game.") |
| 100 | 100 | ||
| 101 | (defvar mpuz-nb-completed-games 0 | 101 | (defvar mpuz-nb-completed-games 0 |
| 102 | "Number of games already completed.") | 102 | "Number of games completed.") |
| 103 | 103 | ||
| 104 | (defvar mpuz-nb-cumulated-errors 0 | 104 | (defvar mpuz-nb-cumulated-errors 0 |
| 105 | "Number of errors made in previous games.") | 105 | "Number of errors made in previous games.") |