# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1291874125 28800
# Node ID 833dc58a519e3eb1f23d403a6dd3667190de4bc8
# Parent  c587007a09f2105ef5b9f2b37a861196aadea354
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.

diff -r c587007a09f2 -r 833dc58a519e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Dec 08 22:16:36 2010 +0000
+++ b/lisp/ChangeLog	Wed Dec 08 21:55:25 2010 -0800
@@ -1,3 +1,8 @@
+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>
 
 	* whitespace.el: New version 13.2.
diff -r c587007a09f2 -r 833dc58a519e lisp/play/landmark.el
--- a/lisp/play/landmark.el	Wed Dec 08 22:16:36 2010 +0000
+++ b/lisp/play/landmark.el	Wed Dec 08 21:55:25 2010 -0800
@@ -1137,7 +1137,7 @@
 
 (defun lm-weights-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))))
 
 ;;;_  - Printing various things
@@ -1187,7 +1187,7 @@
     (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"
 		    (symbol-name direction)
 		    (get direction 'y_t)
@@ -1195,11 +1195,11 @@
 		    (get direction 'noise)
 		    )))
 
-(defun lm-print-y,s,noise ()
+(defun lm-print-y-s-noise ()
   (interactive)
   (with-current-buffer "*lm-y,s,noise*"
     (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)
   (insert (format "%S: smell: %S \n"