summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1991-04-10 15:06:00 +0000
committerJim Blandy <jimb@redhat.com>1991-04-10 15:06:00 +0000
commita09635667661436b3a1946c5966d9fc522d987cd (patch)
treee0b289cab4c79481fa6af680c87bd4ca854e419e
parent5d11560e4c14b6665712fced04b16b62bc20d1fd (diff)
downloademacs-a09635667661436b3a1946c5966d9fc522d987cd.tar.gz
*** empty log message ***
-rw-r--r--lisp/nnspool.el5
-rw-r--r--lisp/nntp.el3
-rw-r--r--lisp/play/mpuz.el14
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."
(nnspool-find-file nnspool-active-file)))
(defun nnspool-request-last ()
- "Set current article pointer to the previous article
-in the current news group."
+ "Set current article pointer to the previous article in the current news group."
(error "NNSPOOL: LAST is not implemented."))
(defun nnspool-request-next ()
@@ -326,7 +325,7 @@ in the current news group."
(setq nntp-server-process nil))
(defun nnspool-find-article-by-message-id (id)
- "Return full pathname of an artilce identified by message-ID."
+ "Return full pathname of an article identified by message-ID."
(save-excursion
(let ((buffer (get-file-buffer nnspool-history-file)))
(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."
))
(defun nntp-request-last ()
- "Set current article pointer to the previous article
-in the current news group."
+ "Set current article pointer to the previous article in the current news group."
(nntp-send-command "^[23].*\r$" "LAST"))
(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 @@
"*Set this to T if you don't want dings on inputs.")
(defun mpuz-ding ()
- "Dings, unless global variable MPUZ-SILENT forbids it."
+ "Dings, unless global variable `mpuz-silent' forbids it."
(or mpuz-silent (ding t)))
@@ -77,15 +77,15 @@
(defun mpuz-mode ()
"Multiplication puzzle with GNU Emacs.
-You have to guess which letters stand for which digits
-in the mulplication displayed inside the *Mult Puzzle* buffer.
+You have to guess which letters stand for which digits in the
+multiplication displayed inside the *Mult Puzzle* buffer.
You may enter a proposal (e.g. A=3) by hitting first the letter A,
then the digit 3, on your keyboard.
-At any time, you may leave the game to do other editing work :-)
+At any time you may leave the game to do other editing work. :-)
Then you may resume the game with M-x mult-puzzle.
-You may abort a game by hitting Control G."
+You may abort a game by hitting \\[keyboard-quit]."
(interactive)
(setq major-mode 'mpuz-mode
mode-name "Mult Puzzle")
@@ -96,10 +96,10 @@ You may abort a game by hitting Control G."
;; Some variables for statistics
;;------------------------------
(defvar mpuz-nb-errors 0
- "Number of errors already made in current game.")
+ "Number of errors made in current game.")
(defvar mpuz-nb-completed-games 0
- "Number of games already completed.")
+ "Number of games completed.")
(defvar mpuz-nb-cumulated-errors 0
"Number of errors made in previous games.")