diff lisp/simple.el @ 55425:1acbf23561f5

(next-error): Fix typo in docstring. (open-line): Make argument names match their use in docstring. (split-line): Fix docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 07 May 2004 22:31:54 +0000
parents 1b8ead47966a
children 030ebc46c0c1 6c46628776bc
line wrap: on
line diff
--- a/lisp/simple.el	Fri May 07 22:27:57 2004 +0000
+++ b/lisp/simple.el	Fri May 07 22:31:54 2004 +0000
@@ -133,7 +133,7 @@
 Just \\[universal-argument] as a prefix means reparse the error message buffer
 and start at the first error.
 
-The RESET argument specifies that we should restart from the beginning
+The RESET argument specifies that we should restart from the beginning.
 
 \\[next-error] normally uses the most recently started
 compilation, grep, or occur buffer.  It can also operate on any
@@ -294,7 +294,7 @@
 	(put-text-property from (point) 'rear-nonsticky
 			   (cons 'hard sticky)))))
 
-(defun open-line (arg)
+(defun open-line (n)
   "Insert a newline and leave point before it.
 If there is a fill prefix and/or a left-margin, insert them on the new line
 if the line would have been blank.
@@ -305,23 +305,23 @@
 	 (loc (point))
 	 ;; Don't expand an abbrev before point.
 	 (abbrev-mode nil))
-    (newline arg)
+    (newline n)
     (goto-char loc)
-    (while (> arg 0)
+    (while (> n 0)
       (cond ((bolp)
 	     (if do-left-margin (indent-to (current-left-margin)))
 	     (if do-fill-prefix (insert-and-inherit fill-prefix))))
       (forward-line 1)
-      (setq arg (1- arg)))
+      (setq n (1- n)))
     (goto-char loc)
     (end-of-line)))
 
 (defun split-line (&optional arg)
   "Split current line, moving portion beyond point vertically down.
 If the current line starts with `fill-prefix', insert it on the new
-line as well.  With prefix arg, don't insert fill-prefix on new line.
-
-When called from Lisp code, the arg may be a prefix string to copy."
+line as well.  With prefix ARG, don't insert fill-prefix on new line.
+
+When called from Lisp code, ARG may be a prefix string to copy."
   (interactive "*P")
   (skip-chars-forward " \t")
   (let* ((col (current-column))