emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r102614: Rename some landmark functio


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r102614: Rename some landmark functions.
Date: Wed, 08 Dec 2010 21:55:25 -0800
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 102614
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-12-08 21:55:25 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/play/landmark.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-08 19:25:11 +0000
+++ b/lisp/ChangeLog    2010-12-09 05:55:25 +0000
@@ -1,3 +1,8 @@
+2010-12-09  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * whitespace.el: New version 13.2.

=== modified file 'lisp/play/landmark.el'
--- a/lisp/play/landmark.el     2010-11-11 03:57:02 +0000
+++ b/lisp/play/landmark.el     2010-12-09 05:55:25 +0000
@@ -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"


reply via email to

[Prev in Thread] Current Thread [Next in Thread]