Mercurial > emacs
changeset 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 | 04990cada43d |
children | 765deb51a826 |
files | lisp/simple.el |
diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
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))