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
9b4c5ecd
Commit
9b4c5ecd
authored
Aug 21, 2009
by
Glenn Morris
Browse files
Use forward-line, not goto-line.
parent
ce86eeb5
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
22 additions
and
8 deletions
+22
-8
lisp/ChangeLog
lisp/ChangeLog
+8
-1
lisp/play/5x5.el
lisp/play/5x5.el
+2
-1
lisp/play/decipher.el
lisp/play/decipher.el
+2
-1
lisp/play/gomoku.el
lisp/play/gomoku.el
+2
-1
lisp/play/landmark.el
lisp/play/landmark.el
+2
-1
lisp/play/mpuz.el
lisp/play/mpuz.el
+6
-3
No files found.
lisp/ChangeLog
View file @
9b4c5ecd
...
...
@@ -26,7 +26,14 @@
Use help-print-return-message rather than the now obsolete alias.
* calendar/cal-move.el (calendar-cursor-to-nearest-date)
(calendar-cursor-to-visible-date): Use forward-line, not goto-line.
(calendar-cursor-to-visible-date):
* play/5x5.el (5x5-position-cursor):
* play/decipher.el (decipher):
* play/gomoku.el (gomoku-goto-xy):
* play/landmark.el (lm-goto-xy):
* play/mpuz.el (mpuz-paint-errors, mpuz-paint-statistics)
(mpuz-paint-digit):
Use forward-line, not goto-line.
* mail/rmail.el (rmail-obsolete): Delete custom group.
(rmail-pop-password, rmail-pop-password-required): Make into aliases.
...
...
lisp/play/5x5.el
View file @
9b4c5ecd
...
...
@@ -300,7 +300,8 @@ Quit current game \\[5x5-quit-game]"
(
defun
5x5-position-cursor
()
"Position the cursor on the grid."
(
goto-line
(
+
(
*
5x5-y-pos
5x5-y-scale
)
2
))
(
goto-char
(
point-min
))
(
forward-line
(
1+
(
*
5x5-y-pos
5x5-y-scale
)))
(
goto-char
(
+
(
point
)
(
*
5x5-x-pos
5x5-x-scale
)
(
+
5x5-x-pos
1
)
1
)))
(
defun
5x5-made-move
()
...
...
lisp/play/decipher.el
View file @
9b4c5ecd
...
...
@@ -274,7 +274,8 @@ ABCDEFGHIJKLMNOPQRSTUVWXYZ -*-decipher-*-\n)\n\n")
(insert "
>\n
"))))) ;Mark plaintext line
(delete-blank-lines) ;Remove any blank lines
(delete-blank-lines)) ; at end of buffer
(goto-line 4)
(goto-char (point-min))
(forward-line 3)
(decipher-mode))
;;;###autoload
...
...
lisp/play/gomoku.el
View file @
9b4c5ecd
...
...
@@ -989,7 +989,8 @@ If the game is finished, this command requests for another game."
(
defun
gomoku-goto-xy
(
x
y
)
"Move point to square at X, Y coords."
(
let
((
inhibit-point-motion-hooks
t
))
(
goto-line
(
+
1
gomoku-y-offset
(
*
gomoku-square-height
(
1-
y
)))))
(
goto-char
(
point-min
))
(
forward-line
(
+
gomoku-y-offset
(
*
gomoku-square-height
(
1-
y
)))))
(
move-to-column
(
+
gomoku-x-offset
(
*
gomoku-square-width
(
1-
x
)))))
(
defun
gomoku-plot-square
(
square
value
)
...
...
lisp/play/landmark.el
View file @
9b4c5ecd
...
...
@@ -876,7 +876,8 @@ If the game is finished, this command requests for another game."
(
defun
lm-goto-xy
(
x
y
)
"Move point to square at X, Y coords."
(
let
((
inhibit-point-motion-hooks
t
))
(
goto-line
(
+
1
lm-y-offset
(
*
lm-square-height
(
1-
y
)))))
(
goto-char
(
point-min
))
(
forward-line
(
+
lm-y-offset
(
*
lm-square-height
(
1-
y
)))))
(
move-to-column
(
+
lm-x-offset
(
*
lm-square-width
(
1-
x
)))))
(
defun
lm-plot-square
(
square
value
)
...
...
lisp/play/mpuz.el
View file @
9b4c5ecd
...
...
@@ -320,12 +320,14 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
(
defun
mpuz-paint-errors
()
"Paint error count on the puzzle screen."
(
mpuz-switch-to-window
)
(
goto-line
3
)
(
goto-char
(
point-min
))
(
forward-line
2
)
(
mpuz-paint-number
(
prin1-to-string
mpuz-nb-errors
)))
(
defun
mpuz-paint-statistics
()
"Paint statistics about previous games on the puzzle screen."
(
goto-line
7
)
(
goto-char
(
point-min
))
(
forward-line
6
)
(
mpuz-paint-number
(
prin1-to-string
mpuz-nb-completed-games
))
(
mpuz-paint-number
(
format
"%.2f"
...
...
@@ -352,7 +354,8 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
(
'mpuz-unsolved
))))
buffer-read-only
)
(
mapc
(
lambda
(
square
)
(
goto-line
(
car
square
))
; line before column!
(
goto-char
(
point-min
))
(
forward-line
(
1-
(
car
square
)))
; line before column!
(
move-to-column
(
cdr
square
))
(
insert
char
)
(
set-text-properties
(
1-
(
point
))
(
point
)
face
)
...
...
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