Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a0963566
Commit
a0963566
authored
Apr 10, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
5d11560e
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
10 additions
and
12 deletions
+10
-12
lisp/nnspool.el
lisp/nnspool.el
+2
-3
lisp/nntp.el
lisp/nntp.el
+1
-2
lisp/play/mpuz.el
lisp/play/mpuz.el
+7
-7
No files found.
lisp/nnspool.el
View file @
a0963566
...
...
@@ -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 arti
l
ce identified by message-ID."
"Return full pathname of an artic
l
e identified by message-ID."
(
save-excursion
(
let
((
buffer
(
get-file-buffer
nnspool-history-file
)))
(
if
buffer
...
...
lisp/nntp.el
View file @
a0963566
...
...
@@ -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
()
...
...
lisp/play/mpuz.el
View file @
a0963566
...
...
@@ -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
mul
ti
plication 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."
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment