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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a47c160100baf7a5e3a8598ad9d2dcd59f2d6ed..5abbfa39e231b32d1c070338720aedd763851245 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index e6a271caec2ca7ddd1f5c7de29cbc35816fc078e..0db1041e307f41e16fdeaaa56babada782117eed 100644 (file)
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1137,7 +1137,7 @@ because it is overwritten by \"One moment please\"."
 
 (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 @@ because it is overwritten by \"One moment please\"."
     (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 @@ because it is overwritten by \"One moment please\"."
                    (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"