From 28d5de724339d0a44360b37ab795ca1ac364ddd9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 8 Dec 2010 21:55:25 -0800 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/play/landmark.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a47c160100..5abbfa39e23 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-12-09 Glenn Morris + + * 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 * whitespace.el: New version 13.2. diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index e6a271caec2..0db1041e307 100644 --- 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" -- 2.39.2