Commit 197615f3 authored by Dave Love's avatar Dave Love
Browse files

(string-rectangle): Revert last change.

(string-rectangle-line): New arg DELETE.
(string-rectangle): Check delete-selection-mode.
parent f4117c4d
2000-11-22 Dave Love <fx@gnu.org>
* rect.el (string-rectangle): Revert last change.
(string-rectangle-line): New arg DELETE.
(string-rectangle): Check delete-selection-mode.
* emacs-lisp/edebug.el (edebug-version)
(edebug-maintainer-address): Deleted.
(edebug-submit-bug-report): Just alias to report-emacs-bug.
(edebug-read-function): Account for other `'#' read forms.
(edebug-mode-menus): Make some items toggles.
(edebug-outside-unread-command-event, unread-command-event):
Remove these to avoid warnings.
2000-11-22 David Ponce <david@dponce.com> 2000-11-22 David Ponce <david@dponce.com>
* recentf.el (recentf-menu-items-for-commands) * recentf.el (recentf-menu-items-for-commands)
......
...@@ -334,17 +334,20 @@ When called from a program the rectangle's corners are START and END. ...@@ -334,17 +334,20 @@ When called from a program the rectangle's corners are START and END.
The left edge of the rectangle specifies the column for insertion. The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text." This command does not delete or overwrite any existing text."
(interactive "*r\nsString rectangle: ") (interactive "*r\nsString rectangle: ")
(apply-on-rectangle 'string-rectangle-line start end string)) (apply-on-rectangle 'string-rectangle-line start end string
(bound-and-true-p 'delete-selection-mode)))
(defun string-rectangle-line (startcol endcol string) (defun string-rectangle-line (startcol endcol string delete)
(move-to-column-force startcol) (move-to-column-force startcol)
(if delete
(delete-rectangle-line startcol endcol nil))
(insert string)) (insert string))
;;;###autoload ;;;###autoload
(defun replace-rectangle (start end string) (defun replace-rectangle (start end string)
"Like `string-rectangle', but replace the original region." "Like `string-rectangle', but replace the original region."
(interactive "*r\nsString rectangle: ") (interactive "*r\nsString rectangle: ")
(apply-on-rectangle 'string-rectangle-line start end string)) (apply-on-rectangle 'string-rectangle-line start end string t))
;;;###autoload ;;;###autoload
(defun clear-rectangle (start end &optional fill) (defun clear-rectangle (start end &optional fill)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment