diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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" |