Mercurial > emacs
changeset 111856:833dc58a519e
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 08 Dec 2010 21:55:25 -0800 |
| parents | c587007a09f2 |
| children | b8a431283d07 |
| files | lisp/ChangeLog lisp/play/landmark.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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"