Commit 28d5de72 authored by Glenn Morris's avatar Glenn Morris
Browse files

Rename some landmark functions.

* lisp/play/landmark.el (lm-print-y,s,noise-int, lm-print-y,s,noise):
Rename functions without commas, update callers.
parent 4ef06429
2010-12-09 Glenn Morris <rgm@gnu.org>
* play/landmark.el (lm-print-y,s,noise-int, lm-print-y,s,noise):
Rename functions without commas, update callers.
2010-12-08 Vinicius Jose Latorre <viniciusjl@ig.com.br> 2010-12-08 Vinicius Jose Latorre <viniciusjl@ig.com.br>
   
* whitespace.el: New version 13.2. * whitespace.el: New version 13.2.
......
...@@ -1137,7 +1137,7 @@ because it is overwritten by \"One moment please\"." ...@@ -1137,7 +1137,7 @@ because it is overwritten by \"One moment please\"."
(defun lm-weights-debug () (defun lm-weights-debug ()
(if lm-debug (if lm-debug
(progn (lm-print-wts) (lm-blackbox) (lm-print-y,s,noise) (progn (lm-print-wts) (lm-blackbox) (lm-print-y-s-noise)
(lm-print-smell)))) (lm-print-smell))))
;;;_ - Printing various things ;;;_ - Printing various things
...@@ -1187,7 +1187,7 @@ because it is overwritten by \"One moment please\"." ...@@ -1187,7 +1187,7 @@ because it is overwritten by \"One moment please\"."
(insert (format "%S\n" moves)))) (insert (format "%S\n" moves))))
(defun lm-print-y,s,noise-int (direction) (defun lm-print-y-s-noise-int (direction)
(insert (format "%S:lm-y %S, s %S, noise %S \n" (insert (format "%S:lm-y %S, s %S, noise %S \n"
(symbol-name direction) (symbol-name direction)
(get direction 'y_t) (get direction 'y_t)
...@@ -1195,11 +1195,11 @@ because it is overwritten by \"One moment please\"." ...@@ -1195,11 +1195,11 @@ because it is overwritten by \"One moment please\"."
(get direction 'noise) (get direction 'noise)
))) )))
(defun lm-print-y,s,noise () (defun lm-print-y-s-noise ()
(interactive) (interactive)
(with-current-buffer "*lm-y,s,noise*" (with-current-buffer "*lm-y,s,noise*"
(insert "==============================\n") (insert "==============================\n")
(mapc 'lm-print-y,s,noise-int lm-directions))) (mapc 'lm-print-y-s-noise-int lm-directions)))
(defun lm-print-smell-int (direction) (defun lm-print-smell-int (direction)
(insert (format "%S: smell: %S \n" (insert (format "%S: smell: %S \n"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment