Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eb148b90
Commit
eb148b90
authored
Jun 06, 1998
by
Richard M. Stallman
Browse files
(string-rectangle-line): Delete the rectangle first.
(string-rectangle): Doc fix.
parent
06cab243
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/rect.el
lisp/rect.el
+4
-4
No files found.
lisp/rect.el
View file @
eb148b90
...
...
@@ -227,9 +227,8 @@ rectangle, all continuous whitespace starting at that column is deleted."
;;;###autoload
(
defun
string-rectangle
(
start
end
string
)
"Insert STRING on each line of the region-rectangle, shifting text right.
The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text.
"Replace rectangle contents with STRING on each line.
The length of STRING need not be the same as the rectangle width.
Called from a program, takes three args; START, END and STRING."
(
interactive
"r\nsString rectangle: "
)
...
...
@@ -238,7 +237,8 @@ Called from a program, takes three args; START, END and STRING."
(
defun
string-rectangle-line
(
startpos
begextra
endextra
)
(
let
(
whitespace
)
(
goto-char
startpos
)
;; Delete the width of the rectangle.
(
delete-region
startpos
(
point
))
;; Compute horizontal width of following whitespace.
(
let
((
ocol
(
current-column
)))
(
skip-chars-forward
" \t"
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment