From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 29 Aug 1995 14:55:25 +0000 (+0000)
Subject: (wordstar-center-line): Renamed from center-line.
X-Git-Tag: emacs-19.34~2891
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2486eb97d7105669a8c572256be5300df89773bd;p=emacs.git

(wordstar-center-line): Renamed from center-line.
(wordstar-center-region): Renamed from center-region.
(wordstar-center-paragraph): Renamed from center-paragraph.
---

diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index a822ba13c04..e18d26b0066 100644
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -121,8 +121,8 @@
   ;; wordstar-C-o-map
   
   (define-key wordstar-C-o-map " " ())
-  (define-key wordstar-C-o-map "c" 'center-line)
-  (define-key wordstar-C-o-map "\C-c" 'center-line)
+  (define-key wordstar-C-o-map "c" 'wordstar-center-line)
+  (define-key wordstar-C-o-map "\C-c" 'wordstar-center-line)
   (define-key wordstar-C-o-map "b" 'switch-to-buffer)
   (define-key wordstar-C-o-map "\C-b" 'switch-to-buffer)
   (define-key wordstar-C-o-map "j" 'justify-current-line)
@@ -249,7 +249,7 @@ The key bindings are:
   C-k x		kill-emacs
   C-k y		ws-delete-block
 
-  C-o c		center-line
+  C-o c		wordstar-center-line
   C-o b		switch-to-buffer
   C-o j		justify-current-line
   C-o k		kill-buffer
@@ -293,20 +293,20 @@ The key bindings are:
   (setq major-mode 'wordstar-mode))
 
 
-(defun center-paragraph ()
+(defun wordstar-center-paragraph ()
   "Center each line in the paragraph at or after point.
-See center-line for more info."
+See `wordstar-center-line' for more info."
   (interactive)
   (save-excursion
     (forward-paragraph)
     (or (bolp) (newline 1))
     (let ((end (point)))
       (backward-paragraph)
-      (center-region (point) end))))
+      (wordstar-center-region (point) end))))
 
-(defun center-region (from to)
+(defun wordstar-center-region (from to)
   "Center each line starting in the region.
-See center-line for more info."
+See `wordstar-center-line' for more info."
   (interactive "r")
   (if (> from to)
       (let ((tem to))
@@ -316,10 +316,10 @@ See center-line for more info."
       (narrow-to-region from to)
       (goto-char from)
       (while (not (eobp))
-	(center-line)
+	(wordstar-center-line)
 	(forward-line 1)))))
 
-(defun center-line ()
+(defun wordstar-center-line ()
   "Center the line point is on, within the width specified by `fill-column'.
 This means adjusting the indentation to match
 the distance between the end of the text and `fill-column'."