[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      06/11/06 02:34:27

Index: tpu-edt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/tpu-edt.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- tpu-edt.el  6 Feb 2006 11:37:05 -0000       1.46
+++ tpu-edt.el  6 Nov 2006 02:34:27 -0000       1.47
@@ -1141,7 +1141,7 @@
        R     Toggle rectangular mode for remove and insert
        S     Search and substitute - line mode REPLACE command
 
-      ^T     Toggle control key bindings between TPU and emacs
+      ^T     Toggle control key bindings between TPU and Emacs
        U     Undo - undo the last edit
        W     Write - save current buffer
        X     Exit - save all modified buffers and exit
@@ -1292,7 +1292,7 @@
   (kill-buffer (current-buffer)))
 
 (defun tpu-save-all-buffers-kill-emacs nil
-  "Save all buffers and exit emacs."
+  "Save all buffers and exit Emacs."
   (interactive)
   (let ((delete-old-versions t))
     (save-buffers-kill-emacs t)))
@@ -1852,8 +1852,8 @@
     (message "Replaced %s occurrence%s." strings (if (not (= 1 strings)) "s" 
""))))
 
 (defun tpu-emacs-replace (&optional dont-ask)
-  "A TPU-edt interface to the emacs replace functions.  If TPU-edt is
-currently in regular expression mode, the emacs regular expression
+  "A TPU-edt interface to the Emacs replace functions.  If TPU-edt is
+currently in regular expression mode, the Emacs regular expression
 replace functions are used.  If an argument is supplied, replacements
 are performed without asking.  Only works in forward direction."
   (interactive "P")
@@ -2285,7 +2285,7 @@
   (setq tpu-control-keys t))
 
 (defun tpu-reset-control-keys (tpu-style)
-  "Set control keys to TPU or emacs style functions."
+  "Set control keys to TPU or Emacs style functions."
   (let* ((tpu   (and tpu-style (not tpu-control-keys)))
         (emacs (and (not tpu-style) tpu-control-keys))
         (doit  (or tpu emacs)))