Mercurial > emacs

changeset 12969:836d868710ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(wordstar-center-line): Renamed from center-line. (wordstar-center-region): Renamed from center-region. (wordstar-center-paragraph): Renamed from center-paragraph.
author Richard M. Stallman <rms@gnu.org>
date Tue, 29 Aug 1995 14:55:25 +0000
parents a0d985336555
children b5262e218fa8
files lisp/emulation/ws-mode.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/ws-mode.el	Tue Aug 29 10:52:14 1995 +0000
+++ b/lisp/emulation/ws-mode.el	Tue Aug 29 14:55:25 1995 +0000
@@ -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 @@
   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 @@
   (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 @@
       (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'."