aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1991-04-10 15:06:00 +0000
committerJim Blandy1991-04-10 15:06:00 +0000
commita09635667661436b3a1946c5966d9fc522d987cd (patch)
treee0b289cab4c79481fa6af680c87bd4ca854e419e
parent5d11560e4c14b6665712fced04b16b62bc20d1fd (diff)
downloademacs-a09635667661436b3a1946c5966d9fc522d987cd.tar.gz
emacs-a09635667661436b3a1946c5966d9fc522d987cd.zip
*** 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."
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."
265in 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."
412in 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
80You have to guess which letters stand for which digits 80You have to guess which letters stand for which digits in the
81in the mulplication displayed inside the *Mult Puzzle* buffer. 81multiplication displayed inside the *Mult Puzzle* buffer.
82 82
83You may enter a proposal (e.g. A=3) by hitting first the letter A, 83You may enter a proposal (e.g. A=3) by hitting first the letter A,
84then the digit 3, on your keyboard. 84then the digit 3, on your keyboard.
85 85
86At any time, you may leave the game to do other editing work :-) 86At any time you may leave the game to do other editing work. :-)
87Then you may resume the game with M-x mult-puzzle. 87Then you may resume the game with M-x mult-puzzle.
88You may abort a game by hitting Control G." 88You 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.")